Failed to run hello-world.lisp

Hello!

I've just compiled clg from cvs on Debian unstable
using sbcl 1.0. When I try to run hello-world example I get
following:

The value NIL is not of type SYSTEM-AREA-POINTER.
   [Condition of type TYPE-ERROR]

Restarts:
  0: [ABORT-REQUEST] Abort handling SLIME request.
  1: [ABORT] Exit debugger, returning to top level.

Backtrace:
  0: (GLIB::SIGNAL-HANDLER-FIND NIL (:DATA) 0 0 NIL NIL 4)
  1: (GLIB::INVOKE-SIGNAL-HANDLER 4 #<unused argument> NIL)
  2: (GLIB::CALLBACK-TRAMPOLINE #<FUNCTION GLIB::INVOKE-SIGNAL-HANDLER> 4 1 #.(SB-SYS:INT-SAP #X7F8662A8) #.(SB-SYS:INT-SAP #X00000000))
  3: (NIL 534878255 534878255 #<FUNCTION GLIB::SIGNAL-HANDLER-MARSHAL>)
  4: ("foreign function: call_into_lisp")
  5: (GTK:WIDGET-SHOW #<GTK:WINDOW at 0x100DE8F0>)
  6: ((SB-PCL::FAST-METHOD SHARED-INITIALIZE :AFTER (#1="#<...>" . #1#)) (#(NIL) . #()) #<unused argument> #<GTK:WINDOW at 0x100DE8F0> #<unused argument> :PARENT NIL :VISIBLE T)
  7: ((LAMBDA (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. #1="#<...>" . #1#)) #<unused argument> #<unused argument> #<GTK:WINDOW at 0x100DE8F0> T 202289192 12)
  8: ((SB-PCL::FAST-METHOD INITIALIZE-INSTANCE (GTK::%OBJECT)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE #)> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<GTK:WINDOW at 0x100DE8F0> :TITLE "Test" :BORDER-WIDTH 5 :VISIBLE T :SHOW-CHILDREN T :CHILD #<GTK:BUTTON at 0x100D9A08> :SIGNAL (DELETE-EVENT #<FUNCTION (LAMBDA #) {525A78E5}>))
  9: ((SB-PCL::FAST-METHOD INITIALIZE-INSTANCE (GTK:WINDOW)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE #)> :PV-CELL NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) :ARG-INFO (1 . T)) #<GTK:WINDOW at 0x100DE8F0> :TITLE "Test" :BORDER-WIDTH 5 :VISIBLE T :SHOW-CHILDREN T :CHILD #<GTK:BUTTON at 0x100D9A08> :SIGNAL (DELETE-EVENT #<FUNCTION (LAMBDA #) {525A78E5}>))
 10: ((SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AROUND (#1="#<...>" . #1#)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE #)> :PV-CELL NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV-CELL NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV-CELL NIL :NEXT-METHOD-CALL NIL :ARG-INFO #) :ARG-INFO (1 . T)) :ARG-INFO (1 . T)) #<GTK:WINDOW at 0x100DE8F0> :TITLE "Test" :BORDER-WIDTH 5 :VISIBLE T :SHOW-CHILDREN T :CHILD #<GTK:BUTTON at 0x100D9A08> :SIGNAL (DELETE-EVENT #<FUNCTION (LAMBDA #) {525A78E5}>))
 11: ((SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AROUND (#1="#<...>" . #1#)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AROUND ...)> :PV-CELL NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV-CELL NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV-CELL NIL :NEXT-METHOD-CALL # :ARG-INFO #) :ARG-INFO (1 . T)) :ARG-INFO (1 . T)) #<GTK:WINDOW at 0x100DE8F0> :TITLE "Test" :BORDER-WIDTH 5 :VISIBLE T :SHOW-CHILDREN T :CHILD #<GTK:BUTTON at 0x100D9A08> :SIGNAL (DELETE-EVENT #<FUNCTION (LAMBDA #) {525A78E5}>))
 12: ((SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AROUND (#1="#<...>" . #1#)) #<unused argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-PCL::FAST-METHOD INITIALIZE-INSTANCE :AROUND ...)> :PV-CELL NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV-CELL NIL :NEXT-METHOD-CALL #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION #> :PV-CELL NIL :NEXT-METHOD-CALL # :ARG-INFO #) :ARG-INFO (1 . T)) :ARG-INFO (1 . T)) #<GTK:WINDOW at 0x100DE8F0> :TITLE "Test" :BORDER-WIDTH 5 :VISIBLE T :SHOW-CHILDREN T :CHILD #<GTK:BUTTON at 0x100D9A08> :SIGNAL (DELETE-EVENT #<FUNCTION (LAMBDA #) {525A78E5}>))
 13: ((SB-PCL::FAST-METHOD MAKE-INSTANCE (CLASS)) #<unused argument> #<unused argument> #<GLIB:GOBJECT-CLASS GTK:WINDOW> #<unavailable &REST argument>)
 14: (SB-INT:SIMPLE-EVAL-IN-LEXENV (MAKE-INSTANCE (QUOTE GTK:WINDOW) :TITLE "Test" :BORDER-WIDTH 5 :VISIBLE T :SHOW-CHILDREN T ...) #<NULL-LEXENV>)
 15: (SB-FASL::LOAD-AS-SOURCE #<SB-SYS:FD-STREAM for "file /home/max/src/Lisp/clg/hello-world.lisp" {525A7441}> NIL NIL)
 16: (SB-FASL::INTERNAL-LOAD #P"src/Lisp/clg/hello-world.lisp" #P"/home/max/src/Lisp/clg/hello-world.lisp" :ERROR NIL NIL :SOURCE :DEFAULT)
 17: (SB-FASL::INTERNAL-LOAD #P"src/Lisp/clg/hello-world.lisp" #P"/home/max/src/Lisp/clg/hello-world.lisp" :ERROR NIL NIL NIL :DEFAULT)
 18: (LOAD "src/Lisp/clg/hello-world.lisp")
 19: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LOAD "src/Lisp/clg/hello-world.lisp") #<NULL-LEXENV>)
 --more--

-- 
WBR,
Max Vasin.


-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV