Problem getting CL-XML to work with OpenMCL

I'm hoping someone out there can help me get going with CL-XML (XML-0-949-20030409) with OpenMCL (1.0) The problem is just getting it compiled and loaded as when I load any of the lisp* files (i.e. "load-clhttp-instanceNames.lisp") an error is received (at bottom of message).

I understand that code/base/tokenizer.lisp is calling with-lock-held (defined in code/base/www-utils-ersatz.lisp) which in turn calls with-lock-grabbed with a different number of parameters than required but I'm not at all clear on what how to best resolve the issue.

I'm not wedded to using CL-XML but the info I've found on the 'net points to it being the more feature-complete of the options and relatively widely used so I wanted to give it a try. Suggestions are appreciated...

Thanks,
Phil

==============

Extra arguments in ((TK1::TOKENIZER-LOCK TK1::TOKENIZER) *CURRENT-PROCESS*
                    "Wait for Lock") don't match lambda list (LOCK
                                                              &OPTIONAL

(CCL::WHOSTATE
                                                               "Lock")).
   [Condition of type CCL::SIMPLE-PROGRAM-ERROR]

Restarts:
0: [RETRY-COMPILE-FILE] Retry compiling #P"/Users/Shared/local/src/Languages/Lisp/XML/code/base/tokenizer.lisp"
1: [SKIP-COMPILE-FILE] Skip compiling #P"/Users/Shared/local/src/Languages/Lisp/XML/code/base/tokenizer.lisp"
2: [RETRY-LOAD] Retry loading "/Users/Shared/local/src/Languages/Lisp/XML/load-clhttp-instanceNames.lisp"
3: [SKIP-LOAD] Skip loading "/Users/Shared/local/src/Languages/Lisp/XML/load-clhttp-instanceNames.lisp"
4: [LOAD-OTHER] Load other file instead of "/Users/Shared/local/src/Languages/Lisp/XML/load-clhttp-instanceNames.lisp"
5: [ABORT] Abort handling SLIME request.
6: [ABORT-BREAK] Reset this process
7: [ABORT] Kill this process

Backtrace:
0: (CCL::%CHECK-EXTRA-ARGUMENTS #<CCL::DESTRUCTURE-STATE #x14EF70E>)
1: (WITH-LOCK-GRABBED '(WITH-LOCK-GRABBED ((TK1::TOKENIZER-LOCK TK1::TOKENIZER) *CURRENT-PROCESS* "Wait for Lock") (LOOP TK1::FOR TK1::ENTRY TK1::ACROSS (TK1::TOKENIZER-TABLE TK1::TOKENIZER) WHEN (AND TK1::ENTRY #) DO (FUNCALL FUNCTION # #)) TK1::TOKENIZER) #<CCL::LEXICAL-ENVIRONMENT #x8642546>)
2: (FUNCALL #<Compiled-function WITH-LOCK-GRABBED Macroexpander #x8244B5E>)
3: (MACROEXPAND-1 '(WITH-LOCK-GRABBED ((TK1::TOKENIZER-LOCK TK1::TOKENIZER) *CURRENT-PROCESS* "Wait for Lock") (LOOP TK1::FOR TK1::ENTRY TK1::ACROSS (TK1::TOKENIZER-TABLE TK1::TOKENIZER) WHEN (AND TK1::ENTRY #) DO (FUNCALL FUNCTION # #)) TK1::TOKENIZER) 'WITH-LOCK-GRABBED)
4: (CCL::NX-TRANSFORM '(WWW-UTILS::WITH-LOCK-HELD ((TK1::TOKENIZER-LOCK TK1::TOKENIZER) "Map Tokens") (LOOP TK1::FOR TK1::ENTRY TK1::ACROSS (TK1::TOKENIZER-TABLE TK1::TOKENIZER) WHEN (AND TK1::ENTRY #) DO (FUNCALL FUNCTION # #)) TK1::TOKENIZER) #<CCL::LEXICAL-ENVIRONMENT #x8642546>)
5: (CCL::NX1-TYPED-FORM '(WWW-UTILS::WITH-LOCK-HELD ((TK1::TOKENIZER-LOCK TK1::TOKENIZER) "Map Tokens") (LOOP TK1::FOR TK1::ENTRY TK1::ACROSS (TK1::TOKENIZER-TABLE TK1::TOKENIZER) WHEN (AND TK1::ENTRY #) DO (FUNCALL FUNCTION # #)) TK1::TOKENIZER) #<CCL::LEXICAL-ENVIRONMENT #x8642546>)
6: (CCL::NX1-FORM '(WWW-UTILS::WITH-LOCK-HELD ((TK1::TOKENIZER-LOCK TK1::TOKENIZER) "Map Tokens") (LOOP TK1::FOR TK1::ENTRY TK1::ACROSS (TK1::TOKENIZER-TABLE TK1::TOKENIZER) WHEN (AND TK1::ENTRY #) DO (FUNCALL FUNCTION # #)) TK1::TOKENIZER))
7: (CCL::NX1-BLOCK '(BLOCK TK1:MAP-TOKENS (WWW-UTILS::WITH-LOCK-HELD (# "Map Tokens") (LOOP TK1::FOR TK1::ENTRY TK1::ACROSS # WHEN # DO #) TK1::TOKENIZER)) #<CCL::LEXICAL-ENVIRONMENT #x864260E>)
8: (CCL::NX1-COMBINATION #<CCL::LEXICAL-ENVIRONMENT #x864260E> '(BLOCK TK1:MAP-TOKENS (WWW-UTILS::WITH-LOCK-HELD (# "Map Tokens") (LOOP TK1::FOR TK1::ENTRY TK1::ACROSS # WHEN # DO #) TK1::TOKENIZER)))
9: (CCL::NX1-FORM '(BLOCK TK1:MAP-TOKENS (WWW-UTILS::WITH-LOCK-HELD (# "Map Tokens") (LOOP TK1::FOR TK1::ENTRY TK1::ACROSS # WHEN # DO #) TK1::TOKENIZER)))
10: (CCL::NX1-ENV-BODY '((BLOCK TK1:MAP-TOKENS (WWW-UTILS::WITH-LOCK-HELD # # TK1::TOKENIZER))) '(NIL NIL))
11: (CCL::NX1-LAMBDA '((DECLARE (CCL::GLOBAL-FUNCTION-NAME TK1:MAP-TOKENS))) '(LAMBDA (TK1::TOKENIZER FUNCTION) (DECLARE (CCL::GLOBAL-FUNCTION-NAME TK1:MAP-TOKENS)) (BLOCK TK1:MAP-TOKENS (WWW-UTILS::WITH-LOCK-HELD # # TK1::TOKENIZER))) 'TK1:MAP-TOKENS)
12: (CCL::NX1-COMPILE-LAMBDA 'TK1:MAP-TOKENS '(LAMBDA (TK1::TOKENIZER FUNCTION) (DECLARE (CCL::GLOBAL-FUNCTION-NAME TK1:MAP-TOKENS)) (BLOCK TK1:MAP-TOKENS (WWW-UTILS::WITH-LOCK-HELD # # TK1::TOKENIZER))) #<CCL::AFUNC #x864267E>)
13: (CCL::COMPILE-NAMED-FUNCTION '(LAMBDA (TK1::TOKENIZER FUNCTION) (DECLARE (CCL::GLOBAL-FUNCTION-NAME TK1:MAP-TOKENS)) (BLOCK TK1:MAP-TOKENS (WWW-UTILS::WITH-LOCK-HELD # # TK1::TOKENIZER))) 'TK1:MAP-TOKENS #<CCL::LEXICAL-ENVIRONMENT #x864270E> 'NIL 'T #<COMPILER-POLICY #x8275FC6> '#:LOAD-TIME-EVAL ':DARWINPPC32)
14: (CCL::FCOMP-NAMED-FUNCTION '(LAMBDA (TK1::TOKENIZER FUNCTION) (DECLARE (CCL::GLOBAL-FUNCTION-NAME TK1:MAP-TOKENS)) (BLOCK TK1:MAP-TOKENS (WWW-UTILS::WITH-LOCK-HELD # # TK1::TOKENIZER))) 'TK1:MAP-TOKENS #<CCL::LEXICAL-ENVIRONMENT #x8590096>)
15: (CCL::FCOMP-LOAD-%DEFUN '(CCL::%DEFUN (NFUNCTION TK1:MAP-TOKENS (LAMBDA # # #)) '"Maps FUNCTION over all the tokens of TOKENIZER.
FUNCTION is called with (KEY VALUE), where KEY is
a string and VALUE is the tokenized value.") 'NIL)
16: (CCL::FCOMP-FORM #<CCL::LEXICAL-ENVIRONMENT #x8590096> '('TK1:MAP-TOKENS) '(CCL::%DEFUN (NFUNCTION TK1:MAP-TOKENS (LAMBDA # # #)) '"Maps FUNCTION over all the tokens of TOKENIZER.
FUNCTION is called with (KEY VALUE), where KEY is
a string and VALUE is the tokenized value."))
17: (CCL::FCOMP-FORM-LIST '((EVAL-WHEN (:COMPILE-TOPLEVEL) (CCL::NOTE-FUNCTION-INFO # # #)) (CCL::%DEFUN (NFUNCTION TK1:MAP-TOKENS #) '"Maps FUNCTION over all the tokens of TOKENIZER.
FUNCTION is called with (KEY VALUE), where KEY is
a string and VALUE is the tokenized value.") 'TK1:MAP-TOKENS) 'NIL #<SVAR CCL::*FCOMP-INDENTATION* 598 #x82752EE>)
18: (CCL::FCOMP-FORM #<CCL::LEXICAL-ENVIRONMENT #x8590096> 'NIL #<SVAR CCL::*FCOMP-INDENTATION* 598 #x82752EE>)
19: (CCL::FCOMP-FORM #<CCL::LEXICAL-ENVIRONMENT #x8590096> '(DEFUN TK1:MAP-TOKENS (TK1::TOKENIZER FUNCTION) "Maps FUNCTION over all the tokens of TOKENIZER.
FUNCTION is called with (KEY VALUE), where KEY is
a string and VALUE is the tokenized value." (WWW-UTILS::WITH-LOCK-HELD (# "Map Tokens") (LOOP TK1::FOR TK1::ENTRY TK1::ACROSS # WHEN # DO #) TK1::TOKENIZER)) #<CCL::LEXICAL-ENVIRONMENT #x8590096>)
20: (CCL::FCOMP-READ-LOOP "/Users/Shared/local/src/Languages/Lisp/XML/code/base/tokenizer.lisp" "/Users/Shared/local/src/Languages/Lisp/XML/code/base/tokenizer.lisp" #<SVAR CCL::*FCOMP-OUTPUT-LIST* 596 #x827530E> "/Users/Shared/local/src/Languages/Lisp/XML/code/base/tokenizer.lisp")
21: (CCL::FCOMP-FILE "/Users/Shared/local/src/Languages/Lisp/XML/code/base/tokenizer.lisp" "/Users/Shared/local/src/Languages/Lisp/XML/code/base/tokenizer.lisp" #<CCL::LEXICAL-ENVIRONMENT #x8562266>)
22: (CCL::%COMPILE-FILE #P"/Users/Shared/local/src/Languages/Lisp/XML/code/base/tokenizer.lisp" #P"xml:code;base;tokenizer.BIN" 'NIL 'NIL 'NIL 'NIL 'T 'T 'NIL 'NIL ':DEFAULT '(#<RESTART CCL::RETRY-COMPILE-FILE #x14EF87E> #<RESTART CCL::SKIP-COMPILE-FILE #x14EF8A6>))
23: (COMPILE-FILE #P"/Users/Shared/local/src/Languages/Lisp/XML/code/base/tokenizer.lisp")
24: (#<STANDARD-METHOD EXECUTE-SYSTEM-OPERATIONS (CONS CONS)> '(:XPARSER) '(:COMPILE :LOAD))
25: (CCL::CALL-CHECK-REGS 'EXECUTE-SYSTEM-OPERATIONS)
26: (CCL::LOAD-FROM-STREAM #P"/Users/Shared/local/src/Languages/Lisp/XML/load-clhttp-instanceNames.lisp" #<SVAR *LOAD-TRUENAME* 228 #x80C4AE6>)
27: (CCL::%LOAD "/Users/Shared/local/src/Languages/Lisp/XML/load-clhttp-instanceNames.lisp" 'NIL ':ERROR ':DEFAULT '(#<RESTART CCL::RETRY-LOAD #x14EF9EE> #<RESTART CCL::SKIP-LOAD #x14EFA16> #<RESTART CCL::LOAD-OTHER #x14EFA3E>))
28: (LOAD "/Users/Shared/local/src/Languages/Lisp/XML/load-clhttp-instanceNames.lisp")
29: (CCL::CALL-CHECK-REGS 'LOAD)
30: (SWANK::EVAL-REGION "(load \"/Users/Shared/local/src/Languages/Lisp/XML/load-clhttp-instanceNames.lisp\")
" 'T)
31: (#<Anonymous Function #x83F1CCE> "(load \"/Users/Shared/local/src/Languages/Lisp/XML/load-clhttp-instanceNames.lisp\")
")
32: (SWANK::CALL-WITH-BUFFER-SYNTAX #<COMPILED-LEXICAL-CLOSURE #x853C206>)
33: (CCL::CALL-CHECK-REGS 'SWANK:LISTENER-EVAL)
34: (#<Anonymous Function #x83F3FE6> '(SWANK:LISTENER-EVAL "(load \"/Users/Shared/local/src/Languages/Lisp/XML/load-clhttp-instanceNames.lisp\")
") 15 "COMMON-LISP-USER")
35: (#<STANDARD-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x83F13A6> #<COMPILED-LEXICAL-CLOSURE #x853C226>)
36: (FUNCALL 'SWANK::EVAL-FOR-EMACS)
37: (#<Anonymous Function #x83E2046>)
38: (#<Anonymous Function #x83D33AE> #<Anonymous Function #x83E2046>)
39: (SWANK::CALL-WITH-REDIRECTED-IO #<COMPILED-LEXICAL-CLOSURE #x853C246> #<CONNECTION #x842247E>)
40: (SWANK::CALL-WITH-CONNECTION #<CONNECTION #x842247E> #<Anonymous Function #x83E2046>)
41: (SWANK::HANDLE-REQUEST #<CONNECTION #x842247E>)
42: (#<Anonymous Function #x83DE7BE> #<CONNECTION #x842247E>)
43: (#<Anonymous Function #x83D33AE> #<COMPILED-LEXICAL-CLOSURE #x84251A6>)
44: (SWANK::CALL-WITH-REDIRECTED-IO #<COMPILED-LEXICAL-CLOSURE #x842518E> 'NIL)
45: (SWANK::CALL-WITH-CONNECTION #<CONNECTION #x842247E> #<COMPILED-LEXICAL-CLOSURE #x84251A6>)
46: (SWANK::CALL-WITH-BINDINGS 'NIL #<COMPILED-LEXICAL-CLOSURE #x84251BE>)
47: (CCL::RUN-PROCESS-INITIAL-FORM '(#<COMPILED-LEXICAL-CLOSURE #x8421266>) #<PROCESS repl-thread(5) [Active] #x842129E>)
48: (#<Anonymous Function #x80DB61E> '(#<COMPILED-LEXICAL-CLOSURE #x8421266>) 0)
49: (#<Anonymous Function #x80CE806> 788308 #<LISP-THREAD repl-thread [tcr @ #x301D50] #x842138E>)
.

Relevant Pages

  • Re: If you got to choose the syntax, what would you do?
    ... tokenizing systems and both have the ability to execute the token streams directly, without translating them into some internal form. ... The conceptual distinction is that OTA tokens are instructions for a virtual machine; ... will start and finish compiling a definition, ... OTA tokens, in contrast, are expected to represent an executable program without need for additional processing in the receiving node beyond the table lookup/indexing to get the executable local code for each token. ...
    (comp.lang.forth)
  • Re: If you got to choose the syntax, what would you do?
    ... tokenizing systems and both have the ability to execute the token streams directly, without translating them into some internal form. ... The conceptual distinction is that OTA tokens are instructions for a virtual machine; ... will start and finish compiling a definition, ...
    (comp.lang.forth)