[Bese-devel] UCW in ACL
lists at infoway.net
lists at infoway.net
Mon Dec 4 23:18:34 UTC 2006
I wanted to evaluate ACL so I downloaded the evaluation version of ACL 8.
I also downloaded a fresh copy of ucw-boxset.
However, when I try to run start-ajax, I keep getting stuck in
/Users/daniel/dev/lisp/ucw-boxset/ucw_ajax/src/l10n/l10n-application.lisp.
Any ideas from the trace below?
Thanks,
Daniel
Tag NIL is used more than once
Problem detected when processing
(TAGBODY (SETQ #:LIST1 LANGS) LOOP-TOP-NIL...)
inside (BLOCK NIL (TAGBODY (SETQ #:LIST1 LANGS) LOOP-TOP-NIL...) ...)
inside (LET* ((ACCEPTED-LOCALES #) (#:LIST1 NIL) (LANG NIL) ...)
(BLOCK NIL (TAGBODY # LOOP-TOP-NIL...) ...)) ..
inside (LET ((LANGS #)) NIL ...) ..
inside (PROGN (COND (# NIL # ...)) (LET (#) NIL ...)) ..
inside (COND (IT (PROGN # #)) (T NIL)) ..
inside (IF IT (PROGN (COND #) (LET # NIL ...)) ...) ..
inside (LET ((IT #)) (IF IT (PROGN # #) ...)) ..
inside (BLOCK PROCESS-ACCEPT-LANGUAGE (LET (#) (IF IT # ...))) ..
inside (PROGN (PROGN APP REQUEST) ..)
inside (COMPILER::NAMED-FUNCTION-1 ..)
inside (EXCL::COMPILER-LET ((COMPILER::.FUNCTION-SPEC. '#) ..))
inside (THE EXCL::KNOWN-FUNCTION ..)
inside (EXCL:NAMED-FUNCTION (METHOD PROCESS-ACCEPT-LANGUAGE ..))
inside (LIST :LAMBDA-LIST ..)
inside (LIST (LIST :LAMBDA-LIST '(# #) ...)) ..
inside (ENSURE-GENERIC-FUNCTION 'PROCESS-ACCEPT-LANGUAGE ..)
inside (PROGN NIL ..)
[Condition of type PARSE-ERROR]
Restarts:
0: [NIL] retry the compilation of
/Users/daniel/dev/lisp/ucw-boxset/ucw_ajax/src/l10n/l10n-application.lisp
1: [NIL] continue compiling
/Users/daniel/dev/lisp/ucw-boxset/ucw_ajax/src/l10n/l10n-application.lisp
but generate no output file
2: [RETRY] Retry performing #<ASDF:COMPILE-OP NIL @ #x1056a12a> on
#<IT.BESE.UCW.SYSTEM::LOCAL-CL-SOURCE-FILE "l10n-application" @
#x1057c842>.
3: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL @ #x1056a12a> on
#<IT.BESE.UCW.SYSTEM::LOCAL-CL-SOURCE-FILE "l10n-application" @
#x1057c842> as having been successful.
4: [RETRY] retry the load of
/Users/daniel/dev/lisp/ucw-boxset/start-common.lisp
5: [SKIP] skip loading /Users/daniel/dev/lisp/ucw-boxset/start-common.lisp
6: [RECOMPILE-DUE-TO-INCOMPATIBLE-FASL] recompile
/Users/daniel/dev/lisp/ucw-boxset/start-common.lisp
7: [RETRY] retry the load of ~/dev/lisp/ucw-boxset/start-ajax.lisp
8: [SKIP] skip loading ~/dev/lisp/ucw-boxset/start-ajax.lisp
9: [RECOMPILE-DUE-TO-INCOMPATIBLE-FASL] recompile
/Users/daniel/dev/lisp/ucw-boxset/start-ajax.lisp
10: [ABORT-REQUEST] Abort handling SLIME request.
11: [ABORT] Abort entirely from this (lisp) process.
Backtrace:
0: (SWANK::CALL-WITH-BINDINGS ((*PRINT-PRETTY*) (*PRINT-LEVEL* . 4)
(*PRINT-LENGTH* . 10) (*PRINT-CIRCLE* . T) (*PRINT-READABLY*)
(*PRINT-PPRINT-DISPATCH* . #S(EXCL::PPRINT-DISPATCH-STRUCT
:CONSES-WITH-CARS # :STRUCTURES # :OTHERS #)) (*PRINT-GENSYM* . T)
(*PRINT-BASE* . 10) (*PRINT-RADIX*) (*PRINT-ARRAY* . T) ...) #<Function
(:INTERNAL SWANK::DEBUG-IN-EMACS 0)>)
1: (SWANK::DEBUG-IN-EMACS #<PARSE-ERROR @ #x10fbca22>)
2: (SWANK:SWANK-DEBUGGER-HOOK #<PARSE-ERROR @ #x10fbca22> #<Function
SWANK-DEBUGGER-HOOK>)
3: (ERROR PARSE-ERROR :FORMAT-CONTROL "~?~@[~a~]" :FORMAT-ARGUMENTS
("~1@<Tag ~s is used more than once~:@>" (NIL) "
Problem detected when processing
(TAGBODY (SETQ #:LIST1 LANGS) LOOP-TOP-NIL...)
inside (BLOCK NIL (TAGBODY (SETQ #:LIST1 LANGS) LOOP-TOP-NIL...) ...)
inside (LET* ((ACCEPTED-LOCALES #) (#:LIST1 NIL) (LANG NIL) ...)
(BLOCK NIL (TAGBODY # LOOP-TOP-NIL...) ...)) ..
inside (LET ((LANGS #)) NIL ...) ..
inside (PROGN (COND (# NIL # ...)) (LET (#) NIL ...)) ..
inside (COND (IT (PROGN # #)) (T NIL)) ..
inside (IF IT (PROGN (COND #) (LET # NIL ...)) ...) ..
inside (LET ((IT #)) (IF IT (PROGN # #) ...)) ..
inside (BLOCK PROCESS-ACCEPT-LANGUAGE (LET (#) (IF IT # ...))) ..
inside (PROGN (PROGN APP REQUEST) ..)
inside (COMPILER::NAMED-FUNCTION-1 ..)
inside (EXCL::COMPILER-LET ((COMPILER::.FUNCTION-SPEC. '#) ..))
inside (THE EXCL::KNOWN-FUNCTION ..)
inside (EXCL:NAMED-FUNCTION (METHOD PROCESS-ACCEPT-LANGUAGE ..))
inside (LIST :LAMBDA-LIST ..)
inside (LIST (LIST :LAMBDA-LIST '(# #) ...)) ..
inside (ENSURE-GENERIC-FUNCTION 'PROCESS-ACCEPT-LANGUAGE ..)
inside (PROGN NIL ..)"))
4: (COMPILER::COMPILER-ERROR "Tag ~s is used more than once" NIL)
5: (COMPILER::PA-TAGBODY ((SETQ #1=#:LIST1 IT.BESE.UCW::LANGS)
IT.BESE.UCW::LOOP-TOP-NIL (IF (ATOM #1#) (GO IT.BESE.UCW::LOOP-END-NIL)
NIL) (LET (#) (SETQ IT.BESE.UCW::LANG #) (SETQ IT.BESE.UCW::WEIGTH #)
#:DSETQ659) (SETQ #1# (CDR #1#)) (SETQ CL-L10N:LOCALE (CL-L10N:LOCALE
IT.BESE.UCW::LANG :ERRORP NIL)) NIL (IF (NOT CL-L10N:LOCALE) (PROGN NIL
#) NIL) (IF (COND # #) (PROGN NIL #) NIL) IT.BESE.UCW::LOOP-STEP-NIL
...))
6: (COMPILER::PA-COMPILE (TAGBODY (SETQ #1=#:LIST1 IT.BESE.UCW::LANGS)
IT.BESE.UCW::LOOP-TOP-NIL (IF (ATOM #1#) (GO IT.BESE.UCW::LOOP-END-NIL)
NIL) (LET (#) (SETQ IT.BESE.UCW::LANG #) (SETQ IT.BESE.UCW::WEIGTH #)
#:DSETQ659) (SETQ #1# (CDR #1#)) (SETQ CL-L10N:LOCALE (CL-L10N:LOCALE
IT.BESE.UCW::LANG :ERRORP NIL)) NIL (IF (NOT CL-L10N:LOCALE) (PROGN NIL
#) NIL) (IF (COND # #) (PROGN NIL #) NIL) ...) NIL)
7: (COMPILER::PA-PROGN ((TAGBODY (SETQ #1=#:LIST1 IT.BESE.UCW::LANGS)
IT.BESE.UCW::LOOP-TOP-NIL (IF # # NIL) (LET # # # #:DSETQ659) (SETQ #1#
#) (SETQ CL-L10N:LOCALE #) NIL (IF # # NIL) (IF # # NIL) ...) NIL))
8: (COMPILER::PA-BLOCK (NIL (TAGBODY (SETQ #1=#:LIST1
IT.BESE.UCW::LANGS) IT.BESE.UCW::LOOP-TOP-NIL (IF # # NIL) (LET # # #
#:DSETQ659) (SETQ #1# #) (SETQ CL-L10N:LOCALE #) NIL (IF # # NIL) (IF #
# NIL) ...) NIL))
9: (COMPILER::PA-COMPILE (BLOCK NIL (TAGBODY (SETQ #1=#:LIST1
IT.BESE.UCW::LANGS) IT.BESE.UCW::LOOP-TOP-NIL (IF # # NIL) (LET # # #
#:DSETQ659) (SETQ #1# #) (SETQ CL-L10N:LOCALE #) NIL (IF # # NIL) (IF #
# NIL) ...) NIL) COMPILER::TAIL)
10: (COMPILER::PA-LET* (((IT.BESE.UCW::ACCEPTED-LOCALES #) (#:LIST1 NIL)
(IT.BESE.UCW::LANG NIL) (IT.BESE.UCW::WEIGTH NIL) (CL-L10N:LOCALE NIL)
(IT.BESE.ARNESI:RESULT NIL) (#:END-POINTER2 NIL) (#:TEMP3 NIL)) (BLOCK
NIL (TAGBODY # IT.BESE.UCW::LOOP-TOP-NIL # # # # NIL # # ...) NIL)))
11: (COMPILER::PA-COMPILE (LET* ((IT.BESE.UCW::ACCEPTED-LOCALES #)
(#:LIST1 NIL) (IT.BESE.UCW::LANG NIL) (IT.BESE.UCW::WEIGTH NIL)
(CL-L10N:LOCALE NIL) (IT.BESE.ARNESI:RESULT NIL) (#:END-POINTER2 NIL)
(#:TEMP3 NIL)) (BLOCK NIL (TAGBODY # IT.BESE.UCW::LOOP-TOP-NIL # # # #
NIL # # ...) NIL)) COMPILER::TAIL)
12: (COMPILER::PA-PROGN (NIL (LET* (# # # # # # # #) (BLOCK NIL # NIL))))
13: (COMPILER::PA-LET (((IT.BESE.UCW::LANGS #)) NIL (LET* (# # # # # # #
#) (BLOCK NIL # NIL))))
14: (COMPILER::PA-COMPILE (LET ((IT.BESE.UCW::LANGS #)) NIL (LET* (# # #
# # # # #) (BLOCK NIL # NIL))) COMPILER::TAIL)
15: (COMPILER::PA-PROGN ((COND (# NIL # #)) (LET (#) NIL (LET* # #))))
16: (COMPILER::PA-COMPILE (PROGN (COND (# NIL # #)) (LET (#) NIL (LET* #
#))) COMPILER::TAIL)
17: (COMPILER::PA-COND ((IT.BESE.ARNESI:IT (PROGN # #)) (T NIL)))
18: (COMPILER::PA-COMPILE (COND (IT.BESE.ARNESI:IT (PROGN # #)) (T NIL))
COMPILER::TAIL)
19: (COMPILER::PA-COMPILE (IF IT.BESE.ARNESI:IT (PROGN (COND #) (LET #
NIL #)) NIL) COMPILER::TAIL)
20: (COMPILER::PA-LET (((IT.BESE.ARNESI:IT #)) (IF IT.BESE.ARNESI:IT
(PROGN # #) NIL)))
21: (COMPILER::PA-COMPILE (LET ((IT.BESE.ARNESI:IT #)) (IF
IT.BESE.ARNESI:IT (PROGN # #) NIL)) COMPILER::TAIL)
22: (COMPILER::PA-BLOCK (IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE (LET (#)
(IF IT.BESE.ARNESI:IT # NIL))))
23: (COMPILER::PA-COMPILE (BLOCK IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE
(LET (#) (IF IT.BESE.ARNESI:IT # NIL))) COMPILER::TAIL)
24: (COMPILER::PA-PROGN ((PROGN IT.BESE.UCW::APP IT.BESE.UCW:REQUEST)
(BLOCK IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE (LET # #))))
25: (COMPILER::PA-COMPILE (PROGN (PROGN IT.BESE.UCW::APP
IT.BESE.UCW:REQUEST) (BLOCK IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE (LET #
#))) COMPILER::TAIL)
26: (COMPILER::PA-COMPILE-LAMBDA (LAMBDA (IT.BESE.UCW::APP
IT.BESE.UCW:REQUEST) (DECLARE (SYSTEM::DISCRIMINATED-TYPE
IT.BESE.UCW:L10N-APPLICATION-MIXIN IT.BESE.UCW::APP)
(SYSTEM::DISCRIMINATED-TYPE IT.BESE.UCW:REQUEST IT.BESE.UCW:REQUEST))
(PROGN IT.BESE.UCW::APP IT.BESE.UCW:REQUEST) (BLOCK
IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE (LET # #))) #:||)
27: (COMPILER::COMPILE-LE (LAMBDA (IT.BESE.UCW::APP IT.BESE.UCW:REQUEST)
(DECLARE (SYSTEM::DISCRIMINATED-TYPE IT.BESE.UCW:L10N-APPLICATION-MIXIN
IT.BESE.UCW::APP) (SYSTEM::DISCRIMINATED-TYPE IT.BESE.UCW:REQUEST
IT.BESE.UCW:REQUEST)) (PROGN IT.BESE.UCW::APP IT.BESE.UCW:REQUEST) (BLOCK
IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE (LET # #))) #:|| NIL #:G664)
28: (COMPILER::PA-NAMED-FUNCTION-1 ((LAMBDA (IT.BESE.UCW::APP
IT.BESE.UCW:REQUEST) (DECLARE # #) (PROGN IT.BESE.UCW::APP
IT.BESE.UCW:REQUEST) (BLOCK IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE #))
#:G664))
29: (COMPILER::PA-COMPILE (COMPILER::NAMED-FUNCTION-1 (LAMBDA
(IT.BESE.UCW::APP IT.BESE.UCW:REQUEST) (DECLARE # #) (PROGN
IT.BESE.UCW::APP IT.BESE.UCW:REQUEST) (BLOCK
IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE #)) #:G664) T)
30: (COMPILER::PA-COMPILER-LET (((COMPILER::.FUNCTION-SPEC. #)
(COMPILER::.ANON-FNC-COUNTER. -1)) (COMPILER::NAMED-FUNCTION-1 (LAMBDA #
# # #) #:G664)))
31: (COMPILER::PA-COMPILE (EXCL::COMPILER-LET ((COMPILER::.FUNCTION-SPEC.
#) (COMPILER::.ANON-FNC-COUNTER. -1)) (COMPILER::NAMED-FUNCTION-1 (LAMBDA
# # # #) #:G664)) T)
32: (COMPILER::PA-THE (EXCL::KNOWN-FUNCTION (EXCL::COMPILER-LET (# #)
(COMPILER::NAMED-FUNCTION-1 # #:G664))))
33: (COMPILER::PA-COMPILE (THE EXCL::KNOWN-FUNCTION (EXCL::COMPILER-LET
(# #) (COMPILER::NAMED-FUNCTION-1 # #:G664))) T)
34: (COMPILER::PA-COMPILE (NAMED-FUNCTION (METHOD
IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE (IT.BESE.UCW:L10N-APPLICATION-MIXIN
IT.BESE.UCW:REQUEST)) (LAMBDA (IT.BESE.UCW::APP IT.BESE.UCW:REQUEST)
(DECLARE # #) (PROGN IT.BESE.UCW::APP IT.BESE.UCW:REQUEST) (BLOCK
IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE #))) T)
35: (COMPILER::PA-COMPILE-LIST-FOR-VALUE ((QUOTE LIST) :LAMBDA-LIST
(QUOTE (# #)) :PLIST (QUOTE NIL) :SPECIALIZERS (LIST (FIND-CLASS #)
(FIND-CLASS #)) :FUNCTION (NAMED-FUNCTION (METHOD
IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE #) (LAMBDA # # # #))) T)
36: (COMPILER::PA-COMPILE-EXPR-CALL (EXCL::.PRIMCALL (QUOTE LIST)
:LAMBDA-LIST (QUOTE (# #)) :PLIST (QUOTE NIL) :SPECIALIZERS (LIST
(FIND-CLASS #) (FIND-CLASS #)) :FUNCTION (NAMED-FUNCTION (METHOD
IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE #) (LAMBDA # # # #))))
37: (COMPILER::PA-COMPILE (LIST :LAMBDA-LIST (QUOTE (# #)) :PLIST (QUOTE
NIL) :SPECIALIZERS (LIST (FIND-CLASS #) (FIND-CLASS #)) :FUNCTION
(NAMED-FUNCTION (METHOD IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE #) (LAMBDA #
# # #))) T)
38: (COMPILER::PA-COMPILE-LIST-FOR-VALUE ((LIST :LAMBDA-LIST (QUOTE #)
:PLIST (QUOTE NIL) :SPECIALIZERS (LIST # #) :FUNCTION (NAMED-FUNCTION #
#)) NIL) T)
39: (COMPILER::PA-COMPILE-EXPR-CALL (CONS (LIST :LAMBDA-LIST (QUOTE #)
:PLIST (QUOTE NIL) :SPECIALIZERS (LIST # #) :FUNCTION (NAMED-FUNCTION #
#)) NIL))
40: (COMPILER::PA-COMPILE (LIST (LIST :LAMBDA-LIST (QUOTE #) :PLIST
(QUOTE NIL) :SPECIALIZERS (LIST # #) :FUNCTION (NAMED-FUNCTION # #))) T)
41: (COMPILER::PA-COMPILE-LIST-FOR-VALUE ((QUOTE
IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE) :LAMBDA-LIST (QUOTE
(IT.BESE.UCW::APPLICATION IT.BESE.UCW:REQUEST)) :INITIAL-METHODS (LIST
(LIST :LAMBDA-LIST # :PLIST # :SPECIALIZERS # :FUNCTION #))) T)
42: (COMPILER::PA-COMPILE-EXPR-CALL (ENSURE-GENERIC-FUNCTION (QUOTE
IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE) :LAMBDA-LIST (QUOTE
(IT.BESE.UCW::APPLICATION IT.BESE.UCW:REQUEST)) :INITIAL-METHODS (LIST
(LIST :LAMBDA-LIST # :PLIST # :SPECIALIZERS # :FUNCTION #))))
43: (COMPILER::PA-COMPILE (ENSURE-GENERIC-FUNCTION (QUOTE
IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE) :LAMBDA-LIST (QUOTE
(IT.BESE.UCW::APPLICATION IT.BESE.UCW:REQUEST)) :INITIAL-METHODS (LIST
(LIST :LAMBDA-LIST # :PLIST # :SPECIALIZERS # :FUNCTION #))) NIL)
44: (COMPILER::PA-PROGN (NIL (ENSURE-GENERIC-FUNCTION (QUOTE
IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE) :LAMBDA-LIST (QUOTE #)
:INITIAL-METHODS (LIST #)) NIL))
45: (COMPILER::PA-COMPILE (PROGN NIL (ENSURE-GENERIC-FUNCTION (QUOTE
IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE) :LAMBDA-LIST (QUOTE #)
:INITIAL-METHODS (LIST #)) NIL) COMPILER::TAIL)
46: (COMPILER::PA-COMPILE-LAMBDA (LAMBDA NIL NIL (ENSURE-GENERIC-FUNCTION
(QUOTE IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE) :LAMBDA-LIST (QUOTE #)
:INITIAL-METHODS (LIST #)) NIL) #:G663)
47: (COMPILER::PA-START-COMPILE (LAMBDA NIL NIL (ENSURE-GENERIC-FUNCTION
(QUOTE IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE) :LAMBDA-LIST (QUOTE #)
:INITIAL-METHODS (LIST #)) NIL) #:G663)
48: (COMPILER::COMPILE-LE (LAMBDA NIL NIL (ENSURE-GENERIC-FUNCTION (QUOTE
IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE) :LAMBDA-LIST (QUOTE #)
:INITIAL-METHODS (LIST #)) NIL) #:G663 T)
49: (COMPILER::COMPILE-TO-LAPS (LAMBDA NIL NIL (ENSURE-GENERIC-FUNCTION
(QUOTE IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE) :LAMBDA-LIST (QUOTE #)
:INITIAL-METHODS (LIST #)) NIL) #:G663)
50: (COMPILER::COMPILE-FUNCTION-GROUP (LAMBDA NIL NIL
(ENSURE-GENERIC-FUNCTION (QUOTE IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE)
:LAMBDA-LIST (QUOTE #) :INITIAL-METHODS (LIST #)) NIL) (:TOP-LEVEL-FORM
"l10n-application.lisp" 4505) COMPILER::EVALIT NIL NIL NIL)
51: (COMPILER::COMPILE-PROCESS-FORM (DEFGENERIC
IT.BESE.UCW::PROCESS-ACCEPT-LANGUAGE (IT.BESE.UCW::APPLICATION
IT.BESE.UCW:REQUEST) (:METHOD (# #) (IT.BESE.ARNESI:AWHEN # # #)))
#P"/Users/daniel/dev/lisp/ucw-boxset/ucw_ajax/src/l10n/l10n-application.fasl")
52: ((FLET COMPILE-FILE EXCL::CONTINUATION))
53: (COMPILE-FILE
#P"/Users/daniel/dev/lisp/ucw-boxset/ucw_ajax/src/l10n/l10n-application.lisp"
:OUTPUT-FILE
#P"/Users/daniel/dev/lisp/ucw-boxset/ucw_ajax/src/l10n/l10n-application.fasl")
54: ((METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE))
#<ASDF:COMPILE-OP NIL @ #x1056a12a>
#<IT.BESE.UCW.SYSTEM::LOCAL-CL-SOURCE-FILE "l10n-application" @
#x1057c842>)
55: ((:INTERNAL (:EFFECTIVE-METHOD 2 NIL NIL NIL T) 0) #<ASDF:COMPILE-OP
NIL @ #x1056a12a> #<IT.BESE.UCW.SYSTEM::LOCAL-CL-SOURCE-FILE
"l10n-application" @ #x1057c842>)
56: (FUNCALL #<Closure (:INTERNAL (:EFFECTIVE-METHOD 2 NIL NIL NIL T) 0)
@ #x10ed22e2> #<ASDF:COMPILE-OP NIL @ #x1056a12a>
#<IT.BESE.UCW.SYSTEM::LOCAL-CL-SOURCE-FILE "l10n-application" @
#x1057c842>)
57: (LET ((EXCL::*NEXT-METHODS* EXCL::.NEXT-METHODS.)) (FUNCALL
EXCL::.NEXT-METHOD. #:OP #:COMPONENT))
58: (LET NIL (IF EXCL::.NEXT-METHOD. (LET (#) (FUNCALL
EXCL::.NEXT-METHOD. . #1=(#:OP #:COMPONENT))) (EXCL::NO-NEXT-METHOD-ERROR
(QUOTE #:G190) . #1#)))
59: (LET ((*FEATURES* *FEATURES*)) (COND
(IT.BESE.UCW.SYSTEM:*LOAD-WITH-DEBUG-P* NIL (SETQ *FEATURES* #)))
(CALL-NEXT-METHOD))
60: (LET* ((IT.BESE.UCW.SYSTEM::OP #:OP) (ASDF:COMPONENT #:COMPONENT))
(DECLARE (SYSTEM::DISCRIMINATED-TYPE ASDF:OPERATION
IT.BESE.UCW.SYSTEM::OP) (SYSTEM::DISCRIMINATED-TYPE
IT.BESE.UCW.SYSTEM::LOCAL-CL-SOURCE-FILE ASDF:COMPONENT)) (PROGN
IT.BESE.UCW.SYSTEM::OP ASDF:COMPONENT) (BLOCK ASDF:PERFORM (LET (#) (COND
#) (CALL-NEXT-METHOD))))
61: (LET NIL (LET* ((IT.BESE.UCW.SYSTEM::OP #:OP) (ASDF:COMPONENT
#:COMPONENT)) (DECLARE (SYSTEM::DISCRIMINATED-TYPE ASDF:OPERATION
IT.BESE.UCW.SYSTEM::OP) (SYSTEM::DISCRIMINATED-TYPE
IT.BESE.UCW.SYSTEM::LOCAL-CL-SOURCE-FILE ASDF:COMPONENT)) (PROGN
IT.BESE.UCW.SYSTEM::OP ASDF:COMPONENT) (BLOCK ASDF:PERFORM (LET # # #))))
62: (FLET NIL (LET* ((IT.BESE.UCW.SYSTEM::OP #:OP) (ASDF:COMPONENT
#:COMPONENT)) (DECLARE (SYSTEM::DISCRIMINATED-TYPE ASDF:OPERATION
IT.BESE.UCW.SYSTEM::OP) (SYSTEM::DISCRIMINATED-TYPE
IT.BESE.UCW.SYSTEM::LOCAL-CL-SOURCE-FILE ASDF:COMPONENT)) (PROGN
IT.BESE.UCW.SYSTEM::OP ASDF:COMPONENT) (BLOCK ASDF:PERFORM (LET # # #))))
63: (LET NIL (FLET NIL (LET* (# #) (DECLARE # #) (PROGN
IT.BESE.UCW.SYSTEM::OP ASDF:COMPONENT) (BLOCK ASDF:PERFORM #))))
64: (MACROLET ((CALL-NEXT-METHOD (&REST EXCL::CNM-ARGS)
(EXCL::PRESERVE-CNM-ARGS #))) (FLET NIL (LET* (# #) (DECLARE # #) (PROGN
IT.BESE.UCW.SYSTEM::OP ASDF:COMPONENT) (BLOCK ASDF:PERFORM #))))
65: (LET ((EXCL::.NEXT-METHOD. (CAR EXCL::*NEXT-METHODS*))
(EXCL::.NEXT-METHODS. (CDR EXCL::*NEXT-METHODS*))) (MACROLET
((CALL-NEXT-METHOD # #)) (FLET NIL (LET* # # # #))))
66: ((METHOD ASDF:PERFORM :AROUND (ASDF:OPERATION
IT.BESE.UCW.SYSTEM::LOCAL-CL-SOURCE-FILE)) #<ASDF:COMPILE-OP NIL @
#x1056a12a> #<IT.BESE.UCW.SYSTEM::LOCAL-CL-SOURCE-FILE "l10n-application"
@ #x1057c842>)
67: ((:INTERNAL (:EFFECTIVE-METHOD 2 NIL NIL T T) 0) #<ASDF:COMPILE-OP
NIL @ #x1056a12a> #<IT.BESE.UCW.SYSTEM::LOCAL-CL-SOURCE-FILE
"l10n-application" @ #x1057c842>)
68: ((FLET ASDF:OPERATE EXCL::CONTINUATION))
69: (ASDF:OPERATE ASDF:LOAD-OP :UCW)
70: (ASDF:OOS ASDF:LOAD-OP :UCW)
71: (EVAL (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE)
(ASDF:OOS (QUOTE ASDF:LOAD-OP) :UCW) (ASDF:OOS (QUOTE ASDF:LOAD-OP)
:UCW.ADMIN) (ASDF:OOS (QUOTE ASDF:LOAD-OP) :UCW.EXAMPLES) (IGNORE-ERRORS
(ASDF:OOS # :UCW.EXAMPLES.L10N))))
72: (LOAD #P"/Users/daniel/dev/lisp/ucw-boxset/start-common.lisp")
73: (EVAL (LOAD (MERGE-PATHNAMES #P"start-common.lisp" *LOAD-TRUENAME*)))
74: (LOAD "~/dev/lisp/ucw-boxset/start-ajax.lisp")
75: (EVAL (LOAD "~/dev/lisp/ucw-boxset/start-ajax.lisp"))
76: (SWANK::EVAL-REGION "(load \"~/dev/lisp/ucw-boxset/start-ajax.lisp\")
" T)
77: ((:INTERNAL SWANK:LISTENER-EVAL 0))
78: ((:INTERNAL (:TOP-LEVEL-FORM "swank-allegro.lisp" 2092) 0) #<Closure
(:INTERNAL SWANK:LISTENER-EVAL 0) @ #x103d79a2>)
79: (SWANK-BACKEND:CALL-WITH-SYNTAX-HOOKS #<Closure (:INTERNAL
SWANK:LISTENER-EVAL 0) @ #x103d79a2>)
80: (SWANK::CALL-WITH-BUFFER-SYNTAX #<Closure (:INTERNAL
SWANK:LISTENER-EVAL 0) @ #x103d79a2>)
81: (SWANK:LISTENER-EVAL "(load \"~/dev/lisp/ucw-boxset/start-ajax.lisp\")
")
82: (EVAL (SWANK:LISTENER-EVAL "(load
\"~/dev/lisp/ucw-boxset/start-ajax.lisp\")
"))
83: ((:INTERNAL SWANK::EVAL-FOR-EMACS 0))
84: ((:INTERNAL (:TOP-LEVEL-FORM "swank-backend.lisp" 19979) 0)
#<Function SWANK-DEBUGGER-HOOK> #<Closure (:INTERNAL
SWANK::EVAL-FOR-EMACS 0) @ #x103d79d2>)
85: (SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK #<Function
SWANK-DEBUGGER-HOOK> #<Closure (:INTERNAL SWANK::EVAL-FOR-EMACS 0) @
#x103d79d2>)
86: (SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(load
\"~/dev/lisp/ucw-boxset/start-ajax.lisp\")
") "COMMON-LISP-USER" 9)
87: (FUNCALL SWANK::EVAL-FOR-EMACS (SWANK:LISTENER-EVAL "(load
\"~/dev/lisp/ucw-boxset/start-ajax.lisp\")
") "COMMON-LISP-USER" 9)
88: (SWANK::READ-FROM-EMACS)
89: ((:INTERNAL SWANK::HANDLE-REQUEST 0))
90: ((:INTERNAL (:TOP-LEVEL-FORM "swank-backend.lisp" 19979) 0)
#<Function SWANK-DEBUGGER-HOOK> #<Function (:INTERNAL
SWANK::HANDLE-REQUEST 0)>)
91: (SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK #<Function
SWANK-DEBUGGER-HOOK> #<Function (:INTERNAL SWANK::HANDLE-REQUEST 0)>)
92: ((:INTERNAL SWANK::CALL-WITH-CONNECTION 0))
93: (SWANK::CALL-WITH-REDIRECTED-IO #<SWANK::CONNECTION @ #x103c4bb2>
#<Closure (:INTERNAL SWANK::CALL-WITH-CONNECTION 0) @ #x103d7a2a>)
94: (SWANK::MAYBE-CALL-WITH-IO-REDIRECTION #<SWANK::CONNECTION @
#x103c4bb2> #<Closure (:INTERNAL SWANK::CALL-WITH-CONNECTION 0) @
#x103d7a2a>)
95: (SWANK::CALL-WITH-CONNECTION #<SWANK::CONNECTION @ #x103c4bb2>
#<Function (:INTERNAL SWANK::HANDLE-REQUEST 0)>)
96: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION @ #x103c4bb2>)
97: (SWANK::REPL-LOOP #<SWANK::CONNECTION @ #x103c4bb2>)
98: ((:INTERNAL (:INTERNAL SWANK::SPAWN-REPL-THREAD 0) 0))
99: (SWANK::CALL-WITH-BINDINGS NIL #<Closure (:INTERNAL (:INTERNAL
SWANK::SPAWN-REPL-THREAD 0) 0) @ #x103c4c12>)
100: ((:INTERNAL SWANK::SPAWN-REPL-THREAD 0))
More information about the bese-devel
mailing list