[Bese-devel] compilation error for ucw 0.2.3 with cmucl18e
Kristian Elof Sørensen
elof at image.dk
Mon Aug 2 14:16:48 UTC 2004
Hi
I downloaded version 0.2.3 from
http://www.common-lisp.net/project/ucw/download.html and installed
iterate from the url given in docs/INSTALL, the rest of the stuff I had
already. I put symlinks to all four *.asd files in the ucw distro into
my systems directory and called (asdf:oos 'asdf:load-op :ucw)
However compilation fails. This is on CMUCL 18e on Linun on a PC.
re-trying so asdf skips the steps that got successfully compiled the
first time gives:
CL-USER> (asdf:oos 'asdf:load-op :ucw)
; Python version 1.1, VM version Intel x86 on 02 AUG 04 03:41:05 pm.
; Compiling:
/home/elof/prog/tests/lisp/Foreign_Code/ucw_0.2.3/src/rerl/standard-component.lisp
14 JUN 04 05:29:12 pm
; Byte Compiling Top-Level Form:
; Byte Compiling Top-Level Form:
; Compiling DEFMETHOD SHARED-INITIALIZE :AFTER (STANDARD-COMPONENT T):
; Byte Compiling Top-Level Form:
; Compiling DEFMETHOD/CC GOTO-COMPONENT:
;
;
; File:
/home/elof/prog/tests/lisp/Foreign_Code/ucw_0.2.3/src/rerl/standard-component.lisp
; In: DEFMETHOD/CC CALL-COMPONENT
; (DEFMETHOD/CC CALL-COMPONENT
; (# #)
; "Set the place associated with FROM to TO."
; (LET/CC K # # TO))
; --> PROGN DEFMETHOD PROGN EVAL-WHEN PCL::LOAD-DEFMETHOD
PCL::LOAD-DEFMETHOD
; --> LIST* LAMBDA FUNCTION MACROLET PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> PCL::BIND-LEXICAL-METHOD-FUNCTIONS PCL::CALL-NEXT-METHOD-BIND LET
FLET
; --> PCL::BIND-ARGS LET* BLOCK LET IT.BESE.ARNESI::DRIVE-CPS PROGN LAMBDA
; --> FUNCTION FUNCALL C::%FUNCALL FUNCALL C::%FUNCALL FUNCTION
; ==>
; (FLET (#)
; (PROGN # # #)
; (FUNCALL # TO)
; TO)
; Note: Deleting unused function
; #:G2
;
; Compiling DEFMETHOD/CC CALL-COMPONENT:
; Compiling DEFMETHOD ANSWER-COMPONENT (STANDARD-COMPONENT T):
;
;
; File:
/home/elof/prog/tests/lisp/Foreign_Code/ucw_0.2.3/src/rerl/standard-component.lisp
; In: DEFMETHOD/CC REPLACE-COMPONENT
; (DEFMETHOD/CC REPLACE-COMPONENT (# #) (LET/CC K # TO))
; --> PROGN DEFMETHOD PROGN EVAL-WHEN PCL::LOAD-DEFMETHOD
PCL::LOAD-DEFMETHOD
; --> LIST* LAMBDA FUNCTION MACROLET PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> PCL::BIND-LEXICAL-METHOD-FUNCTIONS PCL::CALL-NEXT-METHOD-BIND LET
FLET
; --> PCL::BIND-ARGS LET* BLOCK LET IT.BESE.ARNESI::DRIVE-CPS LAMBDA
FUNCTION
; --> FUNCALL C::%FUNCALL FUNCALL C::%FUNCALL FUNCTION
; ==>
; (FLET (#)
; (PROGN # # # #)
; TO)
; Note: Deleting unused function
; #:G2
;
; Compiling DEFMETHOD/CC REPLACE-COMPONENT:
; Byte Compiling Top-Level Form:
;
; Error: (during macroexpansion)
; Execution of a form compiled with errors:
; (LET ((CLASS NIL)
; (IT.BESE.YACLML::ID NIL)
; (IT.BESE.YACLML::STYLE NIL) ..))
;
; Converted GEN-COMPONENT-SHARED-INITIALIZE.
; Compiling DEFUN GEN-COMPONENT-SHARED-INITIALIZE:
; Converted GEN-COMPONENT-DEFAULT-RENDER-ON.
; Compiling DEFUN GEN-COMPONENT-DEFAULT-RENDER-ON:
; Converted GEN-COMPONENT-NAMED-ACTION.
; Compiling DEFUN GEN-COMPONENT-NAMED-ACTION:
; Converted DEFCOMPONENT.
; Compiling DEFMACRO DEFCOMPONENT:
; Byte Compiling Top-Level Form:
; Compiling DEFCLASS TRANSACTION:
; Compiling DEFCLASS TRANSACTION:
; Compiling DEFMETHOD/CC OPEN-TRANSACTION:
; Byte Compiling Top-Level Form:
;
;
; File:
/home/elof/prog/tests/lisp/Foreign_Code/ucw_0.2.3/src/rerl/standard-component.lisp
; In: DEFMETHOD/CC CLOSE-TRANSACTION
; (DEFMETHOD/CC CLOSE-TRANSACTION (#) (LET/CC K #))
; --> PROGN DEFMETHOD PROGN EVAL-WHEN PCL::LOAD-DEFMETHOD
PCL::LOAD-DEFMETHOD
; --> LIST* LAMBDA FUNCTION MACROLET PCL::FAST-LEXICAL-METHOD-FUNCTIONS
; --> PCL::BIND-FAST-LEXICAL-METHOD-MACROS MACROLET
; --> PCL::BIND-LEXICAL-METHOD-FUNCTIONS PCL::CALL-NEXT-METHOD-BIND LET
FLET
; --> PCL::BIND-ARGS LET* PCL::PV-BINDING PCL::PV-BINDING1 PCL::PV-ENV
LET LET
; --> BLOCK LET IT.BESE.ARNESI::DRIVE-CPS LAMBDA FUNCTION FUNCALL
C::%FUNCALL
; --> FUNCALL C::%FUNCALL FUNCTION
; ==>
; (FLET (#)
; (LET #
; #
; #
; #:CPS-LET-G3-4 ..))
; Note: Deleting unused function
; #:G2
;
; Compiling DEFMETHOD/CC CLOSE-TRANSACTION:
; Byte Compiling Top-Level Form:
;
/home/elof/prog/tests/lisp/Foreign_Code/ucw_0.2.3/src/rerl/standard-component.x86f
written.
; Compilation finished in 0:00:01.
Warning:
COMPILE-FILE warned while performing #<COMPILE-OP NIL {4947E705}> on
#<CL-SOURCE-FILE "standard-component" {48689FC5}>.
Warning:
COMPILE-FILE failed while performing #<COMPILE-OP NIL {4947E705}> on
#<CL-SOURCE-FILE "standard-component" {48689FC5}>.
; Loading
#p"/home/elof/prog/tests/lisp/Foreign_Code/ucw_0.2.3/src/rerl/standard-component.x86f".
In the sldb window:
Execution of a form compiled with errors:
(DEFMETHOD IT.BESE.UCW:RENDER-ON
:AROUND
((IT.BESE.UCW:RESPONSE IT.BESE.UCW:RESPONSE)
(IT.BESE.UCW::COMPONENT IT.BESE.UCW:STANDARD-COMPONENT))
(RESTART-CASE
(IT.BESE.YACLML:WITH-YACLML-STREAM
(IT.BESE.UCW:CONTENT-STREAM IT.BESE.UCW:RESPONSE)
(PROG1 (CALL-NEXT-METHOD)
(WHEN IT.BESE.UCW::*INSPECT-COMPONENTS*
(IT.BESE.YACLML.TAGS:A :HREF
(IT.BESE.UCW::ACTION-HREF
(LAMBDA ()
(IT.BESE.UCW::UCW-INSPECT
IT.BESE.UCW::COMPONENT
IT.BESE.UCW::COMPONENT)))
(IT.BESE.YACLML.TAGS:SPAN :STYLE
"font-size: 8pt;"
"Inspect this "
(IT.BESE.YACLML.TAGS:TT
(IT.BESE.YACLML.TAGS:AS-HTML
(TYPE-OF
IT.BESE.UCW::COMPONENT))))))))
(IT.BESE.UCW::RETRY NIL :REPORT "Retry rendering the
component."
(RETURN-FROM IT.BESE.UCW:RENDER-ON
(IT.BESE.UCW:RENDER-ON IT.BESE.UCW:RESPONSE
IT.BESE.UCW::COMPONENT)))))
[Condition of type KERNEL:SIMPLE-PROGRAM-ERROR]
Restarts:
0: [CONTINUE] Return NIL from load of
#p"/home/elof/prog/tests/lisp/Foreign_Code/ucw_0.2.3/src/rerl/standard-component.x86f".
1: [RETRY] Retry performing #<ASDF:LOAD-OP NIL {498F73E5}> on
#<ASDF:CL-SOURCE-FILE "standard-component" {48689FC5}>.
2: [ACCEPT] Continue, treating #<ASDF:LOAD-OP NIL {498F73E5}> on
#<ASDF:CL-SOURCE-FILE "standard-component" {48689FC5}> as having been
successful.
3: [ABORT] Abort handling SLIME request.
4: [ABORT] Return to Top-Level.
Backtrace:
0: (C::DO-CALL #<Code Object "Top-Level Form" {48258EC7}> 26 27 4 ...)
1: (COMMON-LISP::FOP-FUNCALL-FOR-EFFECT)
2: (COMMON-LISP::LOAD-GROUP #<Stream for file
"/home/elof/prog/tests/lisp/Foreign_Code/ucw_0.2.3/src/rerl/standard-component.x86f">)
3: (COMMON-LISP::FASLOAD #<Stream for file
"/home/elof/prog/tests/lisp/Foreign_Code/ucw_0.2.3/src/rerl/standard-component.x86f">)
4: (COMMON-LISP::INTERNAL-LOAD
#p"/home/elof/prog/tests/lisp/Foreign_Code/ucw_0.2.3/src/rerl/standard-component.x86f"
#p"/home/elof/prog/tests/lisp/Foreign_Code/ucw_0.2.3/src/rerl/standard-component.x86f"
:ERROR :BINARY)
5: (COMMON-LISP::INTERNAL-LOAD
#p"/home/elof/prog/tests/lisp/Foreign_Code/ucw_0.2.3/src/rerl/standard-component.x86f"
#p"/home/elof/prog/tests/lisp/Foreign_Code/ucw_0.2.3/src/rerl/standard-component.x86f"
:ERROR NIL)
6: (LOAD
#p"/home/elof/prog/tests/lisp/Foreign_Code/ucw_0.2.3/src/rerl/standard-component.x86f"
:VERBOSE NIL :PRINT ...)
7: ("DEFMETHOD PERFORM (LOAD-OP CL-SOURCE-FILE)" #<#1=unused-arg>
#<#1#> #<ASDF:LOAD-OP NIL {498F73E5}> #<ASDF:CL-SOURCE-FILE
"standard-component" {48689FC5}>)
8: ("LAMBDA (PCL::EFFECTIVE-METHOD-GENSYM-0
PCL::EFFECTIVE-METHOD-GENSYM-1 PCL::EFFECTIVE-METHOD-GENSYM-2)"
#<#1=unused-arg> #<#1#> #<ASDF:LOAD-OP NIL {498F73E5}>
#<ASDF:CL-SOURCE-FILE "standard-component" {48689FC5}>)
9: (#:G0)
10: (ASDF:OPERATE ASDF:LOAD-OP :UCW)
11: (ASDF:OPERATE 2 ASDF:LOAD-OP :UCW)[:EXTERNAL]
--more--
More information about the bese-devel
mailing list