[Openmcl-devel] compiling large files.

Gary Byers gb at clozure.com
Fri Jun 4 11:24:54 UTC 2004


In  discussing the possibility that some system limit might be exceeded,
neither of us seemed to have noticed that in:

(setf *data* #.*data*)

*DATA* isn't quoted.  The compiler's trying to complain that it's not
a meaningful S-expression (it's dotted or circular or has something
funky in its CAR); printing this error message seems to trigger an
error (in a structure print method ?), which signals an error, which
tries to print an error message, which signals an error ...

If there was a quote in there, the compiler should generate code
which treats the read-time value of *DATA* as a constant; I assume
that that's what you want here.  E.g.

(setf *data* '#.*data*)

I'm not sure that dropping into the kernel debugger is necessarily better
than signalling a lisp error (that didn't try to print anything very
complicated ...) would be.


On Fri, 4 Jun 2004, Marco Baringer wrote:

> Gary Byers <gb at clozure.com> writes:
>
> > If you can reproduce this, could I see the output that :B (backtrace)
> > and :L (show lisp register values) produce in the kernel debugger ?
>
> ? (compile-file "db.lisp")
> Bug in MCL-PPC system code:
> Error reporting error
> ? for help
> [16439] OpenMCL kernel debugger: :B
> [16439] OpenMCL kernel debugger:
>
> (#xf0133420) #x000146BC : _debug_backtrace + 36
> (#xf0133460) #x000149F4 : _lisp_Debugger + 240
> (#xf01334c0) #x0001183C : _Bug + 72
> (#xf0133700) #x000053A8 : _SPffcall + 200
> (#xF0133740) #x0202A0E8 : #<Function BUG #x06019e96> + 244
> (#xF0133750) #x00004D7C : (subprimitive _ret1valn)
> (#xF0133760) #x02114B90 : #<Function FUNCALL-WITH-ERROR-REENTRY-DETECTION #x0612b806> + 140
> (#xF0133770) #x00004D7C : (subprimitive _ret1valn)
> (#xF0133780) #x0213B528 : #<Anonymous Function #x06160dae> + 188
> (#xF0133790) #x00004D7C : (subprimitive _ret1valn)
> (#xF01337A0) #x021146C4 : #<Function FUNCALL-WITH-XP-STACK-FRAMES #x0612b626> + 248
> (#xF01337B0) #x0213B7AC : #<Function %XERR-DISP #x06160dfe> + 632
> (#xF01337C0) #x0213B7C0 : #<Function %XERR-DISP #x06160dfe> + 652
> (#xF01337D0) #x00006C94 : (subprimitive _SPcallback)
> (#xf01337e0) #x00010E84 : _callback_to_lisp + 168
> (#xF01341A0) #x0200A004 : #<Function VECTOR-PUSH-EXTEND #x06005d6e> + 296
> (#xF01341B0) #x020FBA60 : #<Function WRITE-CHAR #x060ff5ae> + 76
> (#xF01341C0) #x020D5BB8 : #<Function GENERIC-STREAM-WRITE-STRING #x060c1dee> + 204
> (#xF01341D0) #x020FB9FC : #<Function WRITE-STRING #x060ff546> + 168
> (#xF01341E0) #x0223F698 : #<Function FLUSH #x062d4e6e> + 100
> (#xF01341F0) #x02240ECC : #<Function WRITE-STRING++ #x062d59e6> + 80
> (#xF0134200) #x02241248 : #<Function WRITE-STRING+ #x062d5c4e> + 268
> (#xF0134210) #x022422E8 : #<Method-Function STREAM-WRITE-STRING (XP-STREAM T) #x062d6d46> + 148
> (#xF0134220) #x021056DC : #<Function HANDLER #x0610ad3e> + 176
> (#xF0134230) #x02107A60 : #<Function SIGNAL #x0610c86e> + 532
> (#xF0134240) #x0213A07C : #<Function %ERROR #x0615fb0e> + 72
> (#xF0134250) #x02114B74 : #<Function FUNCALL-WITH-ERROR-REENTRY-DETECTION #x0612b806> + 112
> (#xF0134260) #x00004D7C : (subprimitive _ret1valn)
> (#xF0134270) #x0213B528 : #<Anonymous Function #x06160dae> + 188
> (#xF0134280) #x00004D7C : (subprimitive _ret1valn)
> (#xF0134290) #x021146C4 : #<Function FUNCALL-WITH-XP-STACK-FRAMES #x0612b626> + 248
> (#xF01342A0) #x0213B7AC : #<Function %XERR-DISP #x06160dfe> + 632
> (#xF01342B0) #x0213B7C0 : #<Function %XERR-DISP #x06160dfe> + 652
> (#xF01342C0) #x00006C94 : (subprimitive _SPcallback)
> (#xf01342d0) #x00010E84 : _callback_to_lisp + 168
> (#xF0134C90) #x0200A004 : #<Function VECTOR-PUSH-EXTEND #x06005d6e> + 296
> (#xF0134CA0) #x020FBA60 : #<Function WRITE-CHAR #x060ff5ae> + 76
> (#xF0134CB0) #x020D5BB8 : #<Function GENERIC-STREAM-WRITE-STRING #x060c1dee> + 204
> (#xF0134CC0) #x020FB9FC : #<Function WRITE-STRING #x060ff546> + 168
> (#xF0134CD0) #x0223F698 : #<Function FLUSH #x062d4e6e> + 100
> (#xF0134CE0) #x02240ECC : #<Function WRITE-STRING++ #x062d59e6> + 80
> (#xF0134CF0) #x02241248 : #<Function WRITE-STRING+ #x062d5c4e> + 268
> (#xF0134D00) #x022422E8 : #<Method-Function STREAM-WRITE-STRING (XP-STREAM T) #x062d6d46> + 148
> (#xF0134D10) #x02105764 : #<Function HANDLER #x0610ad3e> + 312
> (#xF0134D20) #x02107A60 : #<Function SIGNAL #x0610c86e> + 532
> (#xF0134D30) #x0213A07C : #<Function %ERROR #x0615fb0e> + 72
> (#xF0134D40) #x0213AF10 : #<Anonymous Function #x06160d26> + 212
> (#xF0134D50) #x00004D7C : (subprimitive _ret1valn)
> (#xF0134D60) #x02114B4C : #<Function FUNCALL-WITH-ERROR-REENTRY-DETECTION #x0612b806> + 72
> (#xF0134D70) #x00004D7C : (subprimitive _ret1valn)
> (#xF0134D80) #x0213B528 : #<Anonymous Function #x06160dae> + 188
> (#xF0134D90) #x00004D7C : (subprimitive _ret1valn)
> (#xF0134DA0) #x021146C4 : #<Function FUNCALL-WITH-XP-STACK-FRAMES #x0612b626> + 248
> (#xF0134DB0) #x0213B7AC : #<Function %XERR-DISP #x06160dfe> + 632
> (#xF0134DC0) #x0213B7C0 : #<Function %XERR-DISP #x06160dfe> + 652
> (#xF0134DD0) #x00006C94 : (subprimitive _SPcallback)
> (#xf0134de0) #x00010E84 : _callback_to_lisp + 168
> (#xF01357A0) #x0200A004 : #<Function VECTOR-PUSH-EXTEND #x06005d6e> + 296
> (#xF01357B0) #x020FBA60 : #<Function WRITE-CHAR #x060ff5ae> + 76
> (#xF01357C0) #x020D5BB8 : #<Function GENERIC-STREAM-WRITE-STRING #x060c1dee> + 204
> (#xF01357D0) #x020FB9FC : #<Function WRITE-STRING #x060ff546> + 168
> (#xF01357E0) #x0223F698 : #<Function FLUSH #x062d4e6e> + 100
> (#xF01357F0) #x02240FD0 : #<Function WRITE-CHAR++ #x062d5b56> + 76
> (#xF0135800) #x02242374 : #<Method-Function STREAM-WRITE-CHAR (XP-STREAM T) #x062d6ede> + 56
> (#xF0135810) #x02102ADC : #<Function WRITE-ESCAPED-STRING #x06108536> + 264
> (#xF0135820) #x02105300 : #<Method-Function PRINT-OBJECT (T T) #x0610a836> + 844
> (#xF0135830) #x00004D7C : (subprimitive _ret1valn)
> (#xF0135840) #x02105440 : #<Function WRITE-A-FROB #x0610a94e> + 100
> (#xF0135850) #x02105A60 : #<Function WRITE-INTERNAL #x0610ae0e> + 420
> (#xF0135860) #x02105A8C : #<Function WRITE-INTERNAL #x0610ae0e> + 464
> (#xF0135870) #x02100B30 : #<Function WRITE-A-STRUCTURE #x061071be> + 860
> (#xF0135880) #x02105214 : #<Method-Function PRINT-OBJECT (T T) #x0610a836> + 608
> (#xF0135890) #x00004D7C : (subprimitive _ret1valn)
> (#xF01358A0) #x02105440 : #<Function WRITE-A-FROB #x0610a94e> + 100
> (#xF01358B0) #x02105A60 : #<Function WRITE-INTERNAL #x0610ae0e> + 420
> (#xF01358C0) #x02105A8C : #<Function WRITE-INTERNAL #x0610ae0e> + 464
> (#xF01358D0) #x021054C4 : #<Function WRITE-A-FROB #x0610a94e> + 232
> (#xF01358E0) #x02102F5C : #<Function WRITE-A-CONS #x0610875e> + 240
> (#xF01358F0) #x02105044 : #<Method-Function PRINT-OBJECT (T T) #x0610a836> + 144
> (#xF0135900) #x00004D7C : (subprimitive _ret1valn)
> (#xF0135910) #x02105440 : #<Function WRITE-A-FROB #x0610a94e> + 100
> (#xF0135920) #x02105A60 : #<Function WRITE-INTERNAL #x0610ae0e> + 420
> (#xF0135930) #x02105A8C : #<Function WRITE-INTERNAL #x0610ae0e> + 464
> (#xF0135940) #x020FF67C : #<Function WRITE-1 #x06105ebe> + 304
> (#xF0135950) #x00004D7C : (subprimitive _ret1valn)
> (#xF0135960) #x020FEC34 : #<Function PRIN1 #x06105686> + 72
> (#xF0135970) #x00004D7C : (subprimitive _ret1valn)
> (#xF0135980) #x021EBDF0 : #<Anonymous Function #x062661ae> + 108
> (#xF0135990) #x0211CA64 : #<Function SUB-FORMAT #x06136436> + 1672
> (#xF01359A0) #x021E257C : #<Function DO-SUB-FORMAT #x0625dc86> + 80
> (#xF01359B0) #x021E2584 : #<Function DO-SUB-FORMAT #x0625dc86> + 88
> (#xF01359C0) #x021E2590 : #<Function DO-SUB-FORMAT #x0625dc86> + 100
> (#xF01359D0) #x0223CF0C : #<Function DO-SUB-FORMAT-1 #x062d3616> + 128
> (#xF01359E0) #x0223E23C : #<Function DO-XP-PRINTING #x062d4296> + 192
> (#xF01359F0) #x0223E260 : #<Function DO-XP-PRINTING #x062d4296> + 228
> (#xF0135A00) #x0223E638 : #<Function MAYBE-INITIATE-XP-PRINTING #x062d44a6> + 348
> (#xF0135A10) #x021E28D4 : #<Function FORMAT #x0625de16> + 712
> (#xF0135A20) #x021E26B4 : #<Function FORMAT #x0625de16> + 168
> (#xF0135A30) #x021E2664 : #<Function FORMAT #x0625de16> + 88
> (#xF0135A40) #x0211058C : #<Method-Function REPORT-CONDITION (COMPILE-TIME-PROGRAM-ERROR T) #x0611d32e> + 112
> (#xF0135A50) #x0210DA78 : #<Function %BREAK-MESSAGE #x06114dbe> + 420
> (#xF0135A60) #x0210DF90 : #<Function BREAK-LOOP-HANDLE-ERROR #x0611540e> + 308
> (#xF0135A70) #x00004D7C : (subprimitive _ret1valn)
> (#xF0135A80) #x020BC408 : #<Function %%STANDARD-COMBINED-METHOD-DCODE #x0608e4b6> + 148
> (#xF0135A90) #x00006FA0 : (subprimitive _popj)
> (#xF0135AA0) #x0213A09C : #<Function %ERROR #x0615fb0e> + 104
> (#xF0135AB0) #x021720D8 : #<Function NX-ERROR #x061de33e> + 100
> (#xF0135AC0) #x00004D7C : (subprimitive _ret1valn)
> (#xF0135AD0) #x021644D0 : #<Function NX1-COMBINATION #x061cec5e> + 404
> (#xF0135AE0) #x02177AD0 : #<Function NX1-SETQ #x061e34ce> + 508
> (#xF0135AF0) #x00004D7C : (subprimitive _ret1valn)
> (#xF0135B00) #x02164428 : #<Function NX1-COMBINATION #x061cec5e> + 236
> (#xF0135B10) #x02165310 : #<Function NX1-FORM #x061cf646> + 188
> (#xF0135B20) #x0217CE38 : #<Function NX1-ENV-BODY #x061e8b0e> + 44
> (#xF0135B30) #x021666D4 : #<Function NX1-LAMBDA #x061d0296> + 720
> (#xF0135B40) #x02166AD4 : #<Function NX1-COMPILE-LAMBDA #x061d059e> + 600
> (#xF0135B50) #x0217BACC : #<Function COMPILE-NAMED-FUNCTION #x061e779e> + 296
> (#xF0135B60) #x00004D7C : (subprimitive _ret1valn)
> (#xF0135B70) #x022076B4 : #<Function FCOMP-NAMED-FUNCTION #x06281606> + 160
> (#xF0135B80) #x022078DC : #<Function FCOMP-COMPILE-TOPLEVEL-FORMS #x06281826> + 360
> (#xF0135B90) #x0220791C : #<Function FCOMP-COMPILE-TOPLEVEL-FORMS #x06281826> + 424
> (#xF0135BA0) #x00004D7C : (subprimitive _ret1valn)
> (#xF0135BB0) #x021FD2E8 : #<Function FCOMP-READ-LOOP #x0627722e> + 1004
> (#xF0135BC0) #x021FCF88 : #<Function FCOMP-READ-LOOP #x0627722e> + 140
> (#xF0135BD0) #x021FD534 : #<Function FCOMP-FILE #x062773f6> + 344
> (#xF0135BE0) #x021FDE58 : #<Function %COMPILE-FILE #x0627858e> + 1092
> (#xF0135BF0) #x00004D7C : (subprimitive _ret1valn)
> (#xF0135C00) #x021FE378 : #<Function COMPILE-FILE #x06278c0e> + 756
> (#xF0135C10) #x021FE3CC : #<Function COMPILE-FILE #x06278c0e> + 840
> (#xF0135C20) #x00004D7C : (subprimitive _ret1valn)
> (#xF0135C30) #x0210F994 : #<Function CALL-CHECK-REGS #x06117576> + 72
> (#xF0135C40) #x00004D7C : (subprimitive _ret1valn)
> (#xF0135C50) #x0210E554 : #<Function TOPLEVEL-EVAL #x061159ae> + 152
> (#xF0135C60) #x0210EB10 : #<Function READ-LOOP #x06115fae> + 844
> (#xF0135C70) #x0210EB48 : #<Function READ-LOOP #x06115fae> + 900
> (#xF0135C80) #x0210EB74 : #<Function READ-LOOP #x06115fae> + 944
> (#xF0135C90) #x0210EBA0 : #<Function READ-LOOP #x06115fae> + 988
> (#xF0135CA0) #x0210F8E0 : #<Function TOPLEVEL-LOOP #x06117346> + 44
> (#xF0135CB0) #x0210F8E8 : #<Function TOPLEVEL-LOOP #x06117346> + 52
> (#xF0135CC0) #x020F8720 : #<Anonymous Function #x060f841e> + 68
> (#xF0135CD0) #x00004D7C : (subprimitive _ret1valn)
> (#xF0135CE0) #x021223EC : #<Anonymous Function #x0613e92e> + 592
> (#xF0135CF0) #x021221EC : #<Anonymous Function #x0613e92e> + 80
> (#xF0135D00) #x020FD044 : #<Function RUN-PROCESS-INITIAL-FORM #x061014f6> + 400
> (#xF0135D10) #x020FD080 : #<Function RUN-PROCESS-INITIAL-FORM #x061014f6> + 460
> (#xF0135D20) #x020FD194 : #<Function RUN-PROCESS-INITIAL-FORM #x061014f6> + 736
> (#xF0135D30) #x00004D7C : (subprimitive _ret1valn)
> (#xF0135D40) #x020FD314 : #<Anonymous Function #x06101626> + 152
> (#xF0135D50) #x020FD2FC : #<Anonymous Function #x06101626> + 128
> (#xF0135D60) #x020F5450 : #<Anonymous Function #x060f4216> + 172
> (#xF0135D70) #x0000881C : (subprimitive toplevel_loop)
> (#xF0135D80) #x00008828 : (subprimitive toplevel_loop)
> (#xf0135d90) #x000088F4 : _start_lisp + 180
> (#xf0135e50) #x00012CAC : _lisp_thread_entry + 152
> (#xf0135eb0) #x90020C28 : __pthread_body + 40
> (#xf0135f00) #x00000000 : (null) + 0
>
>
> cstack area #x00081fb0
>
>
> (#xF039BC60) #x020E1B4C : #<Function FD-INPUT-AVAILABLE-P #x060dea5e> + 344
> (#xF039BC70) #x020E2004 : #<Function PROCESS-INPUT-WAIT #x060def8e> + 240
> (#xF039BC80) #x0213E6A0 : #<Function SOCKET-ACCEPT #x061644a6> + 108
> (#xF039BC90) #x0213E488 : #<Function ACCEPT-SOCKET-CONNECTION #x061642b6> + 164
> (#xF039BCA0) #x0213E428 : #<Function ACCEPT-SOCKET-CONNECTION #x061642b6> + 68
> (#xF039BCB0) #x00004D7C : (subprimitive _ret1valn)
> (#xF039BCC0) #x020B36C0 : #<Function %%CHECK-KEYWORDS #x0608622e> + 172
> (#xF039BCD0) #x00006FA0 : (subprimitive _popj)
> (#xF039BCE0) #x064DABB0 : #<Function SERVE-CONNECTION #x064dac46> + 44
> (#xF039BCF0) #x064DAEF8 : #<Anonymous Function #x064daf16> + 44
> (#xF039BD00) #x020FD044 : #<Function RUN-PROCESS-INITIAL-FORM #x061014f6> + 400
> (#xF039BD10) #x020FD080 : #<Function RUN-PROCESS-INITIAL-FORM #x061014f6> + 460
> (#xF039BD20) #x020FD194 : #<Function RUN-PROCESS-INITIAL-FORM #x061014f6> + 736
> (#xF039BD30) #x00004D7C : (subprimitive _ret1valn)
> (#xF039BD40) #x020FD314 : #<Anonymous Function #x06101626> + 152
> (#xF039BD50) #x020FD2FC : #<Anonymous Function #x06101626> + 128
> (#xF039BD60) #x020F5450 : #<Anonymous Function #x060f4216> + 172
> (#xF039BD70) #x0000881C : (subprimitive toplevel_loop)
> (#xF039BD80) #x00008828 : (subprimitive toplevel_loop)
> (#xf039bd90) #x000088F4 : _start_lisp + 180
> (#xf039be50) #x00012CAC : _lisp_thread_entry + 152
> (#xf039beb0) #x90020C28 : __pthread_body + 40
> (#xf039bf00) #x00000000 : (null) + 0
>
>
> cstack area #x00084dd0
>
>
> (#xF0268C60) #x020E1B4C : #<Function FD-INPUT-AVAILABLE-P #x060dea5e> + 344
> (#xF0268C70) #x020E2004 : #<Function PROCESS-INPUT-WAIT #x060def8e> + 240
> (#xF0268C80) #x0213E6A0 : #<Function SOCKET-ACCEPT #x061644a6> + 108
> (#xF0268C90) #x0213E488 : #<Function ACCEPT-SOCKET-CONNECTION #x061642b6> + 164
> (#xF0268CA0) #x0213E428 : #<Function ACCEPT-SOCKET-CONNECTION #x061642b6> + 68
> (#xF0268CB0) #x00004D7C : (subprimitive _ret1valn)
> (#xF0268CC0) #x020B36C0 : #<Function %%CHECK-KEYWORDS #x0608622e> + 172
> (#xF0268CD0) #x00006FA0 : (subprimitive _popj)
> (#xF0268CE0) #x06565940 : #<Method-Function READ-REQUEST (MOD-LISP-BACKEND) #x06565d66> + 92
> (#xF0268CF0) #x0656129C : #<Anonymous Function #x065612f6> + 48
> (#xF0268D00) #x020FD044 : #<Function RUN-PROCESS-INITIAL-FORM #x061014f6> + 400
> (#xF0268D10) #x020FD080 : #<Function RUN-PROCESS-INITIAL-FORM #x061014f6> + 460
> (#xF0268D20) #x020FD194 : #<Function RUN-PROCESS-INITIAL-FORM #x061014f6> + 736
> (#xF0268D30) #x00004D7C : (subprimitive _ret1valn)
> (#xF0268D40) #x020FD314 : #<Anonymous Function #x06101626> + 152
> (#xF0268D50) #x020FD2FC : #<Anonymous Function #x06101626> + 128
> (#xF0268D60) #x020F5450 : #<Anonymous Function #x060f4216> + 172
> (#xF0268D70) #x0000881C : (subprimitive toplevel_loop)
> (#xF0268D80) #x00008828 : (subprimitive toplevel_loop)
> (#xf0268d90) #x000088F4 : _start_lisp + 180
> (#xf0268e50) #x00012CAC : _lisp_thread_entry + 152
> (#xf0268eb0) #x90020C28 : __pthread_body + 40
> (#xf0268f00) #x00000000 : (null) + 0
>
>
> cstack area #x0007bc90
>
>
> (#xBFFFF9B0) #x020F6248 : #<Function %NANOSLEEP #x060f522e> + 268
> (#xBFFFF9C0) #x020F8588 : #<Anonymous Function #x060f8346> + 300
> (#xBFFFF9D0) #x020F85AC : #<Anonymous Function #x060f8346> + 336
> (#xBFFFF9E0) #x020F85B4 : #<Anonymous Function #x060f8346> + 344
> (#xBFFFF9F0) #x020F85E8 : #<Anonymous Function #x060f8346> + 396
> (#xBFFFFA00) #x0000881C : (subprimitive toplevel_loop)
> (#xBFFFFA10) #x00008828 : (subprimitive toplevel_loop)
> (#xbffffa20) #x000088F4 : _start_lisp + 180
> 16439] OpenMCL kernel debugger: :L
> [16439] OpenMCL kernel debugger: [16439] OpenMCL kernel debugger: :?
> [16439] OpenMCL kernel debugger: (B)  Show backtrace
> (X)  Exit from this debugger, asserting that any exception was handled
> (K)  Kill OpenMCL process
> (?)  Show this help
> [16439] OpenMCL kernel debugger: L
> [16439] OpenMCL kernel debugger: l
> [16439] OpenMCL kernel debugger: o
>
> --
> -Marco
> Ring the bells that still can ring.
> Forget your perfect offering.
> There is a crack in everything.
> That's how the light gets in.
>      -Leonard Cohen
>
>



More information about the Openmcl-devel mailing list