Custom Query (1030 matches)

While compiling Hunchentoot 0.15.5 (which is the current version) on FreeBSD 6.3 using CCL from trunk, I see this error:

;Compiling "/home/hans/bknr-svn/thirdparty/hunchentoot-0.15.5/server.lisp"...
> Error: bad regspec: NIL
> While executing: CCL::%HARD-REGSPEC-CLASS, in process listener(1).

He is a backtrace:

 (800EEEE18) : 0 (ABNORMAL-APPLICATION-EXIT) 277
  NIL

  #:G59259: (ERROR)
  CCL::%HANDLERS%: ((ERROR) (CCL:PROCESS-RESET))

 (800EEEE48) : 1 (%ERROR #<SIMPLE-ERROR #x300041E1F63D> '(NIL) 4296924622) 357
  (CONDITION CCL::ARGS CCL::ERROR-POINTER)
   CONDITION: #<SIMPLE-ERROR #x300041E1F63D>
   CCL::ARGS: (NIL)
   CCL::ERROR-POINTER: 4296924622



 (800EEEE70) : 2 (%HARD-REGSPEC-CLASS NIL) 173
  (CCL::REGSPEC)
   CCL::REGSPEC: NIL



 (800EEEE88) : 3 (NODE-REG-P NIL) 37
  (CCL::REG)
   CCL::REG: NIL



 (800EEEEA0) : 4 (ENSURE-NODE-TARGET NIL) 37
  (CCL::REG)
   CCL::REG: NIL



 (800EEEEB8) : 5 (X862-REF-SYMBOL-VALUE #<DLL-HEADER  #x300041DE1ACD> NIL NIL '*HUNCHENTOOT-STREAM* T) 501
  (CCL::SEG CCL::VREG CCL::XFER CCL::SYM CCL::CHECK-BOUNDP)
   CCL::SEG: #<DLL-HEADER  #x300041DE1ACD>
   CCL::VREG: NIL
   CCL::XFER: NIL
   CCL::SYM: *HUNCHENTOOT-STREAM*
   CCL::CHECK-BOUNDP: T

  CCL::*AVAILABLE-BACKEND-NODE-TEMPS*: 1992

 (800EEEF28) : 6 (FUNCALL #'#<CCL::X862-PROGN> #<DLL-HEADER  #x300041DE1ACD> NIL NIL '(#)) 149
  (CCL::SEG CCL::VREG CCL::XFER CCL::FORMS)
   CCL::SEG: #<DLL-HEADER  #x300041DE1ACD>
   CCL::VREG: NIL
   CCL::XFER: NIL
   CCL::FORMS: ((#:|nil|))

  CCL::FORM: (84 *HUNCHENTOOT-STREAM*)

 (800EEEF70) : 7 (FUNCALL #'#<CCL::X862-PROGN> #<DLL-HEADER  #x300041DE1ACD> NIL NIL '(# #)) 149
  (CCL::SEG CCL::VREG CCL::XFER CCL::FORMS)
   CCL::SEG: #<DLL-HEADER  #x300041DE1ACD>
   CCL::VREG: NIL
   CCL::XFER: NIL
   CCL::FORMS: ((44 # #) (44 # #))

  CCL::FORM: (22529 (# #))

 (800EEEFB8) : 8 (FUNCALL #'#<CCL::X862-UNWIND-PROTECT> #<DLL-HEADER  #x300041DE1ACD> #<LREG 45 GPR [6]> 524288 '(29 # # # 2424832) '(22529 #)) 981
  (CCL::SEG CCL::VREG CCL::XFER CCL::PROTECTED-FORM CCL::CLEANUP-FORM)
   CCL::SEG: #<DLL-HEADER  #x300041DE1ACD>
   CCL::VREG: #<LREG 45 GPR [6]>
   CCL::XFER: 524288
   CCL::PROTECTED-FORM: (29 (#) (#) (22529 #) 2424832)
   CCL::CLEANUP-FORM: (22529 (# # #))

  CCL::CLEANUP-LABEL: 15
  CCL::PROTFORM-LABEL: 16
  CCL::OLD-STACK: #(13 0 216 #<LCELL 33>)
  CCL::*X862-VSTACK*: 248
  CCL::*X862-TOP-VSTACK-LCELL*: #<LCELL 37>

 (800EEF058) : 9 (X862-UNDO-BODY #<DLL-HEADER  #x300041DE1ACD> #<LREG 40 GPR [6]> 524288 '(56 # #) #(9 0 88 #<LCELL 17>)) 381
  (CCL::SEG CCL::VREG CCL::XFER CCL::BODY CCL::OLD-STACK)
   CCL::SEG: #<DLL-HEADER  #x300041DE1ACD>
   CCL::VREG: #<LREG 40 GPR [6]>
   CCL::XFER: 524288
   CCL::BODY: (56 (29 # # # 2424832) (22529 #))
   CCL::OLD-STACK: #(9 0 88 #<LCELL 17>)

  CCL::CURRENT-STACK: #(13 0 216 #<LCELL 33>)
  CCL::NUMUNDO: 4

 (800EEF0B8) : 10 (FUNCALL #'#<CCL::X862-LET> #<DLL-HEADER  #x300041DE1ACD> #<LREG 40 GPR [6]> 524288 '(# # # #) NIL '(56 # #) 2424832) 1477
  (CCL::SEG CCL::VREG CCL::XFER CCL::VARS CCL::VALS CCL::BODY CCL::P2DECLS)
   CCL::SEG: #<DLL-HEADER  #x300041DE1ACD>
   CCL::VREG: #<LREG 40 GPR [6]>
   CCL::XFER: 524288
   CCL::VARS: (#<VAR  #x300041DF147D> #<VAR  #x300041DF141D> #<VAR  #x300041DF13BD> #<VAR  #x300041DF135D>)
   CCL::VALS: NIL
   CCL::BODY: (56 (29 # # # 2424832) (22529 #))
   CCL::P2DECLS: 2424832

  CCL::OLD-STACK: #(9 0 88 #<LCELL 17>)
  CCL::VAL: (-268435344 . #<LCELL 21>)
  CCL::BITS: -268435456
  CCL::VALCOPY: NIL
  CCL::*X862-TAIL-ALLOW*: T
  CCL::*X862-RECKLESS*: NIL
  CCL::*X862-OPEN-CODE-INLINE*: T
  CCL::*X862-TRUST-DECLARATIONS*: T

 (800EEF198) : 11 (X862-UNDO-BODY #<DLL-HEADER  #x300041DE1ACD> #<LREG 27 GPR [6]> 524288 '(28 # # # 2424832) #(6 0 56 #<LCELL 11>)) 381
  (CCL::SEG CCL::VREG CCL::XFER CCL::BODY CCL::OLD-STACK)
   CCL::SEG: #<DLL-HEADER  #x300041DE1ACD>
   CCL::VREG: #<LREG 27 GPR [6]>
   CCL::XFER: 524288
   CCL::BODY: (28 (# # # #) (# # # #) (56 # #) 2424832)
   CCL::OLD-STACK: #(6 0 56 #<LCELL 11>)

  CCL::CURRENT-STACK: #(9 0 88 #<LCELL 17>)
  CCL::NUMUNDO: 3

 (800EEF1F8) : 12 (FUNCALL #'#<CCL::X862-LET*> #<DLL-HEADER  #x300041DE1ACD> #<LREG 27 GPR [6]> 524288 '(# #) '(# #) '(28 # # # 2424832) 2424832) 341
  (CCL::SEG CCL::VREG CCL::XFER CCL::VARS CCL::VALS CCL::BODY CCL::P2DECLS)
   CCL::SEG: #<DLL-HEADER  #x300041DE1ACD>
   CCL::VREG: #<LREG 27 GPR [6]>
   CCL::XFER: 524288
   CCL::VARS: (#<VAR  #x300041DF16ED> #<VAR  #x300041DF159D>)
   CCL::VALS: ((30733 #) (25650 # #))
   CCL::BODY: (28 (# # # #) (# # # #) (56 # #) 2424832)
   CCL::P2DECLS: 2424832

  CCL::OLD-STACK: #(6 0 56 #<LCELL 11>)
  CCL::*X862-TAIL-ALLOW*: T
  CCL::*X862-RECKLESS*: NIL
  CCL::*X862-OPEN-CODE-INLINE*: T
  CCL::*X862-TRUST-DECLARATIONS*: T

 (800EEF2C8) : 13 (X862-UNDO-BODY #<DLL-HEADER  #x300041DE1ACD> #<LREG 8 GPR [6]> 524288 '(29 # # # 2424832) #(3 0 24 #<LCELL 3>)) 381
  (CCL::SEG CCL::VREG CCL::XFER CCL::BODY CCL::OLD-STACK)
   CCL::SEG: #<DLL-HEADER  #x300041DE1ACD>
   CCL::VREG: #<LREG 8 GPR [6]>
   CCL::XFER: 524288
   CCL::BODY: (29 (# #) (# #) (28 # # # 2424832) 2424832)
   CCL::OLD-STACK: #(3 0 24 #<LCELL 3>)

  CCL::CURRENT-STACK: #(6 0 56 #<LCELL 11>)
  CCL::NUMUNDO: 3

 (800EEF328) : 14 (FUNCALL #'#<CCL::X862-LET*> #<DLL-HEADER  #x300041DE1ACD> #<LREG 8 GPR [6]> 524288 '(# #) '(# #) '(29 # # # 2424832) 2424832) 341
  (CCL::SEG CCL::VREG CCL::XFER CCL::VARS CCL::VALS CCL::BODY CCL::P2DECLS)
   CCL::SEG: #<DLL-HEADER  #x300041DE1ACD>
   CCL::VREG: #<LREG 8 GPR [6]>
   CCL::XFER: 524288
   CCL::VARS: (#<VAR  #x300041DF1DCD> #<VAR  #x300041DF1C2D>)
   CCL::VALS: ((30733 #) (25650 # #))
   CCL::BODY: (29 (# #) (# #) (28 # # # 2424832) 2424832)
   CCL::P2DECLS: 2424832

  CCL::OLD-STACK: #(3 0 24 #<LCELL 3>)
  CCL::*X862-TAIL-ALLOW*: T
  CCL::*X862-RECKLESS*: NIL
  CCL::*X862-OPEN-CODE-INLINE*: T
  CCL::*X862-TRUST-DECLARATIONS*: T

 (800EEF3F8) : 15 (X862-UNDO-BODY #<DLL-HEADER  #x300041DE1ACD> NIL 524292 '(29 # # # 2424832) #(2 0 24 #<LCELL 3>)) 381
  (CCL::SEG CCL::VREG CCL::XFER CCL::BODY CCL::OLD-STACK)
   CCL::SEG: #<DLL-HEADER  #x300041DE1ACD>
   CCL::VREG: NIL
   CCL::XFER: 524292
   CCL::BODY: (29 (# #) (# #) (29 # # # 2424832) 2424832)
   CCL::OLD-STACK: #(2 0 24 #<LCELL 3>)

  CCL::CURRENT-STACK: #(3 0 24 #<LCELL 3>)
  CCL::NUMUNDO: 1

 (800EEF458) : 16 (X862-MULTIPLE-VALUE-BODY #<DLL-HEADER  #x300041DE1ACD> '(29 # # # 2424832)) 253
  (CCL::SEG CCL::FORM)
   CCL::SEG: #<DLL-HEADER  #x300041DE1ACD>
   CCL::FORM: (29 (# #) (# #) (29 # # # 2424832) 2424832)

  CCL::LAB: 4
  CCL::*X862-VSTACK*: 240
  CCL::*X862-TOP-VSTACK-LCELL*: #<LCELL 36>
  CCL::OLD-STACK: #(2 0 24 #<LCELL 3>)

 (800EEF4B8) : 17 (FUNCALL #'#<CCL::X862-CATCH> #<DLL-HEADER  #x300041DE1ACD> #<LREG 0 GPR [6]> 262143 '(24614 #) '(29 # # # 2424832)) 621
  (CCL::SEG CCL::VREG CCL::XFER CCL::TAG CCL::VALFORM)
   CCL::SEG: #<DLL-HEADER  #x300041DE1ACD>
   CCL::VREG: #<LREG 0 GPR [6]>
   CCL::XFER: 262143
   CCL::TAG: (24614 #<VAR  #x300041DF2DED>)
   CCL::VALFORM: (29 (# #) (# #) (29 # # # 2424832) 2424832)

  CCL::TAG-LABEL: 3
  CCL::TAG-LABEL-VALUE: #<VINSN-LABEL 3>
  CCL::MV-PASS: T

 (800EEF520) : 18 (X862-UNDO-BODY #<DLL-HEADER  #x300041DE1ACD> #<LREG 0 GPR [6]> 262143 '(54 # #) #(0 0 16 #<LCELL 2>)) 261
  (CCL::SEG CCL::VREG CCL::XFER CCL::BODY CCL::OLD-STACK)
   CCL::SEG: #<DLL-HEADER  #x300041DE1ACD>
   CCL::VREG: #<LREG 0 GPR [6]>
   CCL::XFER: 262143
   CCL::BODY: (54 (24614 #) (29 # # # 2424832))
   CCL::OLD-STACK: #(0 0 16 #<LCELL 2>)

  CCL::CURRENT-STACK: #(1 0 24 #<LCELL 3>)
  CCL::NUMUNDO: 1

 (800EEF580) : 19 (FUNCALL #'#<CCL::X862-LET> #<DLL-HEADER  #x300041DE1ACD> #<LREG 0 GPR [6]> 262143 '(#) NIL '(54 # #) 0) 1477
  (CCL::SEG CCL::VREG CCL::XFER CCL::VARS CCL::VALS CCL::BODY CCL::P2DECLS)
   CCL::SEG: #<DLL-HEADER  #x300041DE1ACD>
   CCL::VREG: #<LREG 0 GPR [6]>
   CCL::XFER: 262143
   CCL::VARS: (#<VAR  #x300041DF2DED>)
   CCL::VALS: NIL
   CCL::BODY: (54 (24614 #) (29 # # # 2424832))
   CCL::P2DECLS: 0

  CCL::OLD-STACK: #(0 0 16 #<LCELL 2>)
  CCL::VAL: NIL
  CCL::BITS: 36241408
  CCL::VALCOPY: NIL
  CCL::*X862-TAIL-ALLOW*: NIL
  CCL::*X862-RECKLESS*: NIL
  CCL::*X862-OPEN-CODE-INLINE*: NIL
  CCL::*X862-TRUST-DECLARATIONS*: NIL

 (800EEF660) : 20 (FUNCALL #'#<CCL::X862-LOCAL-BLOCK> #<DLL-HEADER  #x300041DE1ACD> #<LREG 0 GPR [6]> 262143 '(#) '(28 # # # 0)) 533
  (CCL::SEG CCL::VREG CCL::XFER CCL::BLOCKTAG CCL::BODY)
   CCL::SEG: #<DLL-HEADER  #x300041DE1ACD>
   CCL::VREG: #<LREG 0 GPR [6]>
   CCL::XFER: 262143
   CCL::BLOCKTAG: ((# . #))
   CCL::BODY: (28 (#) (NIL) (54 # #) 0)

  CCL::CURSTACK: #(0 0 16 #<LCELL 2>)
  CCL::COMPOUND: NIL
  CCL::MVPASS-P: NIL
  CCL::NEED-LABEL: NIL
  CCL::END-OF-BLOCK: NIL
  CCL::LAST-CD: 262143
  CCL::DEST: #<LREG 0 GPR [6]>

 (800EEF6E0) : 21 (FUNCALL #'#<CCL::X862-LAMBDA> #<DLL-HEADER  #x300041DE1ACD> #<LREG 0 GPR [6]> 262143 '(# #) NIL NIL NIL '(NIL NIL) '(44 # #) 2424832) 9037
  (CCL::SEG CCL::VREG CCL::XFER CCL::REQ CCL::OPT REST CCL::KEYS CCL::AUXEN CCL::BODY CCL::P2DECLS)
   CCL::SEG: #<DLL-HEADER  #x300041DE1ACD>
   CCL::VREG: #<LREG 0 GPR [6]>
   CCL::XFER: 262143
   CCL::REQ: (#<VAR  #x300041DF2FCD> #<VAR  #x300041DF2F4D>)
   CCL::OPT: NIL
   REST: NIL
   CCL::KEYS: NIL
   CCL::AUXEN: (NIL NIL)
   CCL::BODY: (44 (#) (28 # # # 0))
   CCL::P2DECLS: 2424832

  CCL::STACK-CONSED-REST: NIL
  CCL::NEXT-METHOD-VAR-SCOPE-INFO: NIL
  CCL::LEXPRP: NIL
  CCL::REST-VAR-BITS: NIL
  CCL::REST-IGNORED-P: NIL
  CCL::WANT-STACK-CONSED-REST: NIL
  CCL::AFUNC: #<AFUNC  #x300041DF310D>
  CCL::INHERITED-VARS: NIL
  CCL::FBITS: 8
  CCL::METHODP: NIL
  CCL::METHOD-VAR: NIL
  NEXT-METHOD-P: NIL
  CCL::ALLOW-OTHER-KEYS-P: NIL
  CCL::HARDOPT: NIL
  CCL::LAP-P: NIL
  CCL::NUM-INH: 0
  CCL::NUM-REQ: 2
  CCL::NUM-OPT: 0
  CCL::NO-REGS: T
  CCL::ARG-REGS: (NIL NIL)
  CCL::OPTSUPVLOC: NIL
  CCL::REGLOCATIVES: NIL
  CCL::PREGS: 0
  CCL::RESERVED-LCELLS: (#<LCELL 1> #<LCELL 2>)
  CCL::*X862-VSTACK*: 24
  CCL::*X862-TAIL-ALLOW*: T
  CCL::*X862-RECKLESS*: NIL
  CCL::*X862-OPEN-CODE-INLINE*: T
  CCL::*X862-TRUST-DECLARATIONS*: T

 (800EEF898) : 22 (X862-COMPILE #<AFUNC  #x300041DF310D> [...]) 5205
  (CCL::AFUNC &OPTIONAL CCL::LAMBDA-FORM CCL::*X862-RECORD-SYMBOLS*)
   CCL::AFUNC: #<AFUNC  #x300041DF310D>
   CCL::LAMBDA-FORM: NIL
   CCL::*X862-RECORD-SYMBOLS*: T

  CCL::*X862-CUR-AFUNC*: #<AFUNC  #x300041DF310D>
  CCL::*X862-RETURNING-VALUES*: NIL
  CCL::*X86-CURRENT-CONTEXT-ANNOTATION*: NIL
  CCL::*X862-WOI*: NIL
  CCL::*NEXT-LCELL-ID*: 37
  CCL::*X862-OPEN-CODE-INLINE*: NIL
  CCL::*X862-REGISTER-RESTORE-COUNT*: NIL
  CCL::*X862-COMPILER-REGISTER-SAVE-LABEL*: NIL
  CCL::*X862-VALID-REGISTER-ANNOTATIONS*: 0
  CCL::*X862-REGISTER-EA-ANNOTATIONS*: #()
  CCL::*X862-REGISTER-RESTORE-EA*: NIL
  CCL::*X862-CONSTANT-ALIST*: ((# . #) (# . #) (# . #) (# . #) (# . #) ...)
  CCL::*X862-DOUBLE-FLOAT-CONSTANT-ALIST*: NIL
  CCL::*X862-SINGLE-FLOAT-CONSTANT-ALIST*: NIL
  CCL::*X862-VSTACK*: 0
  CCL::*X862-CSTACK*: 0
  CCL::*X862-TARGET-NUM-ARG-REGS*: 3
  CCL::*X862-TARGET-NUM-SAVE-REGS*: 4
  CCL::*X862-TARGET-LCELL-SIZE*: 8
  CCL::*X862-TARGET-FIXNUM-SHIFT*: 3
  CCL::*X862-TARGET-NODE-SHIFT*: 3
  CCL::*X862-TARGET-BITS-IN-WORD*: 64
  CCL::*X862-TARGET-NODE-SIZE*: 8
  CCL::*X862-TARGET-HALF-FIXNUM-TYPE*: (SIGNED-BYTE 60)
  CCL::*X862-TARGET-DNODE-SIZE*: 16
  CCL::*X862-TOS-REG*: NIL
  CCL::*X862-ALL-LCELLS*: (#<LCELL 37> #<LCELL 36> #<LCELL 35> #<LCELL 34> #<LCELL 33> ...)
  CCL::*X862-TOP-VSTACK-LCELL*: #<LCELL 3>
  CCL::*X862-BOTTOM-VSTACK-LCELL*: #<LCELL 0>
  CCL::*X862-VAR-CELLS*: ((# . #) (# . #) (# . #) (# . #) (# . #))
  CCL::*BACKEND-VINSNS*: #<HASH-TABLE :TEST EQ size 513/687 #x3000407198ED>
  CCL::*BACKEND-NODE-REGS*: 57288
  CCL::*BACKEND-NODE-TEMPS*: 1992
  CCL::*AVAILABLE-BACKEND-NODE-TEMPS*: 1992
  CCL::*BACKEND-IMM-TEMPS*: 7
  CCL::*AVAILABLE-BACKEND-IMM-TEMPS*: 7
  CCL::*BACKEND-CRF-TEMPS*: 1
  CCL::*AVAILABLE-BACKEND-CRF-TEMPS*: 1
  CCL::*BACKEND-FP-TEMPS*: 4703919738795935662080
  CCL::*AVAILABLE-BACKEND-FP-TEMPS*: 4703919738795935662080
  CCL::BITS: 0
  CCL::*LOGICAL-REGISTER-COUNTER*: 45
  CCL::*BACKEND-ALL-LREGS*: (#<LREG 45 GPR [6]> #<LREG 44 GPR [7]> #<LREG 43 GPR [7]> #<LREG 42 GPR [7]> #<LREG 41 GPR [7]> ...)
  CCL::*X862-POPJ-LABELS*: NIL
  CCL::*X862-POPREG-LABELS*: NIL
  CCL::*X862-VALRET-LABELS*: NIL
  CCL::*X862-NILRET-LABELS*: NIL
  CCL::*X862-UNDO-COUNT*: 15
  CCL::*BACKEND-LABELS*: #(#<VINSN-LABEL 0> #<VINSN-LABEL 1> #<VINSN-LABEL 2> #<VINSN-LABEL 3> #<VINSN-LABEL 4> ...)
  CCL::*X862-UNDO-STACK*: #(#(0 0 16 #) #(1 0 24 #) #(2 0 24 #) #(3 0 24 #) #(4 0 32 #) ...)
  CCL::*X862-UNDO-BECAUSE*: #(2 0 5 2 2 ...)
  CCL::*X862-ENTRY-LABEL*: NIL
  CCL::*X862-TAIL-LABEL*: NIL
  CCL::*X862-TAIL-VSP*: NIL
  CCL::*X862-TAIL-NARGS*: NIL
  CCL::*X862-INHIBIT-REGISTER-ALLOCATION*: T
  CCL::*X862-TAIL-ALLOW*: T
  CCL::*X862-RECKLESS*: NIL
  CCL::*X862-TRUST-DECLARATIONS*: T
  CCL::*X862-ENTRY-VSTACK*: 16
  CCL::*X862-FIXED-NARGS*: NIL
  CCL::*X862-NEED-NARGS*: T
  CCL::FNAME: PROCESS-CONNECTION
  CCL::*X862-ENTRY-VSP-SAVED-P*: T
  CCL::*X862-VCELLS*: ((CCL:*CURRENT-PROCESS*) (*CLOSE-HUNCHENTOOT-STREAM*) (*REMOTE-PORT*) (*REMOTE-HOST*) (*LOCAL-HOST*) ...)
  CCL::*X862-FCELLS*: ((MAYBE-INVOKE-DEBUGGER) (CCL::%UNLOCK-RECURSIVE-LOCK-OBJECT) (SERVER-WORKERS) (DELETE) (SETF::|HUNCHENTOOT::SERVER-WORKERS|) ...)
  CCL::*X862-RECORDED-SYMBOLS*: ((# *REMOTE-PORT* # #) (# *REMOTE-HOST* # #) (# *LOCAL-HOST* # #) (# *HUNCHENTOOT-STREAM* # #) (# CCL::%HANDLERS% # #) ...)
  #:G13469: #<DLL-HEADER  #x300041DE1ACD>
  #:G13470: #<POOL  #x300040CC1CDD>

 (800EEFF90) : 23 (COMPILE-NAMED-FUNCTION '(LAMBDA # # #) [...]) 765
  (CCL::DEF &OPTIONAL CCL::NAME CCL::ENV CCL::KEEP-LAMBDA CCL::KEEP-SYMBOLS CCL::POLICY CCL::*LOAD-TIME-EVAL-TOKEN* CCL::TARGET)
   CCL::DEF: (LAMBDA (SERVER HANDLE) (DECLARE #) (BLOCK PROCESS-CONNECTION #))
   CCL::NAME: PROCESS-CONNECTION
   CCL::ENV: #<LEXICAL-ENVIRONMENT  #x300041DF322D>
   CCL::KEEP-LAMBDA: NIL
   CCL::KEEP-SYMBOLS: T
   CCL::POLICY: #<COMPILER-POLICY  #x30004097B21D>
   CCL::*LOAD-TIME-EVAL-TOKEN*: #:LOAD-TIME-EVAL
   CCL::TARGET: :FREEBSDX8664

  CCL::ENV: #<LEXICAL-ENVIRONMENT  #x300041DF31DD>
  CCL::*TARGET-BACKEND*: #<BACKEND FREEBSDX8664 #x30004071960D>
  CCL::AFUNC: #<AFUNC  #x300041DF310D>

 (800EF0040) : 24 (FCOMP-NAMED-FUNCTION '(LAMBDA # # #) 'PROCESS-CONNECTION #<LEXICAL-ENVIRONMENT  #x300041D4318D>) 229
  (CCL::DEF CCL::NAME CCL::ENV)
   CCL::DEF: (LAMBDA (SERVER HANDLE) (DECLARE #) (BLOCK PROCESS-CONNECTION #))
   CCL::NAME: PROCESS-CONNECTION
   CCL::ENV: #<LEXICAL-ENVIRONMENT  #x300041D4318D>

  CCL::ENV: #<LEXICAL-ENVIRONMENT  #x300041DF322D>

 (800EF0078) : 25 (FCOMP-LOAD-%DEFUN '(CCL::%DEFUN # #) #<LEXICAL-ENVIRONMENT  #x300041D4318D>) 485
  (CCL::FORM CCL::ENV)
   CCL::FORM: (CCL::%DEFUN (CCL:NFUNCTION PROCESS-CONNECTION #) '"This function is called by the server in a newly-created thread
with the SERVER object itself and a socket 'handle' from which a
stream can be created.  It reads the request headers and hands over to
PROCESS-REQUEST.  This is done in a loop until the stream has to be
closed or until a read timeout occurs.")
   CCL::ENV: #<LEXICAL-ENVIRONMENT  #x300041D4318D>

  #:WHOLE45120: ((CCL:NFUNCTION PROCESS-CONNECTION #) '"This function is called by the server in a newly-created thread
with the SERVER object itself and a socket 'handle' from which a
stream can be created.  It reads the request headers and hands over to
PROCESS-REQUEST.  This is done in a loop until the stream has to be
closed or until a read timeout occurs.")
  #:ARGS45121: #<DESTRUCTURE-STATE  #x80110116D>
  CCL::FN: (CCL:NFUNCTION PROCESS-CONNECTION (LAMBDA # # #))
  CCL::DOC: '"This function is called by the server in a newly-created thread
with the SERVER object itself and a socket 'handle' from which a
stream can be created.  It reads the request headers and hands over to
PROCESS-REQUEST.  This is done in a loop until the stream has to be
closed or until a read timeout occurs."

 (800EF00B8) : 26 (FCOMP-FORM '(CCL::%DEFUN # #) #<LEXICAL-ENVIRONMENT  #x300041D4318D> :NOT-COMPILE-TIME) 1821
  (CCL::FORM CCL::ENV CCL::PROCESSING-MODE)
   CCL::FORM: (CCL::%DEFUN (CCL:NFUNCTION PROCESS-CONNECTION #) '"This function is called by the server in a newly-created thread
with the SERVER object itself and a socket 'handle' from which a
stream can be created.  It reads the request headers and hands over to
PROCESS-REQUEST.  This is done in a loop until the stream has to be
closed or until a read timeout occurs.")
   CCL::ENV: #<LEXICAL-ENVIRONMENT  #x300041D4318D>
   CCL::PROCESSING-MODE: :NOT-COMPILE-TIME

  CCL::PRINT-STUFF: NIL
  CCL::LOAD-TIME: T
  CCL::COMPILE-TIME-TOO: NIL
  CCL::*FCOMP-INDENTATION*: 0
  *COMPILE-PRINT*: NIL

 (800EF0140) : 27 (FCOMP-FORM-LIST '(# # #) #<LEXICAL-ENVIRONMENT  #x300041D4318D> :NOT-COMPILE-TIME) 93
  (CCL::FORMS CCL::ENV CCL::PROCESSING-MODE)
   CCL::FORMS: ((EVAL-WHEN # #) (CCL::%DEFUN # #) 'PROCESS-CONNECTION)
   CCL::ENV: #<LEXICAL-ENVIRONMENT  #x300041D4318D>
   CCL::PROCESSING-MODE: :NOT-COMPILE-TIME

  #:G44988: ('PROCESS-CONNECTION)
  CCL::FORM: (CCL::%DEFUN (CCL:NFUNCTION PROCESS-CONNECTION #) '"This function is called by the server in a newly-created thread
with the SERVER object itself and a socket 'handle' from which a
stream can be created.  It reads the request headers and hands over to
PROCESS-REQUEST.  This is done in a loop until the stream has to be
closed or until a read timeout occurs.")

 (800EF0180) : 28 (FCOMP-FORM '(PROGN # # #) #<LEXICAL-ENVIRONMENT  #x300041D4318D> :NOT-COMPILE-TIME) 1821
  (CCL::FORM CCL::ENV CCL::PROCESSING-MODE)
   CCL::FORM: (PROGN (EVAL-WHEN # #) (CCL::%DEFUN # #) 'PROCESS-CONNECTION)
   CCL::ENV: #<LEXICAL-ENVIRONMENT  #x300041D4318D>
   CCL::PROCESSING-MODE: :NOT-COMPILE-TIME

  CCL::PRINT-STUFF: NIL
  CCL::LOAD-TIME: T
  CCL::COMPILE-TIME-TOO: NIL
  CCL::*FCOMP-INDENTATION*: 0
  *COMPILE-PRINT*: NIL

 (800EF0208) : 29 (FCOMP-FORM '(DEFUN PROCESS-CONNECTION # "This function is called by the server in a newly-created thread
with the SERVER object itself and a socket 'handle' from which a
stream can be created.  It reads the request headers and hands over to
PROCESS-REQUEST.  This is done in a loop until the stream has to be
closed or until a read timeout occurs." #) #<LEXICAL-ENVIRONMENT  #x300041D4318D> :NOT-COMPILE-TIME) 1821
  (CCL::FORM CCL::ENV CCL::PROCESSING-MODE)
   CCL::FORM: (DEFUN PROCESS-CONNECTION (SERVER HANDLE) "This function is called by the server in a newly-created thread
with the SERVER object itself and a socket 'handle' from which a
stream can be created.  It reads the request headers and hands over to
PROCESS-REQUEST.  This is done in a loop until the stream has to be
closed or until a read timeout occurs." (HANDLER-BIND # #))
   CCL::ENV: #<LEXICAL-ENVIRONMENT  #x300041D4318D>
   CCL::PROCESSING-MODE: :NOT-COMPILE-TIME

  CCL::PRINT-STUFF: NIL
  CCL::LOAD-TIME: T
  CCL::COMPILE-TIME-TOO: NIL
  CCL::*FCOMP-INDENTATION*: 0
  *COMPILE-PRINT*: NIL

Compiling a file with this contents:

(prog1
    (declare (ignore foo)))

yields a confusing error message

Welcome to Clozure Common Lisp Version 1.2-r9226-RC1  (LinuxX8664)!
? (compile-file "foo.lisp")
;Compiler warnings for "/home/hans/profiler/foo.lisp" :
;   In an anonymous lambda form: DECLARE not expected in (DECLARE (IGNORE FOO))
> Error: No MAKE-LOAD-FORM method is defined for #<CCL::SIMPLE-PROGRAM-ERROR #x
00040CFAF3D>

The "DECLARE not expected" is clear, but the MAKE-LOAD-FORM thing is really confusing. It seems as if the compiler continues when it can't.

paracetamol 65_> mkdir /tmp/abc paracetamol 66_> ccl -n Welcome to Clozure Common Lisp Version 1.2-r9337S (FreebsdX8664)! ? (ccl::%rmdir "/tmp/abc") -12 ? (quit) lparacetamol 67_> ls -lsd /tmp/abc 2 drwxrwxr-x 2 hans wheel 512 Apr 30 23:35 /tmp/abc/ paracetamol 68_> uname -a FreeBSD paracetamol.bknr.net 6.3-RELEASE FreeBSD 6.3-RELEASE #0: Wed Jan 16 01:43:02 UTC 2008 root@…:/usr/obj/usr/src/sys/SMP amd64