Steel Bank Common Lisp

I'm trying to follow the tutorial at
<http://www.kantz.com/jason/clim-primer/application-frames.htm>, but
am getting stuck at a refused connection. I'm on Mac OS X, and have
set $DISPLAY to "localhost:0.0" (XQuartz sets it to something
dumb). However, I'm landing in the debugger still. I recall getting it
working once before, but I've forgotten what must be done. This is
through Slime. The same error happens when running SBCL manually in an
xterm.

Socket error in "connect": ECONNREFUSED (Connection refused)
   [Condition of type SB-BSD-SOCKETS:CONNECTION-REFUSED-ERROR]

Restarts:
 0: [RETRY] Retry SLIME REPL evaluation request.
 1: [*ABORT] Return to SLIME's top level.
 2: [ABORT] Abort thread (#<THREAD "repl-thread" RUNNING {10035F0023}>)

Backtrace:
  0: (SB-BSD-SOCKETS:SOCKET-ERROR "connect")
  1: ((SB-PCL::FAST-METHOD SB-BSD-SOCKETS:SOCKET-CONNECT (SB-BSD-SOCKETS:SOCKET)) #<unused argument> #<unused argument> #<SB-BSD-SOCKETS:INET-SOCKET 127.0.0.1:51821, fd: 10 {1002EABEE3}> #(127 0 0 1) 6000)
  2: (XLIB::OPEN-X-STREAM "localhost" 0 #<unavailable argument>)
  3: (XLIB:OPEN-DISPLAY "localhost" :DISPLAY 0 :PROTOCOL :INTERNET :AUTHORIZATION-NAME NIL :AUTHORIZATION-DATA NIL)
  4: ((SB-PCL::FAST-METHOD CLIM-CLX::INITIALIZE-CLX (CLIM-CLX::CLX-PORT)) #<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-PORT  {1002EA1B23}>)
  5: ((SB-PCL::EMF INITIALIZE-INSTANCE) #<unused argument> #<unused argument> #<CLIM-CLX::CLX-PORT  {1002EA1B23}> :SERVER-PATH (:CLX :HOST "localhost" :DISPLAY-ID 0 :SCREEN-ID ...))
  6: ((SB-PCL::FAST-METHOD MAKE-INSTANCE (CLASS)) #<unused argument> #<unused argument> #<STANDARD-CLASS CLIM-CLX::CLX-PORT> #<unavailable &REST argument>)
  7: (FIND-PORT :SERVER-PATH NIL)
  8: (FIND-FRAME-MANAGER)
  9: ((SB-PCL::FAST-METHOD RUN-FRAME-TOP-LEVEL :AROUND (APPLICATION-FRAME)) ..)
 10: (SB-INT:SIMPLE-EVAL-IN-LEXENV (RUN-FRAME-TOP-LEVEL (MAKE-APPLICATION-FRAME 'WORD :WIDTH 300 :HEIGHT 300)) #<NULL-LEXENV>)
 11: (EVAL (RUN-FRAME-TOP-LEVEL (MAKE-APPLICATION-FRAME 'WORD :WIDTH 300 :HEIGHT 300)))
 --more--