XQuartz DISPLAY parsing
While all of gramps compiles in SBCL on OSX 10.13.2, it has a problem connecting to the X11 server.
Under XQuartz, a unix domain socket is used, so that DISPLAY can look something like /private/tmp/com.apple.launchd.RG3VwzHvTy/org.macosforge.xquartz:0. But on connection, gramps is trying to do a hostname lookup on a pathname.
I've done some digging, but it's not clear to my why this should choke up gramps but not McCLIM.
Name service error in "gethostbyname": 1 (Unknown host)
[Condition of type SB-BSD-SOCKETS:HOST-NOT-FOUND-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 {1002E88003}>)
Backtrace:
0: (SB-BSD-SOCKETS:NAME-SERVICE-ERROR "gethostbyname" NIL)
Locals:
ERRNO = NIL
WHERE = "gethostbyname"
1: (SB-BSD-SOCKETS::MAKE-HOST-ENT #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X00000000 :TYPE (* (SB-ALIEN:STRUCT SB-BSD-SOCKETS-INTERNAL::HOSTENT (SB-BSD-SOCKETS-INTERNAL::NAME SB-ALIEN:C-STRING :OFFSET 0) (..
Locals:
SB-BSD-SOCKETS::ERRNO = NIL
SB-BSD-SOCKETS::H = #<SB-ALIEN-INTERNALS:ALIEN-VALUE :SAP #X00000000 :TYPE (* ..)>
2: ((FLET "WITHOUT-INTERRUPTS-BODY-58" :IN SB-THREAD::CALL-WITH-SYSTEM-MUTEX/ALLOW-WITH-INTERRUPTS))
Locals:
GOT-IT = T
MUTEX = #<SB-THREAD:MUTEX "gethostby lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {1002E88003}>>
3: (SB-THREAD::CALL-WITH-SYSTEM-MUTEX/ALLOW-WITH-INTERRUPTS #<CLOSURE (FLET SB-THREAD::WITH-SYSTEM-MUTEX-THUNK :IN SB-BSD-SOCKETS:GET-HOST-BY-NAME) {77DB5EB}> #<SB-THREAD:MUTEX "gethostby lock" owner: #<..
Locals:
FUNCTION = #<CLOSURE (FLET SB-THREAD::WITH-SYSTEM-MUTEX-THUNK :IN SB-BSD-SOCKETS:GET-HOST-BY-NAME) {77DB5EB}>
MUTEX = #<SB-THREAD:MUTEX "gethostby lock" owner: #<SB-THREAD:THREAD "repl-thread" RUNNING {1002E88003}>>
4: (SB-BSD-SOCKETS:GET-HOST-BY-NAME "/private/tmp/com.apple.launchd.RG3VwzHvTy/org.macosforge.xquartz")
Locals:
SB-BSD-SOCKETS::HOST-NAME = "/private/tmp/com.apple.launchd.RG3VwzHvTy/org.macosforge.xquartz"
5: (XLIB::OPEN-X-STREAM "/private/tmp/com.apple.launchd.RG3VwzHvTy/org.macosforge.xquartz" 0 #<unused argument>)
Locals:
DISPLAY = 0
HOST = "/private/tmp/com.apple.launchd.RG3VwzHvTy/org.macosforge.xquartz"
UNIX-DOMAIN-SOCKET-PATH = NIL
6: (XLIB:OPEN-DISPLAY "/private/tmp/com.apple.launchd.RG3VwzHvTy/org.macosforge.xquartz" :DISPLAY 0 :PROTOCOL NIL :AUTHORIZATION-NAME NIL :AUTHORIZATION-DATA NIL)
Locals:
#:.DEFAULTING-TEMP. = 0
#:.DEFAULTING-TEMP.#1 = NIL
#:.DEFAULTING-TEMP.#2 = NIL
#:.DEFAULTING-TEMP.#3 = NIL
AUTHORIZATION-DATA = ""
AUTHORIZATION-NAME = ""
DISPLAY = 0
HOST = "/private/tmp/com.apple.launchd.RG3VwzHvTy/org.macosforge.xquartz"
PROTOCOL = NIL
7: ((:METHOD INITIALIZE-INSTANCE :AFTER (CLX-CLIM::CLX-PORT)) #<CLX-CLIM::CLX-PORT {1004296E23}> :SERVER-PATH (:CLX)) [fast-method]
Locals:
#:.DEFAULTING-TEMP. = (:CLX)
CLX-CLIM::DISPLAY-NUMBER = 0
CLX-CLIM::DISPLAY-NUMBER#1 = 0
CLX-CLIM::DISPLAY-NUMBER#2 = NIL
#:G0 = NIL
#:G1 = 0
#:G2 = 0
#:G28 = #<CLX-CLIM::CLX-PORT {1004296E23}>
#:G3 = 0
#:G8 = #<CLX-CLIM::CLX-PORT {1004296E23}>
CLX-CLIM::HOST = "/private/tmp/com.apple.launchd.RG3VwzHvTy/org.macosforge.xquartz"
CLX-CLIM::HOST#1 = "/private/tmp/com.apple.launchd.RG3VwzHvTy/org.macosforge.xquartz"
CLX-CLIM::HOST#2 = "/private/tmp/com.apple.launchd.RG3VwzHvTy/org.macosforge.xquartz:0"
CLX-CLIM::NSCREEN = 0
CLX-CLIM::NSCREEN#1 = 0
CLIM:PORT = #<CLX-CLIM::CLX-PORT {1004296E23}>
CLX-CLIM::SCREEN = NIL
CLX-CLIM::SERVER-PATH = (:CLX)
8: ((SB-PCL::EMF INITIALIZE-INSTANCE) #<unused argument> #<unused argument> #<CLX-CLIM::CLX-PORT {1004296E23}> :SERVER-PATH (:CLX) :ALLOW-LOOSE-TEXT-STYLE-SIZE-MAPPING T)
Locals:
SB-PCL::.ARG0. = #<CLX-CLIM::CLX-PORT {1004296E23}>
SB-DEBUG::MORE = (:SERVER-PATH (:CLX) :ALLOW-LOOSE-TEXT-STYLE-SIZE-MAPPING T)
9: ((FLET CALL-NEXT-METHOD :IN "/Users/annis/quicklisp/local-projects/gramps-clim2/silica/port.lisp"))
Locals:
SB-PCL::.NEXT-METHOD-CALL. = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<CLOSURE (SB-PCL::COMBINED-METHOD INITIALIZE-INSTANCE) {100429878B}> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T))
SB-PCL::.REST-ARG. = (:SERVER-PATH (:CLX) :ALLOW-LOOSE-TEXT-STYLE-SIZE-MAPPING T)
SB-PCL::CNM-ARGS = NIL
#:EMF-N-20 = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<CLOSURE (SB-PCL::COMBINED-METHOD INITIALIZE-INSTANCE) {100429878B}> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T))
#:G21 = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<CLOSURE (SB-PCL::COMBINED-METHOD INITIALIZE-INSTANCE) {100429878B}> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T))
CLIM:PORT = #<CLX-CLIM::CLX-PORT {1004296E23}>
10: ((:METHOD INITIALIZE-INSTANCE :AROUND (CLIM:BASIC-PORT)) #<CLX-CLIM::CLX-PORT {1004296E23}> :SERVER-PATH (:CLX) :ALLOW-LOOSE-TEXT-STYLE-SIZE-MAPPING T) [fast-method]
Locals:
SB-PCL::.ARGS-TAIL. = (:SERVER-PATH (:CLX) :ALLOW-LOOSE-TEXT-STYLE-SIZE-MAPPING T)
SB-PCL::.NEXT-METHOD-CALL. = #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<CLOSURE (SB-PCL::COMBINED-METHOD INITIALIZE-INSTANCE) {100429878B}> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T))
SB-PCL::.PV. = #(0 ..)
SB-PCL::.REST-ARG. = (:SERVER-PATH (:CLX) :ALLOW-LOOSE-TEXT-STYLE-SIZE-MAPPING T)
SB-PCL::.SLOTS0. = #((:CLX) NIL #<SB-THREAD:MUTEX "a port lock" (free)> NIL NIL NIL ...)
CLIM:PORT = #<CLX-CLIM::CLX-PORT {1004296E23}>
CLIM-SILICA::SERVER-PATH = (:CLX)
11: ((:METHOD MAKE-INSTANCE (CLASS)) #<STANDARD-CLASS CLX-CLIM::CLX-PORT> :SERVER-PATH (:CLX) :ALLOW-LOOSE-TEXT-STYLE-SIZE-MAPPING T) [fast-method]
Locals:
CLASS = #<STANDARD-CLASS CLX-CLIM::CLX-PORT>
SB-PCL::INITARGS = (:SERVER-PATH (:CLX) :ALLOW-LOOSE-TEXT-STYLE-SIZE-MAPPING T)
12: (CLIM-SILICA::MAKE-PORT :SERVER-PATH (:CLX))
Locals:
#:.DEFAULTING-TEMP. = (:CLX)
SERVER-PATH = (:CLX)
SB-DEBUG::MORE = (:SERVER-PATH (:CLX))
13: (CLIM:FIND-PORT)
Locals:
#:.DEFAULTING-TEMP. = NIL
CLIM-SILICA::INITARGS = NIL
CLIM-SILICA::INITARGS#1 = NIL
#:N-SUPPLIED-2 = 0
CLIM-SILICA::SERVER-PATH = (:CLX)