From: Stig E. S. <st...@ii...> - 2000-04-03 18:59:15
|
Naturally I had to run into more problems.. first with ACL and the PORT library and then with CMUCL which did not like CLLIB it seems. (And I can't see what either problem is, sorry if I supply too much useless info): stig@palomba(21:01)[~/Projects/sds/src/clisp] 1413> /local/software/acl5/lisp Allegro CL Trial Edition 5.0.1 [Linux/X86] (6/29/99 16:11) Copyright (C) 1985-1999, Franz Inc., Berkeley, CA, USA. All Rights Reserved. ;; Optimization settings: safety 1, space 1, speed 1, debug 2. ;; For a complete description of all compiler switches given the ;; current optimization settings evaluate (EXPLAIN-COMPILER-SETTINGS). Loaded patch file /local/software/acl5/update/p2a001.001. Loaded patch file /local/software/acl5/update/p2a001.002. Loaded patch file /local/software/acl5/update/p2a002.001. ;;; Installing step patch, version 1 Loaded patch file /local/software/acl5/update/p2a003.001. Loaded patch file /local/software/acl5/update/p2a004.001. Loaded patch file /local/software/acl5/update/p2a005.001. Loaded patch file /local/software/acl5/update/p2a006.001. Loaded patch file /local/software/acl5/update/p2b001.001. Loaded patch file /local/software/acl5/update/p2b003.001. Loaded patch file /local/software/acl5/update/p2b004.001. Loaded patch file /local/software/acl5/update/p2b006.001. Loaded patch file /local/software/acl5/update/p2j011.001. Loaded patch file /local/software/acl5/update/p2j011.002. USER(1): :ld initsystem ; Loading /home/stig/Projects/sds/src/clisp/initsystem.lisp ;;; Compiling file defsystem.lisp ;;; Writing fasl file defsystem.fasl ;;; Fasl write complete ; Fast loading /home/stig/Projects/sds/src/clisp/defsystem.fasl Warning: filesys: (cl . fasl) ; Loading /home/stig/Projects/sds/src/clisp/port/port.system ; Loading /home/stig/Projects/sds/src/clisp/cllib/cllib.system ; Loading /home/stig/Projects/sds/src/clisp/sds.system Loading all relevant SDS files (and a few extra..) ;;; Compiling file /home/stig/Projects/sds/src/clisp/port/ext.lsp ; While compiling (:TOP-LEVEL-FORM "ext.lsp" 1381): Warning: compile-file found "EXPORT" at the top-level -- see the documentation for comp:*cltl1-compile-file-toplevel-compatibility-p* ;;; Writing fasl file /home/stig/Projects/sds/src/clisp/port/ext.fasl ;;; Fasl write complete ; Fast loading /home/stig/Projects/sds/src/clisp/port/ext.fasl ;;; Compiling file /home/stig/Projects/sds/src/clisp/port/gray.lsp ;;; Writing fasl file /home/stig/Projects/sds/src/clisp/port/gray.fasl ;;; Fasl write complete ; Fast loading /home/stig/Projects/sds/src/clisp/port/gray.fasl ;;; Compiling file /home/stig/Projects/sds/src/clisp/port/net.lsp ; While compiling (:TOP-LEVEL-FORM "net.lsp" 1824): Warning: compile-file found "EXPORT" at the top-level -- see the documentation for comp:*cltl1-compile-file-toplevel-compatibility-p* ; While compiling SOCKET-ACCEPT: Warning: Variable BIN is never used. ;;; Writing fasl file /home/stig/Projects/sds/src/clisp/port/net.fasl ;;; Fasl write complete ; Fast loading /home/stig/Projects/sds/src/clisp/port/net.fasl ;;; Compiling file /home/stig/Projects/sds/src/clisp/port/proc.lsp ; While compiling (:TOP-LEVEL-FORM "proc.lsp" 1530): Warning: compile-file found "EXPORT" at the top-level -- see the documentation for comp:*cltl1-compile-file-toplevel-compatibility-p* ; While compiling WITH-TIMEOUT: Warning: Free reference to undeclared variable BODYF assumed special. ; While compiling Y-OR-N-P-TIMEOUT: Error: Attempt to take the value of the unbound variable `BODYF'. [condition type: UNBOUND-VARIABLE] Restart actions (select using :continue): 0: Try evaluating BODYF again. 1: Set the symbol-value of BODYF and use its value. 2: Use a value without setting BODYF. 3: retry the compilation of /home/stig/Projects/sds/src/clisp/port/proc.lsp 4: continue compiling /home/stig/Projects/sds/src/clisp/port/proc.lsp but generate no output file 5: retry the load of initsystem 6: skip loading initsystem 7: Abort #<PROCESS Initial Lisp Listener> [changing package from "COMMON-LISP-USER" to "PORT"] [1] ORG.CONS.CLOCC/SDS/PORT(2): :zo Evaluation stack: (ERROR #<UNBOUND-VARIABLE @ #x204a2122>) ->(SYS::..CONTEXT-SAVING-RUNTIME-OPERATION) (LET (#) `(FLET # #)) [... EXCL::EVAL-AS-PROGN ] (LET* (# # # ...) (DECLARE #) ...) [... EXCL::EVAL-AS-PROGN ] (LET* NIL (LET* # # ...)) (WITH-TIMEOUT (WITH-TIMEOUT # #) (:COMPILATION-ENVIRONMENT NIL)) (FUNCALL #<Interpreted Function WITH-TIMEOUT @ #x2049bf5a> (WITH-TIMEOUT # #) ...) (COMP::TRANS (WITH-TIMEOUT # #)) (COMP::PA-COMPILE (WITH-TIMEOUT # #) COMP::TAIL) [ COMP::PA-PROGN ] ... more older frames ... ------------ But CMUCL got further until it crashed in CLLIB and log.lsp: (The CMUCL is the safe Debian stig@palomba(21:03)[~/Projects/sds/src/clisp] 1414> lisp CMU Common Lisp release x86-linux 2.4.19 8 February 2000 build 455, running on palomba ) ; - Compiling defsystem "cllib" ; - Loading binary file "/home/stig/Projects/sds/src/clisp/cllib/base.x86f" ;; Loading #p"/home/stig/Projects/sds/src/clisp/cllib/base.x86f". ; - Loading binary file ; "/home/stig/Projects/sds/src/clisp/cllib/withtype.x86f" ;; Loading #p"/home/stig/Projects/sds/src/clisp/cllib/withtype.x86f". ; - Loading binary file ; "/home/stig/Projects/sds/src/clisp/cllib/tilsla.x86f" ;; Loading #p"/home/stig/Projects/sds/src/clisp/cllib/tilsla.x86f". ; - Compiling source file "/home/stig/Projects/sds/src/clisp/cllib/log.lsp" Python version 1.0, VM version Intel x86 on 03 APR 00 09:05:17 pm. Compiling: /home/stig/Projects/sds/src/clisp/cllib/log.lsp 03 APR 00 08:57:01 pm Byte Compiling Top-Level Form: Converted LIST-FORMAT. Compiling DEFUN LIST-FORMAT: Error in function "EMIT-COLD-LOAD-DEFUNS \"TYPE\"": Bound is not *, a DOUBLE-FLOAT or a list of a DOUBLE-FLOAT: 0.0 Restarts: 0: [CONTINUE] Return NIL from load of "initsystem". 1: [ABORT ] Return to Top-Level. Debug (type H for help) ("EMIT-COLD-LOAD-DEFUNS \"TYPE\"" (DOUBLE-FLOAT 0.0)) Source: Error finding source: Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists: target:code/type.lisp. 0] backtrace 0: ("EMIT-COLD-LOAD-DEFUNS \"TYPE\"" (DOUBLE-FLOAT 0.0)) 1: (KERNEL:VALUES-SPECIFIER-TYPE (DOUBLE-FLOAT 0.0)) 2: (C::DO-THE-STUFF (DOUBLE-FLOAT 0.0) #<Continuation c1> #S(C::LEXENV :FUNCTIONS NIL :VARIABLES NIL :BLOCKS NIL :TAGS NIL :TYPE-RESTRICTIONS NIL ...) VALUES) 3: (C::PROCESS-DECLARATIONS ((DECLARE #)) (#<C::LAMBDA-VAR #x483682D5 NAME= RUN ARG-INFO= #<C::ARG-INFO 48368315>>) NIL #<Continuation c1> ...) 4: (C::IR1-CONVERT-LAMBDA (LAMBDA (&OPTIONAL #) (DECLARE #) (BLOCK GET-FLOAT-TIME #)) GET-FLOAT-TIME DEFUN) 5: (C::IR1-CONVERT-LAMBDA-FOR-DEFUN (LAMBDA (&OPTIONAL #) (DECLARE #) (BLOCK GET-FLOAT-TIME #)) #<C::DEFINED-FUNCTION #x48368275 NAME= GET-FLOAT-TIME INLINEP= NIL> (LAMBDA (&OPTIONAL #) (DECLARE #) (BLOCK GET-FLOAT-TIME #)) #<Function C::IR1-CONVERT-LAMBDA {1089FE59}> ...) 6: (C::IR1-CONVERT-%DEFUN #<Continuation c2> #<Continuation c3> (C::%DEFUN 'GET-FLOAT-TIME #'(LAMBDA # # #) "Return the run (or real) time counter, as a double float." '(DEFUN GET-FLOAT-TIME # "Return the run (or real) time counter, as a double float." # ...))) 7: (C::IR1-CONVERT #<Continuation c2> #<Continuation c3> (C::%DEFUN 'GET-FLOAT-TIME #'(LAMBDA # # #) "Return the run (or real) time counter, as a double float." '(DEFUN GET-FLOAT-TIME # "Return the run (or real) time counter, as a double float." # ...))) 8: (C::IR1-CONVERT-PROGN-BODY #<Continuation c2> #<Continuation c4> ((C::%DEFUN 'GET-FLOAT-TIME #'# "Return the run (or real) time counter, as a double float." '#) NIL)) 9: (C::IR1-CONVERT-PROGN-BODY 3 #<Continuation c2> #<Continuation c4> ((C::%DEFUN 'GET-FLOAT-TIME #'# "Return the run (or real) time counter, as a double float." '#) NIL))[:EXTERNAL] 10: (C::IR1-CONVERT-AUX-BINDINGS #<Continuation c2> #<Continuation c4> ((C::%DEFUN 'GET-FLOAT-TIME #'# "Return the run (or real) time counter, as a double float." '#) NIL) NIL ...) 11: (C::IR1-CONVERT-SPECIAL-BINDINGS #<Continuation c2> #<Continuation c4> ((C::%DEFUN 'GET-FLOAT-TIME #'# "Return the run (or real) time counter, as a double float." '#) NIL) NIL ...) 12: (C::IR1-CONVERT-LAMBDA-BODY ((C::%DEFUN 'GET-FLOAT-TIME #'# "Return the run (or real) time counter, as a double float." '#) NIL) NIL NIL NIL ...) 13: (C::IR1-CONVERT-LAMBDA-BODY 2 ((C::%DEFUN 'GET-FLOAT-TIME #'# "Return the run (or real) time counter, as a double float." '#) NIL) NIL #<C:COMPONENT #x48367805 NAME= "initial component"> ...)[:EXTERNAL] 14: (C::IR1-TOP-LEVEL (C::%DEFUN 'GET-FLOAT-TIME #'(LAMBDA # # #) "Return the run (or real) time counter, as a double float." '(DEFUN GET-FLOAT-TIME # "Return the run (or real) time counter, as a double float." # ...)) ((C::%DEFUN 'GET-FLOAT-TIME #'# "Return the run (or real) time counter, as a double float." '#) C::ORIGINAL-SOURCE-START 0 5) NIL) 15: (C::CONVERT-AND-MAYBE-COMPILE (C::%DEFUN 'GET-FLOAT-TIME #'(LAMBDA # # #) "Return the run (or real) time counter, as a double float." '(DEFUN GET-FLOAT-TIME # "Return the run (or real) time counter, as a double float." # ...)) ((C::%DEFUN 'GET-FLOAT-TIME #'# "Return the run (or real) time counter, as a double float." '#) C::ORIGINAL-SOURCE-START 0 5)) 16: (C::PROCESS-FORM (C::%DEFUN 'GET-FLOAT-TIME #'(LAMBDA # # #) "Return the run (or real) time counter, as a double float." '(DEFUN GET-FLOAT-TIME # "Return the run (or real) time counter, as a double float." # ...)) (C::ORIGINAL-SOURCE-START 0 5)) 17: (C::PROCESS-FORM (DEFUN GET-FLOAT-TIME (&OPTIONAL #) "Return the run (or real) time counter, as a double float." (DECLARE #) ...) (C::ORIGINAL-SOURCE-START 0 5)) 18: (C::PROCESS-FORM 2 (DEFUN GET-FLOAT-TIME (&OPTIONAL #) "Return the run (or real) time counter, as a double float." (DECLARE #) ...) (C::ORIGINAL-SOURCE-START 0 5))[:EXTERNAL] 19: (C::PROCESS-SOURCES #<Source-Info>) 20: (#:G0) 21: (C::SUB-COMPILE-FILE #<Source-Info> NIL) 22: (C::SUB-COMPILE-FILE 1 #<Source-Info> 0)[:EXTERNAL] 23: (COMPILE-FILE "/home/stig/Projects/sds/src/clisp/cllib/log.lsp" :OUTPUT-FILE "/home/stig/Projects/sds/src/clisp/cllib/log.x86f" :ERROR-FILE ...) 24: (MAKE::COMPILE-FILE-OPERATION #<FILE: log> :NEW-SOURCE-AND-DEPENDENTS) 25: (MAKE::COMPILE-AND-LOAD-OPERATION #<FILE: log> :NEW-SOURCE-AND-DEPENDENTS) 26: (MAKE::OPERATE-ON-COMPONENT #<FILE: log> COMPILE :NEW-SOURCE-AND-DEPENDENTS) 27: (MAKE::OPERATE-ON-COMPONENTS #<DEFSYSTEM: cllib> COMPILE :NEW-SOURCE-AND-DEPENDENTS NIL) 28: (MAKE::OPERATE-ON-COMPONENT #<DEFSYSTEM: cllib> COMPILE :NEW-SOURCE-AND-DEPENDENTS) 29: (MAKE:OPERATE-ON-SYSTEM COMMON-LISP-USER::CLLIB COMPILE :FORCE NIL ...) 30: ("Top-Level Form")[:TOP-LEVEL] 31: ("Top-Level Form")[:TOP-LEVEL] 32: (COMMON-LISP::SLOLOAD #<Stream for file "/home/stig/Projects/sds/src/clisp/initsystem.lisp">) 33: (COMMON-LISP::INTERNAL-LOAD #p"initsystem.lisp" #p"/home/stig/Projects/sds/src/clisp/initsystem.lisp" :ERROR :SOURCE) 34: (LOAD "initsystem" :VERBOSE NIL :PRINT ...) 35: (EXTENSIONS:INTERACTIVE-EVAL (LOAD "initsystem")) 36: (COMMON-LISP::%TOP-LEVEL) 37: (COMMON-LISP::RESTART-LISP) 0] ------------------------------------------------------------------ Stig Erik Sandoe st...@ii... http://www.ii.uib.no/~stig/ |