OK. Finally, I could get the CVS version of ILISP. But bad luck again,
see below.
Nicolas.
---------------------------------------------------------------------------
ILISP: File is not compiled, use M-x ilisp-compile-inits
* ;;; Loading /home/neuss/CL-HOME/ILISP/find-src
; Loading #p"/home/neuss/CL-HOME/ILISP/find-src.lisp".
; Compiling LAMBDA (PCL::.PV-CELL. PCL::.NEXT-METHOD-CALL. CLASS):
; In: LAMBDA (PCL::.PV-CELL. PCL::.NEXT-METHOD-CALL. CLASS)
; (KERNEL::STRUCTURE-CLASS-NAME CLASS)
; ==>
; CLASS
; Warning: Result is a STRUCTURE-CLASS, not a (VALUES &OPTIONAL
KERNEL::STRUCTURE-CLASS &REST T).
;
; Note: Deleting unreachable code.
;
; Compiling Top-Level Form:
; Compilation unit finished.
; 1 warning
; 1 note
; Compiling LAMBDA (PCL::.PV-CELL. PCL::.NEXT-METHOD-CALL. OBJECT):
; Compiling Top-Level Form:
; Compiling LAMBDA (PCL::.PV-CELL. PCL::.NEXT-METHOD-CALL. OBJECT):
; Compiling Top-Level Form:
; Compiling LAMBDA (PCL::.PV-CELL. PCL::.NEXT-METHOD-CALL. OBJECT):
; Compiling Top-Level Form:
Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER:
#<STRUCTURE-CLASS EVAL:INTERPRETED-FUNCTION
{4845311D}> is not of type KERNEL::STRUCTURE-CLASS
[Condition of type TYPE-ERROR]
Restarts:
0: [CONTINUE] Return NIL from load of "/home/neuss/CL-HOME/ILISP/find-src".
1: [ABORT ] Return to Top-Level.
Debug (type H for help)
((FAST-METHOD CLASS-NAME (STRUCTURE-CLASS)) #<#1=unused-arg> #<#1#>
#<STRUCTURE-CLASS EVAL:INTERPRETED-FUNCTION {4845311D}>)
Source: (KERNEL::STRUCTURE-CLASS-NAME CLASS)
0] 1
* ;;;Compile /home/neuss/CL-HOME/ILISP/ilisp-pkg.lisp
; Python version 1.1, VM version Intel x86 on 23 JUN 03 06:27:31 pm.
; Compiling: /home/neuss/CL-HOME/ILISP/ilisp-pkg.lisp 02 APR 03 03:56:20 am
; /home/neuss/CL-HOME/ILISP/ilisp-pkg.x86f written.
; Compilation finished in 0:00:00.
#p"/home/neuss/CL-HOME/ILISP/ilisp-pkg.x86f"
NIL
NIL
* ;;;Compile /home/neuss/CL-HOME/ILISP/cl-ilisp.lisp
; Python version 1.1, VM version Intel x86 on 23 JUN 03 06:27:31 pm.
; Compiling: /home/neuss/CL-HOME/ILISP/cl-ilisp.lisp 02 APR 03 03:56:20 am
; Converted THE-SYMBOL-IF-DEFINED.
; Compiling DEFMACRO THE-SYMBOL-IF-DEFINED:
; Byte Compiling Top-Level Form:
; Compilation unit aborted.
; Compilation aborted after 0:00:00.
"ILISP: (while making load form for #<C::GLOBAL-VAR #x48538585
NAME= CONDITIONS::*HANDLER-CLUSTERS*
KIND= :SPECIAL>)
Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER:
#<STRUCTURE-CLASS C::LEAF {48539945}> is not of type KERNEL::STRUCTURE-CLASS"
* ;;;Compile /home/neuss/CL-HOME/ILISP/cmulisp
; Python version 1.1, VM version Intel x86 on 23 JUN 03 06:27:31 pm.
; Compiling: /home/neuss/CL-HOME/ILISP/cmulisp.lisp 14 MAY 03 10:00:58 pm
; Compiling WHEN (AND *FIX-PIPE-STREAMS* (LISP::SYNONYM-STREAM-P *TERMINAL-IO*) (EQ #
#)):
; Byte Compiling Top-Level Form:
; Converted POP-DEBUG-COMMAND.
; Compiling DEBUG::DEF-DEBUG-COMMAND "POP":
; Compilation unit aborted.
; Compilation aborted after 0:00:01.
"ILISP: (while making load form for #<C::NLX-INFO #x485E75E5
CONTINUATION= #<Continuation c1>
TARGET= NIL
INFO= NIL>)
Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER:
#<STRUCTURE-CLASS C::NLX-INFO
{485E83DD}> is not of type KERNEL::STRUCTURE-CLASS"
* ;;;Compile /home/neuss/CL-HOME/ILISP/find-src
; Python version 1.1, VM version Intel x86 on 23 JUN 03 06:27:32 pm.
; Compiling: /home/neuss/CL-HOME/ILISP/find-src.lisp 12 APR 03 04:05:15 am
; Converted ILISP-FIND-CLASS.
; Compiling DEFUN ILISP-FIND-CLASS:
; Byte Compiling Top-Level Form:
; Compiling DEFMETHOD CLASS-NAME (STRUCTURE-CLASS):
;
;
; File: /home/neuss/CL-HOME/ILISP/find-src.lisp
; In: DEFMETHOD CLASS-NAME (STRUCTURE-CLASS)
; (KERNEL::STRUCTURE-CLASS-NAME CLASS)
; ==>
; CLASS
; Warning: Result is a STRUCTURE-CLASS, not a (VALUES &OPTIONAL
KERNEL::STRUCTURE-CLASS &REST T).
;
; Note: Deleting unreachable code.
;
; Compilation unit aborted.
; 1 warning
; 1 note
; Compilation aborted after 0:00:00.
"ILISP: (while making load form for #<C::GLOBAL-VAR #x486C31C5
NAME= CONDITIONS::*HANDLER-CLUSTERS*
KIND= :SPECIAL>)
Type-error in KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER:
#<STRUCTURE-CLASS C::LEAF {486C471D}> is not of type KERNEL::STRUCTURE-CLASS"
*
