I'm not sure what the best forum for reporting bugs in beirc and or
mcclim these days (any interest in launchpad projects for these and
similar projects?), but I came across this bug in beirc today, and I
thought I'd post it here to see if anyone has any ideas.
This is with SBCL 1.0.39.15 on linux/x86-64/sb-threads.
any suggestions would be appreciated.
thanks,
Cyrus
unhandled TYPE-ERROR in thread #<SB-THREAD:THREAD "initial thread" RUNNING
{1002AC2D11}>:
The value 953 is not of type (UNSIGNED-BYTE 8).
0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA #) {1003E9BD59}>)[:EXTERNAL]
1: (SB-DEBUG:BACKTRACE
128
#<SYNONYM-STREAM :SYMBOL SB-SYS:*STDERR* {1000159B51}>)
2: (SB-DEBUG::DEBUGGER-DISABLED-HOOK
#<TYPE-ERROR {1003E99321}>
#<unavailable argument>)
3: (SB-DEBUG::RUN-HOOK SB-EXT:*INVOKE-DEBUGGER-HOOK* #<TYPE-ERROR
{1003E99321}>)
4: (INVOKE-DEBUGGER #<TYPE-ERROR {1003E99321}>)
5: (ERROR TYPE-ERROR)[:EXTERNAL]
6: (SB-KERNEL::OBJECT-NOT-TYPE-ERROR-HANDLER
#<unavailable argument>
#.(SB-SYS:INT-SAP #X7FFFF4EC1980)
#<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X7FFFF4EC1500 :TYPE (*
(SB-ALIEN:STRUCT SB-VM::OS-CONTEXT-T-STRUCT))>
(405 21))
7: (SB-KERNEL:INTERNAL-ERROR
#.(SB-SYS:INT-SAP #X7FFFF4EC1500)
#<unavailable argument>)
8: ("foreign function: #x422C00")
9: ("foreign function: #x40D15C")
10: ("foreign function: #x4133A5")
11: ("foreign function: #x4140BA")
12: (SB-IMPL::OPTIMIZED-DATA-VECTOR-SET
#<unavailable argument>
#<unavailable argument>
#<unavailable argument>)
13: (CLIM-CLX::TRANSLATE
"ι"
0
1
#<XLIB:FONT
-adobe-helvetica-medium-r-normal--14-100-100-100-p-76-iso10646-1
:0 50331673>
#(56 0 4 0 85 0 0 3 4 0 0 0 190 190 190 0 59 0 5 0 85 0 0 3 0 0 0 0
0 0 45
45 5 3 191 1 74 0 5 0 83 0 0 3 85 0 0 3 33 4 251 46 1 0 91 0 74 0
6 0 83
...
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0)
138)
14: ((FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK))
15: ((FLET #:WITHOUT-INTERRUPTS-BODY-[CALL-WITH-RECURSIVE-LOCK]324))
16: (SB-THREAD::CALL-WITH-RECURSIVE-LOCK
#<CLOSURE (FLET SB-THREAD::WITH-RECURSIVE-LOCK-THUNK) {7FFFF4EC1CA9}>
#S(SB-THREAD:MUTEX
:NAME "CLX Buffer Lock"
:%OWNER #<SB-THREAD:THREAD "initial thread" RUNNING {1002AC2D11}>
:STATE 1))
17: (XLIB::DRAW-GLYPHS8
#<XLIB:WINDOW :0 3000053>
#<XLIB:GCONTEXT :0 50331733>
93
12027
"ι"
0
1
#<FUNCTION CLIM-CLX::TRANSLATE>
#<unavailable argument>)
18: ((SB-PCL::FAST-METHOD CLIM:MEDIUM-DRAW-TEXT*
(CLIM-CLX::CLX-MEDIUM T T T T T T T T T T))
#<unavailable argument>
#<unavailable argument>
#<CLIM-CLX::CLX-MEDIUM {10061DE701}>
"ι"
93
12027
0
1
:LEFT
:BASELINE
#<unavailable argument>
#<unavailable argument>
#<unavailable argument>)
19: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL
(CLIM:MEDIUM T T))
#<unavailable argument>
#<unavailable argument>
#<CLIM-CLX::CLX-MEDIUM {10061DE701}>
#<CLIM-CLX::CLX-MEDIUM {10061DE701}>
#<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP)
{7FFFF4EC20D9}>)[:EXTERNAL]
20: (CLIM:DRAW-TEXT* #<CLIM-CLX::CLX-MEDIUM {10061DE701}> "ι" 93
12027)[:EXTERNAL]
21: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::STREAM-WRITE-OUTPUT :AROUND
(CLIM:STANDARD-OUTPUT-RECORDING-STREAM T T))
#(45 NIL)
#S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #<FUNCTION #>
:PV NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (3 . T))
#<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}>
"ι"
NIL)[:EXTERNAL]
22: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL
(CLIM:MEDIUM T T))
#<unavailable argument>
#<unavailable argument>
#<CLIM-CLX::CLX-MEDIUM {10061DE701}>
#<CLIM-CLX::CLX-MEDIUM {10061DE701}>
#<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP)
{7FFFF4EC2499}>)[:EXTERNAL]
23: ((LABELS #:G294) #<CLIM-CLX::CLX-MEDIUM {10061DE701}>)
24: ((SB-PCL::FAST-METHOD CLIM:INVOKE-WITH-DRAWING-OPTIONS (CLIM:SHEET T))
#<unavailable argument>
#<unavailable argument>
#<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}>
#<CLOSURE (FLET #:GCONTINUATION6319) {7FFFF4EC2589}>)[:EXTERNAL]
25: ((LABELS #:G6300) #<CLIM-CLX::CLX-MEDIUM {10061DE701}>)
26: ((SB-PCL::FAST-METHOD CLIM:REPLAY-OUTPUT-RECORD
(CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD T))
#(8 NIL 10 NIL 14 NIL 7 NIL 17 NIL)
#<unused argument>
#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 93,12014 ("ι")
{1003B5C791}>
#<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}>
#<unused argument>
#<unused argument>
#<unused argument>)
27: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL
(CLIM:MEDIUM T T))
#<unavailable argument>
#<unavailable argument>
#<CLIM-CLX::CLX-MEDIUM {10061DE701}>
#<CLIM-CLX::CLX-MEDIUM {10061DE701}>
#<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP)
{7FFFF4EC2869}>)[:EXTERNAL]
28: ((LABELS #:G294) #<CLIM-CLX::CLX-MEDIUM {10061DE701}>)
29: ((SB-PCL::FAST-METHOD CLIM:INVOKE-WITH-DRAWING-OPTIONS (CLIM:SHEET T))
#<unavailable argument>
#<unavailable argument>
#<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}>
#<CLOSURE (FLET #:GCONTINUATION1711) {7FFFF4EC2939}>)[:EXTERNAL]
30: ((SB-PCL::FAST-METHOD CLIM:REPLAY-OUTPUT-RECORD :AROUND
(CLIM-INTERNALS::GS-INK-MIXIN T))
#<unavailable argument>
#S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #<FUNCTION #>
:PV #(8 NIL 10 NIL 14 NIL 7 NIL 17 NIL)
:NEXT-METHOD-CALL NIL
:ARG-INFO (2 . T))
#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 93,12014 ("ι")
{1003B5C791}>
#<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}>)[:EXTERNAL]
31: ((LABELS #:G441) #<CLIM-CLX::CLX-MEDIUM {10061DE701}>)
32: (CLIM:REPLAY
#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 93,12014 ("ι")
{1003B5C791}>
#<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}>
#<CLIM:STANDARD-RECTANGLE X 0:773 Y 11565:12012 {1003E965A1}>)
33: ((SB-PCL::FAST-METHOD CLIM:INCREMENTAL-REDISPLAY
(CLIM-INTERNALS::UPDATING-OUTPUT-STREAM-MIXIN T T T T T T))
#<unavailable argument>
#<unavailable argument>
#<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}>
#<unavailable argument>
NIL
NIL
((#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD
1057,12014 ("[" "14:" "11]") {1003B5D651}>
#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD
1057,12014 ("[" "14:" "11]") {1003B5D651}>)
(#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 93,12014
("ι")
{1003B5C791}>
#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 93,12014
("ι")
{1003B5C791}>)
(#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 81,12014
(">")
{10044542E1}>
#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 81,12014
(">")
{10044542E1}>)
(#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD
44,12014 ("cbeok") {1004473F11}>
#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD
44,12014 ("cbeok") {1004473F11}>)
(#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 36,12014
("<")
{10044542A1}>
#<CLIM-INTERNALS::STANDARD-TEXT-DISPLAYED-OUTPUT-RECORD 36,12014
("<")
{10044542A1}>))
NIL
NIL)
34: ((SB-PCL::FAST-METHOD CLIM:REDISPLAY-OUTPUT-RECORD
(CLIM:UPDATING-OUTPUT-RECORD
CLIM-INTERNALS::UPDATING-OUTPUT-STREAM-MIXIN))
#<unused argument>
#<unused argument>
#<CLIM:STANDARD-UPDATING-OUTPUT-RECORD
X 0:1100 Y 0:12030 CLIM-INTERNALS::TOP-LEVEL {10061DE731}>
#<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}>
T)
35: ((LAMBDA
(SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
SB-PCL::.ARG1.
SB-INT:&MORE SB-PCL::.DFUN-MORE-CONTEXT.
SB-PCL::.DFUN-MORE-COUNT.))
#<unused argument>
#<unused argument>
#<BEIRC:BEIRC {100304D5C1}>
#<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}>
17592162813397
2)
36: ((SB-PCL::FAST-METHOD CLIM:REDISPLAY-FRAME-PANE :AROUND
(CLIM:APPLICATION-FRAME T))
#<unavailable argument>
#S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #<CLOSURE # {1004351429}>
:PV NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (2 . T))
#<BEIRC:BEIRC {100304D5C1}>
#<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}>)[:EXTERNAL]
37: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET))
#<unavailable argument>
#<unavailable argument>
#<CLOSURE (LAMBDA #) {1003903B49}>
#<CLIM:APPLICATION-PANE "(Unnamed Pane)" {1003970631}>)
38: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET))
#<unavailable argument>
#<unavailable argument>
#<CLOSURE (LAMBDA #) {1003903B49}>
#<CLIM-EXTENSIONS:VIEWPORT-PANE "(Unnamed Pane)" {100398AB21}>)
39: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET))
#<unavailable argument>
#<unavailable argument>
#<CLOSURE (LAMBDA #) {1003903B49}>
#<CLIM:SCROLLER-PANE "(Unnamed Pane)" {1003971121}>)
40: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET))
#<unavailable argument>
#<unavailable argument>
#<CLOSURE (LAMBDA #) {1003903B49}>
#<CLIM-INTERNALS::BORDER-PANE "(Unnamed Pane)" {100398AA51}>)
41: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET))
#<unavailable argument>
#<unavailable argument>
#<CLOSURE (LAMBDA #) {1003903B49}>
#<CLIM-TAB-LAYOUT:TAB-LAYOUT-PANE BEIRC::QUERY {100398A571}>)
42: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET))
#<unavailable argument>
#<unavailable argument>
#<CLOSURE (LAMBDA #) {1003903B49}>
#<CLIM:VRACK-PANE "(Unnamed Pane)" {1003289351}>)
43: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET))
#<unavailable argument>
#<unavailable argument>
#<CLOSURE (LAMBDA #) {1003903B49}>
#<CLIM:VRACK-PANE "(Unnamed Pane)" {1003233771}>)
44: ((SB-PCL::FAST-METHOD CLIM:MAP-OVER-SHEETS (T CLIM:BASIC-SHEET))
#<unavailable argument>
#<unavailable argument>
#<CLOSURE (LAMBDA #) {1003903B49}>
#<CLIM-INTERNALS::TOP-LEVEL-SHEET-PANE CLIM-INTERNALS::TOP-LEVEL-SHEET
{1007A39561}>)
45: ((SB-PCL::FAST-METHOD CLIM:HANDLE-EVENT (BEIRC:BEIRC BEIRC::FOO-EVENT))
#<unavailable argument>
#<unavailable argument>
#<BEIRC:BEIRC {100304D5C1}>
#<BEIRC::FOO-EVENT {1002BEA581}>)
46: (CLIM-INTERNALS::HANDLE-NON-STREAM-EVENT
#<CLIM-INTERNALS::PORT-EVENT-QUEUE {100319B661}>)
47: ((SB-PCL::FAST-METHOD CLIM:STREAM-INPUT-WAIT
(CLIM:STANDARD-EXTENDED-INPUT-STREAM))
#<unavailable argument>
#<unavailable argument>
#<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}>)[:EXTERNAL]
48: ((SB-PCL::FAST-METHOD CLIM:STREAM-READ-GESTURE
(CLIM:STANDARD-EXTENDED-INPUT-STREAM))
#<unavailable argument>
#<unavailable argument>
#<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}>)[:EXTERNAL]
49: ((LAMBDA
(SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
SB-INT:&MORE
SB-PCL::.DFUN-MORE-CONTEXT. SB-PCL::.DFUN-MORE-COUNT.))
#<unused argument>
#<unused argument>
#<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}>
17592162813599
10)
50: ((SB-PCL::FAST-METHOD CLIM:STREAM-READ-GESTURE :AROUND
(CLIM-INTERNALS::DEAD-KEY-MERGING-MIXIN))
#(1 NIL 2 NIL 0 NIL)
#S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #<CLOSURE # {1009B59349}>
:PV NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (1 . T))
#<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}>)[:EXTERNAL]
51: ((SB-PCL::FAST-METHOD CLIM:STREAM-READ-GESTURE
(DREI:DREI-INPUT-EDITING-MIXIN))
#<unavailable argument>
#<unavailable argument>
#<CLIM:STANDARD-INPUT-EDITING-STREAM {1003CDF2A1}>)[:EXTERNAL]
52: ((LAMBDA (STREAM)) #<CLIM:STANDARD-INPUT-EDITING-STREAM {1003CDF2A1}>)
53: (CLIM-INTERNALS::INPUT-EDITING-RESCAN-LOOP
#<CLIM:STANDARD-INPUT-EDITING-STREAM {1003CDF2A1}>
#<CLOSURE (LAMBDA #) {1003CDF229}>)
54: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING :AROUND
(T T T T T))
#<unavailable argument>
#S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #<FUNCTION #>
:PV NIL
:NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #
:PV NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (5))
:ARG-INFO (5))
#<CLIM:STANDARD-INPUT-EDITING-STREAM {1003CDF2A1}>
#<CLOSURE (LAMBDA #) {1003CE6BB9}>
NIL
""
CLIM:STANDARD-INPUT-EDITING-STREAM)
55: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING
(CLIM:CLIM-STREAM-PANE T T T T))
#<unavailable argument>
#<unavailable argument>
#<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}>
#<CLOSURE (LAMBDA #) {1003CDF229}>
NIL
""
CLIM:STANDARD-INPUT-EDITING-STREAM)
56: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING :AROUND
(T T T T T))
#<unavailable argument>
#S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #<FUNCTION #>
:PV NIL
:NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #
:PV NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (5))
:ARG-INFO (5))
#<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}>
#<CLOSURE (LAMBDA #) {1003CDF229}>
NIL
""
CLIM:STANDARD-INPUT-EDITING-STREAM)
57: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::INVOKE-WITH-INPUT-EDITING :AROUND
(CLIM:EXTENDED-OUTPUT-STREAM T T T T))
#<unavailable argument>
#S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #<FUNCTION #>
:PV NIL
:NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #
:PV NIL
:NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #
:PV NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (5))
:ARG-INFO (5))
:ARG-INFO (5))
#<CLIM:INTERACTOR-PANE BEIRC::IO {10036599A1}>
#<CLOSURE (LAMBDA #) {1003CDF229}>
NIL
""
CLIM:STANDARD-INPUT-EDITING-STREAM)
58: ((SB-PCL::FAST-METHOD CLIM:READ-FRAME-COMMAND (BEIRC:BEIRC))
#<unavailable argument>
#<unavailable argument>
#<BEIRC:BEIRC {100304D5C1}>)[:EXTERNAL]
59: ((SB-PCL::FAST-METHOD CLIM:READ-FRAME-COMMAND :AROUND
(CLIM:APPLICATION-FRAME))
#<unavailable argument>
#S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #<FUNCTION #>
:PV NIL
:NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #
:PV NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (1 . T))
:ARG-INFO (1 . T))
#<BEIRC:BEIRC {100304D5C1}>)[:EXTERNAL]
60: ((SB-PCL::FAST-METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL
(CLIM:APPLICATION-FRAME))
#<unavailable argument>
#<unavailable argument>
#<BEIRC:BEIRC {100304D5C1}>)[:EXTERNAL]
61: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME))
#<unavailable argument>
#<unavailable argument>
#<BEIRC:BEIRC {100304D5C1}>)[:EXTERNAL]
62: ((SB-PCL::FAST-METHOD CLIM:RUN-FRAME-TOP-LEVEL :AROUND
(CLIM:APPLICATION-FRAME))
#<unavailable argument>
#S(SB-PCL::FAST-METHOD-CALL
:FUNCTION #<FUNCTION #>
:PV NIL
:NEXT-METHOD-CALL NIL
:ARG-INFO (1 . T))
#<BEIRC:BEIRC {100304D5C1}>)[:EXTERNAL]
63: ((LAMBDA ()))
64: ((LAMBDA ()))
65: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(WITH-APPLICATION NIL
(BEIRC:BEIRC :NEW-PROCESS NIL))
#<NULL-LEXENV>)
66: (SB-FASL::LOAD-AS-SOURCE
#<SB-SYS:FD-STREAM for "file /home/sly/src/clbuild/clbuild.lisp"
{1002E1C681}>
NIL
NIL)
67: ((FLET SB-FASL::LOAD-STREAM)
#<SB-SYS:FD-STREAM for "file /home/sly/src/clbuild/clbuild.lisp"
{1002E1C681}>
NIL)
68: (LOAD "/home/sly/src/clbuild/clbuild.lisp")[:EXTERNAL]
69: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(LOAD "/home/sly/src/clbuild/clbuild.lisp")
#<NULL-LEXENV>)
70: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS
((:EVAL . "(require :asdf)")
(:EVAL
. "(setq asdf:*central-registry*
'(#p\"/home/sly/src/clbuild/systems/\"))")
(:EVAL . "nil")
(:EVAL . "(load \"/home/sly/src/clbuild/clbuild.lisp\")")))
71: (SB-IMPL::TOPLEVEL-INIT)
72: ((LABELS SB-IMPL::RESTART-LISP))
