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>)
From: Ulrich Hobelmann
Subject: Re: Problem getting CL-XML to work with OpenMCL
Date:
Message-ID: <449pg4F13nktU1@individual.net>
If you don't NEED CL-XML, you could try one of the other Lisp/XML
packages. I think I used S-XML (http://common-lisp.net/project/s-xml/)
once (it was a once-shot reading of an XML file, so I don't have the
code...) once, on OpenMCL.
--
Suffering from Gates-induced brain leakage...
Agreed as I also have CXML which was quite simple to get running.
However, I wanted XPath/XQuery support which seems to make CL-XML the
only game in town.
Thanks,
Phil
Ulrich Hobelmann wrote:
> If you don't NEED CL-XML, you could try one of the other Lisp/XML
> packages. I think I used S-XML (http://common-lisp.net/project/s-xml/)
> once (it was a once-shot reading of an XML file, so I don't have the
> code...) once, on OpenMCL.
>
Foxpointe <·········@comcast.net> writes:
> Agreed as I also have CXML which was quite simple to get running.
> However, I wanted XPath/XQuery support which seems to make CL-XML the
> only game in town.
Here is a draft consumer report on XML libraries:
XML Parser Libraries
http://wiki.alu.org/XML_Parser_Libraries
It's from a CL Gardeners project:
Gardeners Reports
http://wiki.alu.org/Gardeners_Reports
Paolo
--
Why Lisp? http://wiki.alu.org/RtL%20Highlight%20Film
The Common Lisp Directory: http://www.cl-user.net
Paolo Amoroso wrote:
> Foxpointe <·········@comcast.net> writes:
>
>> Agreed as I also have CXML which was quite simple to get running.
>> However, I wanted XPath/XQuery support which seems to make CL-XML the
>> only game in town.
>
> Here is a draft consumer report on XML libraries:
>
> XML Parser Libraries
> http://wiki.alu.org/XML_Parser_Libraries
>
> It's from a CL Gardeners project:
>
> Gardeners Reports
> http://wiki.alu.org/Gardeners_Reports
>
>
> Paolo
Thanks for the link. It confirmed what my statement about CL-XML being
"the only game in town" for XPath/XQuery. I've since gotten frustrated
to the point of shelving it and going in a different direction, this
list will definitely help with that decision.
Thanks,
Phil