From: Josip G. <gr...@te...> - 2006-10-01 21:28:56
|
Hello! A test fails when compiling CLisp 2.40 on Solaris x86 SXCE build46, 32-bit. Compiling with gcc 3.4.5 and using: ./configure --with-libsigsegv-prefix=${prefix} --prefix=/opt/clisp-2.40 --build File mop.erg contains: Form: (LET (CONSTRUCTOR) (DEFCLASS CONSTRUCTOR NIL ((NAME :INITARG :NAME :ACCESSOR CONSTRUCTOR-NAME) (FIELDS :INITARG :FIELDS :ACCESSOR CONSTRUCTOR-FIELDS)) (:METACLASS FUNCALLABLE-STANDARD-CLASS)) (DEFMETHOD INITIALIZE-INSTANCE :AFTER ((C CONSTRUCTOR) &KEY) (WITH-SLOTS (NAME FIELDS) C (SET-FUNCALLABLE-INSTANCE-FUNCTION C #'(LAMBDA NIL (LET ((NEW (MAKE-ARRAY (1+ (LENGTH FIELDS))))) (SETF (AREF NEW 0) NAME) NEW))))) (SETQ CONSTRUCTOR (MAKE-INSTANCE 'CONSTRUCTOR :NAME 'POSITION :FIELDS '(X Y))) (LIST (STRINGP (WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (DESCRIBE CONSTRUCTOR))) (FUNCALL CONSTRUCTOR))) CORRECT: (T #(POSITION NIL NIL)) CLISP : ERROR SYSTEM::%RECORD-REF: #<SYSTEM-FUNCTION POSITION> is not a record |