[cl-cairo2-devel] X11 sample in Aug 22 version

25 Aug 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")

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

[cl-cairo2-devel] X11 sample in Aug 22 version