CLX on sbcl

[bpecsek]

I use sbcl 2.0.0 on cygwin64 on WIN10 and when I try to load clx with quickload I get the following error during the compilation process.

$ sbcl
This is SBCL 2.0.0, an implementation of ANSI Common Lisp.
More information about SBCL is available at http://www.sbcl.org/.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses. See the CREDITS and COPYING files in the
distribution for more information.

WARNING: the Windows port is fragile, particularly for multithreaded
code. Unfortunately, the development team currently lacks the time
and resources this platform demands.

• (ql:quickload 'clx)
  To load "clx":
  Load 1 ASDF system:
  clx
  ; Loading "clx"
  [package xlib]....................................
  ..................................................
  ..................................................
  ..............................
  ; file: D:/cygwin64/home/pbela/quicklisp/local-projects/clx/input.lisp
  ; in: DEFINE-CONDITION UNEXPECTED-REPLY
  ; (FORMAT STREAM "Display ~s received a server reply when none was expected.
  ~@
  ; Last request sequence ~d Reply Sequence ~d Reply Length ~d
  bytes."
  ; (XLIB::UNEXPECTED-REPLY-DISPLAY CONDITION)
  ; (XLIB::UNEXPECTED-REPLY-REQ-SEQUENCE CONDITION)
  ; (XLIB::UNEXPECTED-REPLY-MSG-SEQUENCE CONDITION)
  ; (XLIB::UNEXPECTED-REPLY-LENGTH CONDITION))
  ;
  ; caught ERROR:
  ; during macroexpansion of
  ; (FORMATTER "Display s received a server reply when none was expected.@
  ; Last request sequence ~d Reply Sequence ~d Reply Length ~d
  bytes.").
  ; Use BREAK-ON-SIGNALS to intercept.
  ;
  ; error in FORMAT: Unknown directive (character: Return)
  ; Display s received a server reply when none was expected.@
  ; Last request sequence ~d Reply Sequence ~d Reply Length ~d
  bytes.
  ; ^
  ..
  debugger invoked on a UIOP/LISP-BUILD:COMPILE-FILE-ERROR in thread
  #<THREAD "main thread" RUNNING {10010B0523}>:
  COMPILE-FILE-ERROR while compiling #<CLX-SOURCE-FILE "clx" "input">

Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
0: [RETRY ] Retry
compiling #<CLX-SOURCE-FILE "clx" "input">.

1: [ACCEPT ] Continue, treating
compiling #<CLX-SOURCE-FILE "clx" "input">
as having been successful.
2: Retry ASDF operation.
3: [CLEAR-CONFIGURATION-AND-RETRY] Retry ASDF operation after resetting the
configuration.
4: Retry ASDF operation.
5: Retry ASDF operation after resetting the
configuration.
6: [ABORT ] Give up on "clx"
7: Exit debugger, returning to top level.

(UIOP/LISP-BUILD:CHECK-LISP-COMPILE-RESULTS NIL T T "~/asdf-action::format-actio
n/" ((#<ASDF/LISP-ACTION:COMPILE-OP > . #<CLX-SYSTEM::CLX-SOURCE-FILE "clx" "inp
ut">)))
error finding frame source: Bogus form-number: the source file has probably
changed too much to cope with.
source: NIL
0]

[bpecsek]

Hi there,

I have also tried to quickload :clx without downloading it into ~/quicklisp/local-projects/.
It installes but then when I try to install the demo I get the following.

$ sbcl
This is SBCL 2.0.0, an implementation of ANSI Common Lisp.
More information about SBCL is available at http://www.sbcl.org/.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses. See the CREDITS and COPYING files in the
distribution for more information.

WARNING: the Windows port is fragile, particularly for multithreaded
code. Unfortunately, the development team currently lacks the time
and resources this platform demands.

• (ql:quickload :clx)
  To load "clx":
  Load 1 ASDF system:
  asdf
  Install 1 Quicklisp release:
  clx
  ; Fetching #<URL "http://beta.quicklisp.org/archive/clx/2019-11-30/clx-20191130-
  git.tgz">
  ; 446.62KB
  ==================================================
  457,343 bytes in 0.43 seconds (1043.51KB/sec)
  ; Loading "clx"
  [package xlib]....................................
  ..................................................
  ..................................................
  ..................................................
  ..................................................
  ..................................................
  ..................................................
  ..................................................
  ..................................................
  [package xlib/glx]................................
  [package xlib/gl].................................
  ..................................................
  [package xlib/dpms]...............................
  [package xlib/xtest]..............................
  ..................................................
  [package xlib/xinerama]...................
  (:CLX)
• (ql:quickload 'clx/demo)
  To load "clx/demo":
  Load 1 ASDF system:
  clx/demo
  ; Loading "clx/demo"
  ..................................................
  [package xlib-demo/clclock].
  debugger invoked on a UNDEFINED-FUNCTION in thread
  #<THREAD "main thread" RUNNING {10010B0523}>:
  The function XLIB::GET-DEFAULT-DISPLAY is undefined.

Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
0: [CONTINUE ] Retry calling XLIB::GET-DEFAULT-DISPLAY.
1: [USE-VALUE ] Call specified function.
2: [RETURN-VALUE ] Return specified values.
3: [RETURN-NOTHING ] Return zero values.
4: [TRY-RECOMPILING ] Recompile clclock and try loading it again
5: [RETRY ] Retry
loading FASL for #<CL-SOURCE-FILE "clx/demo
" "demo" "clclock">.
6: [ACCEPT ] Continue, treating
loading FASL for #<CL-SOURCE-FILE "clx/demo
" "demo" "clclock">
as having been successful.
7: Retry ASDF operation.
8: [CLEAR-CONFIGURATION-AND-RETRY] Retry ASDF operation after resetting the
configuration.
9: Retry ASDF operation.
10: Retry ASDF operation after resetting the
configuration.
11: [ABORT ] Give up on "clx/demo"
12: Exit debugger, returning to top level.

("undefined function" NIL)
0]

[dkochmanski]

Function "get-default-display" is implemented only for unix (see dependent.lisp). on windows you are expected to use open-display. that said, cygwin should be accounted for as some kind of a unix. One way to circumvent that could be passing :unix to *features* before loading the server. open-display should work as expected.