[Armedbear-devel] problem compiling a defstruct

Pascal J. Bourguignon pjb at informatimago.com
Mon Jan 26 06:49:05 UTC 2015


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 at common-lisp.net
http://mailman.common-lisp.net/cgi-bin/mailman/listinfo/armedbear-devel



More information about the armedbear-devel mailing list