While compiling the package com.informatimago.common-lisp.unix.option, abcl 1.3.1 fails with the following error, apparently on:
(defstruct option "An option structure." keys arguments documentation function)
It fails similarly to compile com.informatimago.tools.script, which contains this other (unrelated) structure:
(defstruct option keys arguments documentation function)
It can also be reproduced with:
abcl --noinit (load "quicklisp/setup.lisp") (ql:quickload :com.informatimago.common-lisp.cesarum) ; dependency (ql:quickload :com.informatimago.common-lisp.unix :verbose t)
but not with:
(compile-file #P"~/quicklisp/dists/quicklisp/software/com.informatimago-20141217-git/common-lisp/unix/option.lisp" :verbose t :print t)
[package com.informatimago.common-lisp.unix.option]. Error loading /home/pjb/.cache/common-lisp/abcl-1.3.1-fasl42-linux-x64/home/pjb/src/git/public/lisp/common-lisp/unix/option.abcl at line 203 (offset 10713) #<THREAD "interpreter" {66473FF8}>: Debugger invoked on condition of type TYPE-ERROR The value #(#:WHOLE-226549 #:ENVIRONMENT-226550 #:OPTION- #:G226587 #:G226588 #:G226589 #:G226590 #:G226627 #:G226672 #:G226724 #:G226768 #:G226820 #:G226865 #:G226916 #:G226961 #:WHOLE-227535 #:ENVIRONMENT-227536 #:G228248 #:G228255 #:G228256 #:G228257 #:G228258 #:G228259) is not of type LIST. Restarts: 0: TRY-RECOMPILING Recompile option and try loading it again 1: RETRY Retry loading FASL for #<ASDF/LISP-ACTION:CL-SOURCE-FILE "com.informatimago.common-lisp.unix" "option">. 2: ACCEPT Continue, treating loading FASL for #<ASDF/LISP-ACTION:CL-SOURCE-FILE "com.informatimago.common-lisp.unix" "option"> as having been successful. 3: ABORT Give up on "com.informatimago.common-lisp" [1] COM.INFORMATIMAGO.COMMON-LISP.UNIX.OPTION(2): (pprint (macroexpand-1 '(defstruct option "An option structure." keys arguments documentation function)))
(PROGN (EVAL-WHEN (:COMPILE-TOPLEVEL :LOAD-TOPLEVEL :EXECUTE) (SYSTEM:COMPILER-DEFSTRUCT 'OPTION :CONC-NAME '#:OPTION- :DEFAULT-CONSTRUCTOR 'MAKE-OPTION :COPIER 'COPY-OPTION :PREDICATE '"OPTION-P" :DIRECT-SLOTS '(#(SYSTEM::DEFSTRUCT-SLOT-DESCRIPTION KEYS 0 OPTION-KEYS NIL T NIL) #(SYSTEM::DEFSTRUCT-SLOT-DESCRIPTION ARGUMENTS 1 OPTION-ARGUMENTS NIL T NIL) #(SYSTEM::DEFSTRUCT-SLOT-DESCRIPTION DOCUMENTATION 2 OPTION-DOCUMENTATION NIL T NIL) #(SYSTEM::DEFSTRUCT-SLOT-DESCRIPTION FUNCTION 3 OPTION-FUNCTION NIL T NIL)) :SLOTS '(#(SYSTEM::DEFSTRUCT-SLOT-DESCRIPTION KEYS 0 OPTION-KEYS NIL T NIL) #(SYSTEM::DEFSTRUCT-SLOT-DESCRIPTION ARGUMENTS 1 OPTION-ARGUMENTS NIL T NIL) #(SYSTEM::DEFSTRUCT-SLOT-DESCRIPTION DOCUMENTATION 2 OPTION-DOCUMENTATION NIL T NIL) #(SYSTEM::DEFSTRUCT-SLOT-DESCRIPTION FUNCTION 3 OPTION-FUNCTION NIL T NIL)) :INHERITED-ACCESSORS 'NIL :DOCUMENTATION '"An option structure.")) (DEFUN MAKE-OPTION (&KEY ((:KEYS #:G228606) NIL) ((:ARGUMENTS #:G228607) NIL) ((:DOCUMENTATION #:G228608) NIL) ((:FUNCTION #:G228609) NIL)) (SYSTEM:MAKE-STRUCTURE (EXTENSIONS:TRULY-THE SYMBOL 'OPTION) #:G228606 #:G228607 #:G228608 #:G228609)) (DEFUN OPTION-P (SYSTEM::OBJECT) (SYSTEM:SIMPLE-TYPEP SYSTEM::OBJECT 'OPTION)) (DECLAIM (FTYPE (FUNCTION * T) OPTION-KEYS)) (SETF (SYMBOL-FUNCTION 'OPTION-KEYS) (SYSTEM::MAKE-STRUCTURE-READER 0 'OPTION)) (SYSTEM:DEFINE-SOURCE-TRANSFORM OPTION-KEYS (SYSTEM::INSTANCE) (SYSTEM::BACKQ-LIST 'SYSTEM:STRUCTURE-REF (SYSTEM::BACKQ-LIST 'THE 'OPTION SYSTEM::INSTANCE) 0)) (SETF (GET 'OPTION-KEYS 'SYSTEM:SETF-FUNCTION) (SYSTEM::MAKE-STRUCTURE-WRITER 0 'OPTION)) (SYSTEM:DEFINE-SOURCE-TRANSFORM (SETF OPTION-KEYS) (SYSTEM::VALUE SYSTEM::INSTANCE) (SYSTEM::BACKQ-LIST 'SYSTEM:STRUCTURE-SET (SYSTEM::BACKQ-LIST 'THE 'OPTION SYSTEM::INSTANCE) 0 SYSTEM::VALUE)) (DECLAIM (FTYPE (FUNCTION * T) OPTION-ARGUMENTS)) (SETF (SYMBOL-FUNCTION 'OPTION-ARGUMENTS) (SYSTEM::MAKE-STRUCTURE-READER 1 'OPTION)) (SYSTEM:DEFINE-SOURCE-TRANSFORM OPTION-ARGUMENTS (SYSTEM::INSTANCE) (SYSTEM::BACKQ-LIST 'SYSTEM:STRUCTURE-REF (SYSTEM::BACKQ-LIST 'THE 'OPTION SYSTEM::INSTANCE) 1)) (SETF (GET 'OPTION-ARGUMENTS 'SYSTEM:SETF-FUNCTION) (SYSTEM::MAKE-STRUCTURE-WRITER 1 'OPTION)) (SYSTEM:DEFINE-SOURCE-TRANSFORM (SETF OPTION-ARGUMENTS) (SYSTEM::VALUE SYSTEM::INSTANCE) (SYSTEM::BACKQ-LIST 'SYSTEM:STRUCTURE-SET (SYSTEM::BACKQ-LIST 'THE 'OPTION SYSTEM::INSTANCE) 1 SYSTEM::VALUE)) (DECLAIM (FTYPE (FUNCTION * T) OPTION-DOCUMENTATION)) (SETF (SYMBOL-FUNCTION 'OPTION-DOCUMENTATION) (SYSTEM::MAKE-STRUCTURE-READER 2 'OPTION)) (SYSTEM:DEFINE-SOURCE-TRANSFORM OPTION-DOCUMENTATION (SYSTEM::INSTANCE) (SYSTEM::BACKQ-LIST 'SYSTEM:STRUCTURE-REF (SYSTEM::BACKQ-LIST 'THE 'OPTION SYSTEM::INSTANCE) 2)) (SETF (GET 'OPTION-DOCUMENTATION 'SYSTEM:SETF-FUNCTION) (SYSTEM::MAKE-STRUCTURE-WRITER 2 'OPTION)) (SYSTEM:DEFINE-SOURCE-TRANSFORM (SETF OPTION-DOCUMENTATION) (SYSTEM::VALUE SYSTEM::INSTANCE) (SYSTEM::BACKQ-LIST 'SYSTEM:STRUCTURE-SET (SYSTEM::BACKQ-LIST 'THE 'OPTION SYSTEM::INSTANCE) 2 SYSTEM::VALUE)) (DECLAIM (FTYPE (FUNCTION * T) OPTION-FUNCTION)) (SETF (SYMBOL-FUNCTION 'OPTION-FUNCTION) (SYSTEM::MAKE-STRUCTURE-READER 3 'OPTION)) (SYSTEM:DEFINE-SOURCE-TRANSFORM OPTION-FUNCTION (SYSTEM::INSTANCE) (SYSTEM::BACKQ-LIST 'SYSTEM:STRUCTURE-REF (SYSTEM::BACKQ-LIST 'THE 'OPTION SYSTEM::INSTANCE) 3)) (SETF (GET 'OPTION-FUNCTION 'SYSTEM:SETF-FUNCTION) (SYSTEM::MAKE-STRUCTURE-WRITER 3 'OPTION)) (SYSTEM:DEFINE-SOURCE-TRANSFORM (SETF OPTION-FUNCTION) (SYSTEM::VALUE SYSTEM::INSTANCE) (SYSTEM::BACKQ-LIST 'SYSTEM:STRUCTURE-SET (SYSTEM::BACKQ-LIST 'THE 'OPTION SYSTEM::INSTANCE) 3 SYSTEM::VALUE)) (SETF (FDEFINITION 'COPY-OPTION) #'COPY-STRUCTURE) 'OPTION) [1] COM.INFORMATIMAGO.COMMON-LISP.UNIX.OPTION(3):
CL-USER(4): (COM.INFORMATIMAGO.TOOLS.MANIFEST:PRINT-BUG-REPORT-INFO)
LISP-IMPLEMENTATION-TYPE "Armed Bear Common Lisp" LISP-IMPLEMENTATION-VERSION "1.3.1" SOFTWARE-TYPE "Linux" SOFTWARE-VERSION "3.2.0-4-amd64" MACHINE-INSTANCE "kuiper" MACHINE-TYPE "X86-64" MACHINE-VERSION "Intel(R) Core(TM) i7 CPU 950 @ 3.07GHz" distribution (:LINUX :DEBIAN "7.7") *FEATURES* (:COM.INFORMATIMAGO.PJB :SPLIT-SEQUENCE :CLOSER-MOP :COM.INFORMATIMAGO.COMMON-LISP.LISP.CL-STEPPER :NEWLINE-IS-LINEFEED :HAS-ASCII-CODE :HAS-VT :HAS-BELL :HAS-ESCAPE :HAS-LINEFEED :HAS-RETURN :HAS-BACKSPACE :HAS-TAB :HAS-PAGE :HAS-RUBOUT :QUICKLISP :ASDF-PACKAGE-SYSTEM :ASDF3.1 :ASDF3 :ASDF2 :ASDF :OS-UNIX :ASDF-UNICODE :ABCL-BUNDLE-OP-SUPPORTED :X86-64 :JAVA-1.7 :UNIX :LINUX :ARMEDBEAR :ABCL :COMMON-LISP :ANSI-CL :CDR6 :MOP :PACKAGE-LOCAL-NICKNAMES)
/proc/cpuinfo -------------
processor : 0 vendor_id : GenuineIntel cpu family : 6 model : 26 model name : Intel(R) Core(TM) i7 CPU 950 @ 3.07GHz stepping : 5 microcode : 0x11 cpu MHz : 3073.461 cache size : 8192 KB physical id : 0 siblings : 1 core id : 0 cpu cores : 1 apicid : 0 initial apicid : 0 fpu : yes fpu_exception : yes cpuid level : 11 wp : yes flags : fpu vme de pse tsc msr pae mce cx8 apic sep mtrr pge mca cmov pat pse36 clflush dts acpi mmx fxsr sse sse2 ss ht tm pbe syscall nx rdtscp lm constant_tsc up arch_perfmon pebs bts rep_good nopl xtopology nonstop_tsc aperfmperf pni dtes64 monitor ds_cpl vmx est tm2 ssse3 cx16 xtpr pdcm sse4_1 sse4_2 popcnt lahf_lm dtherm tpr_shadow vnmi flexpriority ept vpid bogomips : 6146.92 clflush size : 64 cache_alignment : 64 address sizes : 36 bits physical, 48 bits virtual power management:
CL-USER(5): --
__Pascal J. Bourguignon__
_______________________________________________ Armedbear-devel mailing list Armedbear-devel@common-lisp.net http://mailman.common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel