[cl-cairo2-devel] X11 sample in Aug 22 version
Joubert Nel
joubert at joubster.com
Sat Aug 25 02:44:40 UTC 2007
Hi,
When I try to run the X11 example in the Aug 22 version, the following
happens:
--------------------------------------------------------------
CL-USER> (load
"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp")
; in: LAMBDA NIL
; CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY
;
; caught STYLE-WARNING:
; undefined function: OPEN-X11-DISPLAY
;
; caught STYLE-WARNING:
; This function is undefined:
; OPEN-X11-DISPLAY
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; Evaluation aborted.
CL-USER>
--------------------------------------------------------------
Does it work for anybody else?
Joubert
PS: here is a full stack trace:
function CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY is undefined.
[Condition of type UNDEFINED-FUNCTION]
Restarts:
0: [ABORT] Return to SLIME's top level.
1: [TERMINATE-THREAD] Terminate this thread (#<THREAD
"repl-thread" {AF89931}>)
Backtrace:
0: ("bogus stack frame")
1: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY ":0")
#<NULL-LEXENV>)
2: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(SB-IMPL::%DEFPARAMETER 'CAIRO-XLIB-EXAMPLE::*DISPLAY*
(CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY
":0")
NIL 'NIL (SB-C:SOURCE-LOCATION))
#<NULL-LEXENV>)
3: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
(SB-IMPL::%DEFPARAMETER 'CAIRO-XLIB-EXAMPLE::*DISPLAY*
(CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY
":0")
NIL 'NIL (SB-C:SOURCE-LOCATION)))
#<NULL-LEXENV>)
4: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(DEFPARAMETER CAIRO-XLIB-EXAMPLE::*DISPLAY*
(CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY ":0"))
#<NULL-LEXENV>)
5: (SB-FASL::LOAD-AS-SOURCE
#<SB-SYS:FD-STREAM for
"file /tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp" {B82F001}>
NIL
NIL)
6: (SB-FASL::INTERNAL-LOAD
#P"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp"
#P"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp"
:ERROR
NIL
NIL
:SOURCE
:DEFAULT)
7: (SB-FASL::INTERNAL-LOAD
#P"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp"
#P"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp"
:ERROR
NIL
NIL
NIL
:DEFAULT)
8: (LOAD
"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp")
9: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(LOAD
"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp")
#<NULL-LEXENV>)
10: (SWANK::EVAL-REGION
"(load
\"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp\")
"
T)
11: ((LAMBDA ()))
12: ((LAMBDA (SWANK-BACKEND::FN)) #<CLOSURE (LAMBDA #) {B816D45}>)
13: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA #) {B816D45}>)
14: (SWANK:LISTENER-EVAL
"(load
\"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp\")
")
15: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(SWANK:LISTENER-EVAL
"(load
\"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp\")
")
#<NULL-LEXENV>)
16: ((LAMBDA ()))
17: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))
#<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>
#<CLOSURE (LAMBDA #) {B816BCD}>)
18: ((LAMBDA ()))
19: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))
#<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>
#<FUNCTION (LAMBDA #) {AA86005}>)
20: (SWANK::CALL-WITH-REDIRECTED-IO
#<SWANK::CONNECTION {AE97F89}>
#<CLOSURE (LAMBDA #) {B816B15}>)
21: (SWANK::CALL-WITH-CONNECTION
#<SWANK::CONNECTION {AE97F89}>
#<FUNCTION (LAMBDA #) {AA86005}>)
22: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {AE97F89}>)
23: (SWANK::REPL-LOOP #<SWANK::CONNECTION {AE97F89}>)
24: (SWANK::REPL-LOOP #<SWANK::CONNECTION {AE97F89}>)
25: (SWANK::CALL-WITH-BINDINGS NIL #<CLOSURE (LAMBDA #) {AF990C5}>)
26: ((FLET SB-THREAD::WITH-MUTEX-THUNK))
27: (SB-UNIX::CALL-WITH-LOCAL-INTERRUPTS
#<CLOSURE (FLET SB-UNIX::WITH-LOCAL-INTERRUPTS-THUNK) {B647A095}>
T)
28: ((FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK) T)
29: ((FLET SB-UNIX::RUN-WITHOUT-INTERRUPTS))
30: (SB-UNIX::CALL-WITHOUT-INTERRUPTS
#<CLOSURE (FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK) {B647A185}>)
31: (SB-THREAD::CALL-WITH-MUTEX
#<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK) {B647A205}>
#S(SB-THREAD:MUTEX
:NAME "thread result lock"
:VALUE #<SB-THREAD:THREAD "repl-thread" {AF89931}>)
#<SB-THREAD:THREAD "repl-thread" {AF89931}>
T)
32: ((LAMBDA ()))
33: ("foreign function: call_into_lisp")
34: ("foreign function: funcall0")
35: ("foreign function: new_thread_trampoline")
36: ("foreign function: #xB7FBE31B") function
CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY is undefined.
[Condition of type UNDEFINED-FUNCTION]
Restarts:
0: [ABORT] Return to SLIME's top level.
1: [TERMINATE-THREAD] Terminate this thread (#<THREAD
"repl-thread" {AF89931}>)
Backtrace:
0: ("bogus stack frame")
1: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY ":0")
#<NULL-LEXENV>)
2: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(SB-IMPL::%DEFPARAMETER 'CAIRO-XLIB-EXAMPLE::*DISPLAY*
(CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY
":0")
NIL 'NIL (SB-C:SOURCE-LOCATION))
#<NULL-LEXENV>)
3: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(EVAL-WHEN (:LOAD-TOPLEVEL :EXECUTE)
(SB-IMPL::%DEFPARAMETER 'CAIRO-XLIB-EXAMPLE::*DISPLAY*
(CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY
":0")
NIL 'NIL (SB-C:SOURCE-LOCATION)))
#<NULL-LEXENV>)
4: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(DEFPARAMETER CAIRO-XLIB-EXAMPLE::*DISPLAY*
(CAIRO-XLIB-EXAMPLE::OPEN-X11-DISPLAY ":0"))
#<NULL-LEXENV>)
5: (SB-FASL::LOAD-AS-SOURCE
#<SB-SYS:FD-STREAM for
"file /tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp" {B82F001}>
NIL
NIL)
6: (SB-FASL::INTERNAL-LOAD
#P"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp"
#P"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp"
:ERROR
NIL
NIL
:SOURCE
:DEFAULT)
7: (SB-FASL::INTERNAL-LOAD
#P"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp"
#P"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp"
:ERROR
NIL
NIL
NIL
:DEFAULT)
8: (LOAD
"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp")
9: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(LOAD
"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp")
#<NULL-LEXENV>)
10: (SWANK::EVAL-REGION
"(load
\"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp\")
"
T)
11: ((LAMBDA ()))
12: ((LAMBDA (SWANK-BACKEND::FN)) #<CLOSURE (LAMBDA #) {B816D45}>)
13: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA #) {B816D45}>)
14: (SWANK:LISTENER-EVAL
"(load
\"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp\")
")
15: (SB-INT:SIMPLE-EVAL-IN-LEXENV
(SWANK:LISTENER-EVAL
"(load
\"/tank/lisp/sbcl/lib/sbcl/site/cl-cairo2-latest/tutorial/x11-example.lisp\")
")
#<NULL-LEXENV>)
16: ((LAMBDA ()))
17: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))
#<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>
#<CLOSURE (LAMBDA #) {B816BCD}>)
18: ((LAMBDA ()))
19: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))
#<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>
#<FUNCTION (LAMBDA #) {AA86005}>)
20: (SWANK::CALL-WITH-REDIRECTED-IO
#<SWANK::CONNECTION {AE97F89}>
#<CLOSURE (LAMBDA #) {B816B15}>)
21: (SWANK::CALL-WITH-CONNECTION
#<SWANK::CONNECTION {AE97F89}>
#<FUNCTION (LAMBDA #) {AA86005}>)
22: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {AE97F89}>)
23: (SWANK::REPL-LOOP #<SWANK::CONNECTION {AE97F89}>)
24: (SWANK::REPL-LOOP #<SWANK::CONNECTION {AE97F89}>)
25: (SWANK::CALL-WITH-BINDINGS NIL #<CLOSURE (LAMBDA #) {AF990C5}>)
26: ((FLET SB-THREAD::WITH-MUTEX-THUNK))
27: (SB-UNIX::CALL-WITH-LOCAL-INTERRUPTS
#<CLOSURE (FLET SB-UNIX::WITH-LOCAL-INTERRUPTS-THUNK) {B647A095}>
T)
28: ((FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK) T)
29: ((FLET SB-UNIX::RUN-WITHOUT-INTERRUPTS))
30: (SB-UNIX::CALL-WITHOUT-INTERRUPTS
#<CLOSURE (FLET SB-UNIX::WITHOUT-INTERRUPTS-THUNK) {B647A185}>)
31: (SB-THREAD::CALL-WITH-MUTEX
#<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK) {B647A205}>
#S(SB-THREAD:MUTEX
:NAME "thread result lock"
:VALUE #<SB-THREAD:THREAD "repl-thread" {AF89931}>)
#<SB-THREAD:THREAD "repl-thread" {AF89931}>
T)
32: ((LAMBDA ()))
33: ("foreign function: call_into_lisp")
34: ("foreign function: funcall0")
35: ("foreign function: new_thread_trampoline")
36: ("foreign function: #xB7FBE31B")
More information about the Cl-cairo2-devel
mailing list