From: June Ho Yi
Subject: compilation error of CLX R5 in Lucid 4.0
Date:
Message-ID: <384a6h$nnu@galaxy.ucr.edu>
I could not succeed in compiling CLX R5 in Lucid 4.0 (with SunOS 4.1).
Would someone out there enlighten me what is the problem? The
following is the log during compilation. It broke during compilation
of input.lisp. I prefer your direct response to my email address.
Thank you in advance.
ยทยท@vislab.ucr.edu
;;;================================================================
> (load "defsystem.lisp")
;;; Loading source file "defsystem.lisp"
#P"/export/home4/yi/lisp/clx-r5/defsystem.lisp"
> (compile-clx)
;;; Default paths: #P"" #P""
;;; You are using the compiler in PRODUCTION mode (compilation-speed = 0)
;;; If you want shorter compile time at the expense of reduced optimization,
;;; you should use the development mode of the compiler, which can be obtained
;;; by evaluating (proclaim '(optimize (compilation-speed 3)))
;;; Generation of argument count checking code is enabled (safety = 1)
;;; Optimization of tail calls is enabled (speed = 3)
;;; Reading source file "package.lisp"
;;; Expanding Reserved Memory
;;; GC: 36534 words [146136 bytes] of dynamic storage in use.
;;; 422216 words [1688864 bytes] of free storage available before a GC.
;;; 880966 words [3523864 bytes] of free storage available if GC is disabled.
;;; Writing binary file "package.sbin"
;;; Loading binary file "package.sbin"
;;; cc -c socket.c -o socket.o -DUNIXCONN
;;; Loading foreign object file "socket.o"
;;; Reading library file "/lib/libc.a"
;;; Reading library file "/lib/libc.a"
;;; Reading source file "depdefs.lisp"
;;; Writing binary file "depdefs.sbin"
;;; Loading binary file "depdefs.sbin"
;;; Reading source file "clx.lisp"
;;; Writing binary file "clx.sbin"
;;; Loading binary file "clx.sbin"
;;; Reading source file "dependent.lisp"
;;; GC: 120914 words [483656 bytes] of dynamic storage in use.
;;; 337836 words [1351344 bytes] of free storage available before a GC.
;;; 796586 words [3186344 bytes] of free storage available if GC is disabled.
;;; Writing binary file "dependent.sbin"
;;; Loading binary file "dependent.sbin"
;;; Reading source file "macros.lisp"
;;; Writing binary file "macros.sbin"
;;; Loading binary file "macros.sbin"
;;; Reading source file "bufmac.lisp"
;;; Writing binary file "bufmac.sbin"
;;; Loading binary file "bufmac.sbin"
;;; Reading source file "buffer.lisp"
;;; Writing binary file "buffer.sbin"
;;; Loading binary file "buffer.sbin"
;;; Reading source file "display.lisp"
;;; GC: 163792 words [655168 bytes] of dynamic storage in use.
;;; 294958 words [1179832 bytes] of free storage available before a GC.
;;; 753708 words [3014832 bytes] of free storage available if GC is disabled.
;;; Writing binary file "display.sbin"
;;; Loading binary file "display.sbin"
;;; Reading source file "gcontext.lisp"
;;; GC: 150976 words [603904 bytes] of dynamic storage in use.
;;; 307774 words [1231096 bytes] of free storage available before a GC.
;;; 766524 words [3066096 bytes] of free storage available if GC is disabled.
;;; GC: 172698 words [690792 bytes] of dynamic storage in use.
;;; 286052 words [1144208 bytes] of free storage available before a GC.
;;; 744802 words [2979208 bytes] of free storage available if GC is disabled.
;;; Writing binary file "gcontext.sbin"
;;; Loading binary file "gcontext.sbin"
;;; Reading source file "input.lisp"
;;; GC: 221524 words [886096 bytes] of dynamic storage in use.
;;; 237226 words [948904 bytes] of free storage available before a GC.
;;; 695976 words [2783904 bytes] of free storage available if GC is disabled.
;;; Expanding Reserved Memory
;;; GC: 193654 words [774616 bytes] of dynamic storage in use.
;;; 265096 words [1060384 bytes] of free storage available before a GC.
;;; 723846 words [2895384 bytes] of free storage available if GC is disabled.
>>Error: The value of FUNCTION, (LAMBDA (DISPLAY EVENT) (LIST* :ERROR-CODE (AREF # 1) (DECODE-CORE-ERROR DISPLAY EVENT))), should be a FUNCTION
LAMBDA:
Original code: (LAMBDA (#:FORM #:ENVIRONMENT) (DECLARE (ARGLIST #)) (BLOCK DEFINE-ERROR (LET* # # # # #)))
Required arg 0 (FORM): (DEFINE-ERROR UNKNOWN-ERROR (LAMBDA (DISPLAY EVENT) (LIST* :ERROR-CODE # #)))
Required arg 1 (ENVIRONMENT): (NIL NIL NIL NIL NIL NIL NIL LUCID::ALPHALEX)
:C 0: Use a new value
1: Try compiling #P"input" again
:A 2: Abort to Lisp Top Level
->
Looks like a problem integrating with DEFINE-CONDITION, which is done under
conditional compilation. Is Lucid up to ANSI yet? I think not, which may be
part of the problem.
Rob