- mcclim-devel - mailman3.common-lisp.net

[mcclim-devel] Gestures applicable to only one pane?
by Nikolaus Demmel 13 Nov '08

13 Nov '08

Hi there, I would like to define commands with gestures (or a gesture to command translator) where the gesture (:select) applies in only one specific pane. I want to specialise this command for T, so it would accept everything as input, which screws up the rest of my application... How can this be done? Regards, Nikolaus Demmel

2 1

Re: [mcclim-devel] McClim CCL::SOCKET-CREATION-ERROR
by ブラウンスコット 02 Nov '08

02 Nov '08

I've got mcclim working now using SBCL and clbuild. -------------------------------------- Power up the Internet with Yahoo! Toolbar. http://pr.mail.yahoo.co.jp/toolbar/

2 1

[mcclim-devel] gadget clipping in scroller panes
by Mike Watters 30 Oct '08

30 Oct '08

I'm trying to display various gadgets in a scrolling stream pane. As the attached file hopefully demonstrates, gadgets which appear below the extent of the initial viewport are clipped and not redrawn when the scoll position changes. Anyone have a recommendation for approaching this problem, and/or have I missed something obvious? Mike Watters mike-cl(a)mwatters.net (in-package :clim-user) (define-application-frame test-frame () () (:menu-bar nil) (:command-definer nil) (:panes (stuff :application :scroll-bars :vertical :display-time :command-loop :display-function 'display-stuff-pane) (interactor :interactor)) (:layouts (default (vertically (:min-width 256 :min-height 384 :width 256 :height 384) (3/4 stuff) (1/4 interactor))))) (defun display-stuff-pane (frame pane) (formatting-item-list (pane :n-columns 1 :y-spacing 10) (loop with fm = (frame-manager frame) for n below 16 do (formatting-cell (pane) (format pane "~D: " n) (with-look-and-feel-realization (fm frame) (with-output-as-gadget (pane) (make-pane 'push-button :client frame :label (format nil "~D" n)))))) (formatting-cell (pane) (format pane "foo"))) (format pane "~&bar~%")) (defun launch-test-frame () (run-frame-top-level (make-application-frame 'test-frame)))

1 0

[mcclim-devel] McClim CCL::SOCKET-CREATION-ERROR
by ブラウンスコット 29 Oct '08

29 Oct '08

I used asdf to install McClim, Clx and spatial-trees on Mac OS X 10.5 with Clozure. When I try to run the demo (clim-demo::run-test 'clim-demo::demodemo) I get the following error message: [Condition of type CCL::SOCKET-CREATION-ERROR] Restarts: 0: [ABORT-REQUEST] Abort handling SLIME request. 1: [ABORT-BREAK] Reset this process 2: [ABORT] Kill this process Backtrace: 0: (CCL:SOCKET-ERROR 'NIL "gethostbyname" 1 'T) 1: (CCL::MAKE-TCP-STREAM-SOCKET 9 ':CONNECT ':ACTIVE ':REMOTE-HOST "tmp/launch-Z04V4k/" ':REMOTE-PORT 6000) 2: (CCL::MAKE-TCP-SOCKET ':CONNECT ':ACTIVE ':REMOTE-HOST "tmp/launch-Z04V4k/" ':REMOTE-PORT 6000) 3: (CCL:MAKE-SOCKET ':CONNECT ':ACTIVE ':REMOTE-HOST "tmp/launch-Z04V4k/" ':REMOTE-PORT 6000) 4: (XLIB:OPEN-DISPLAY "tmp/launch-Z04V4k/" ':DISPLAY 0 ':PROTOCOL ':|| ':AUTHORIZATION-NAME "" ':AUTHORIZATION-DATA "") 5: (#<STANDARD-METHOD CLIM-CLX::INITIALIZE-CLX (CLIM-CLX::CLX-PORT)> #<CLX-PORT #x3000432FE70D>) 6: (#<STANDARD-METHOD INITIALIZE-INSTANCE :AFTER (CLIM-CLX::CLX-PORT)> #<CLX-PORT #x3000432FE70D> ':SERVER-PATH '(:CLX :HOST "tmp/launch-Z04V4k/" :DISPLAY-ID 0 :SCREEN-ID 0 :PROTOCOL :||)) 7: (CCL::%%BEFORE-AND-AFTER-COMBINED-METHOD-DCODE '(NIL #<STANDARD-METHOD INITIALIZE-INSTANCE :AFTER (CLIM-CLX::CLX-PORT)> . 2367656)) 8: (CCL::%%STANDARD-COMBINED-METHOD-DCODE '(NIL (#<STANDARD-METHOD INITIALIZE-INSTANCE :AFTER #> #<STANDARD-METHOD INITIALIZE-INSTANCE :AFTER #> #<STANDARD-METHOD INITIALIZE-INSTANCE :AFTER #>) #<CCL::STANDARD-KERNEL-METHOD INITIALIZE-INSTANCE (STANDARD-OBJECT)>) 2367656) 9: (CCL::%MAKE-STD-INSTANCE #<STANDARD-CLASS CLIM-CLX::CLX-PORT> '(:SERVER-PATH (:CLX :HOST "tmp/launch-Z04V4k/" :DISPLAY-ID 0 :SCREEN-ID 0 :PROTOCOL :||))) 10: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (STANDARD-CLASS)> #<STANDARD-CLASS CLIM-CLX::CLX-PORT> ':SERVER-PATH '(:CLX :HOST "tmp/launch-Z04V4k/" :DISPLAY-ID 0 :SCREEN-ID 0 :PROTOCOL :||)) 11: (#<CCL::STANDARD-KERNEL-METHOD MAKE-INSTANCE (SYMBOL)> 'CLIM-CLX::CLX-PORT ':SERVER-PATH '(:CLX :HOST "tmp/launch-Z04V4k/" :DISPLAY-ID 0 :SCREEN-ID 0 :PROTOCOL :||)) 12: (FIND-PORT ':SERVER-PATH '(:CLX :HOST "tmp/launch-Z04V4k/" :DISPLAY-ID 0 :SCREEN-ID 0 :PROTOCOL :||)) 13: (FIND-FRAME-MANAGER) 14: (#<STANDARD-METHOD RUN-FRAME-TOP-LEVEL :AROUND (APPLICATION-FRAME)> #<DEMODEMO #x3000432FF27D>) 15: (CCL::%%STANDARD-COMBINED-METHOD-DCODE '(#<STANDARD-METHOD RUN-FRAME-TOP-LEVEL :AROUND (APPLICATION-FRAME)> #<STANDARD-METHOD RUN-FRAME-TOP-LEVEL (APPLICATION-FRAME)>) 2367726) 16: (RUN-TEST 'DEMODEMO) 17: (CCL::CALL-CHECK-REGS 'RUN-TEST 'DEMODEMO) 18: (SWANK::EVAL-REGION "(clim-demo::run-test 'clim-demo::demodemo) " 'T) 19: ((:INTERNAL SWANK:LISTENER-EVAL)) 20: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK:LISTENER-EVAL) #x3000432FF76F>) 21: (CCL::CALL-CHECK-REGS 'SWANK:LISTENER-EVAL "(clim-demo::run-test 'clim-demo::demodemo) ") 22: ((:INTERNAL SWANK::EVAL-FOR-EMACS)) 23: (#<STANDARD-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x300040E057EF> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::EVAL-FOR-EMACS) #x3000432FFC0F>) 24: (FUNCALL 'SWANK::EVAL-FOR-EMACS '(SWANK:LISTENER-EVAL "(clim-demo::run-test 'clim-demo::demodemo) ") "CLIM-DEMO" 86) 25: ((:INTERNAL SWANK::HANDLE-REQUEST)) 26: (#<STANDARD-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x300040E057EF> #<Compiled-function (:INTERNAL SWANK::HANDLE-REQUEST) (Non-Global) #x300040DBC96F>) 27: (SWANK::CALL-WITH-REDIRECTED-IO #<CONNECTION #x300040E7365D> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::CALL-WITH-CONNECTION) #x3000432FFC5F>) 28: (SWANK::CALL-WITH-CONNECTION #<CONNECTION #x300040E7365D> #<Compiled-function (:INTERNAL SWANK::HANDLE-REQUEST) (Non-Global) #x300040DBC96F>) 29: (SWANK::HANDLE-REQUEST #<CONNECTION #x300040E7365D>) 30: ((:INTERNAL SWANK::REPL-LOOP)) 31: (#<STANDARD-METHOD SWANK-BACKEND:CALL-WITH-DEBUGGER-HOOK (T T)> #<Compiled-function SWANK:SWANK-DEBUGGER-HOOK #x300040E057EF> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-LOOP) #x30004323F05F>) 32: (SWANK::CALL-WITH-REDIRECTED-IO #<CONNECTION #x300040E7365D> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::CALL-WITH-CONNECTION) #x30004323F01F>) 33: (SWANK::CALL-WITH-CONNECTION #<CONNECTION #x300040E7365D> #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::REPL-LOOP) #x30004323F05F>) 34: (SWANK::CALL-WITH-BINDINGS 'NIL #<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL SWANK::SPAWN-REPL-THREAD) #x30004323F09F>) 35: (CCL::RUN-PROCESS-INITIAL-FORM #<PROCESS new-repl-thread(49) [Active] #x3000432329AD> '(#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x30004323291F>)) 36: ((:INTERNAL CCL::%PROCESS-PRESET-INTERNAL) #<PROCESS new-repl-thread(49) [Active] #x3000432329AD> '(#<CCL:COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%PROCESS-RUN-FUNCTION) #x30004323291F>)) 37: ((:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)) Is there a way to fix this bug? Does McClim work better with a different Lisp implementation? -------------------------------------- Enjoy MLB with MAJOR.JP! Ichiro, Matsuzaka, Matsui, and more! http://pr.mail.yahoo.co.jp/mlb/

1 0

[mcclim-devel] McCLIM and SCL: Some problems and patches...
by Rainer Joswig 26 Oct '08

26 Oct '08

Hi, I have been compiling McCLIM with Scieneer Common Lisp. Worked well - a few problems: ******************************************** Flexichain needs SCL support for weak pointers. That's easy: File utilities.lisp (defun make-weak-pointer (object) "Creates a new weak pointer which points to OBJECT. For portability reasons, OBJECT most not be NIL." (assert (not (null object))) #+:sbcl (sb-ext:make-weak-pointer object) #+:cmu (ext:make-weak-pointer object) #+:scl (ext:make-weak-pointer object) #+:clisp (ext:make-weak-pointer object) #+:allegro (let ((wv (excl:weak-vector 1))) (setf (svref wv 0) object) wv) #+:openmcl (let ((wp (%make-weak-pointer))) (setf (gethash wp *weak-pointers*) object) wp) #+:corman (ccl:make-weak-pointer object) #+:lispworks (let ((array (make-array 1))) (hcl:set-array-weak array t) (setf (svref array 0) object) array) #-(or :sbcl :cmu :clisp :allegro :openmcl :corman :lispworks :scl) object) (defun weak-pointer-value (weak-pointer) "If WEAK-POINTER is valid, returns its value. Otherwise, returns NIL." #+:sbcl (prog1 (sb-ext:weak-pointer-value weak-pointer)) #+:cmu (prog1 (ext:weak-pointer-value weak-pointer)) #+:scl (prog1 (ext:weak-pointer-value weak-pointer)) #+:clisp (prog1 (ext:weak-pointer-value weak-pointer)) #+:allegro (svref weak-pointer 0) #+:openmcl (prog1 (gethash weak-pointer *weak-pointers*)) #+:corman (ccl:weak-pointer-obj weak-pointer) #+:lispworks (svref weak-pointer 0) #-(or :sbcl :cmu :clisp :allegro :openmcl :corman :lispworks :scl) weak-pointer) #-(or :sbcl :cmu :clisp :allegro :openmcl :corman :lispworks :scl) (eval-when (:compile-toplevel :load-toplevel :execute) (warn "No support for weak pointers in this implementation. ~ Things may get big and slow.")) ******************************************** File mcclim/designs.lisp this files uses WITH-MEDIUM-OPTIONS, a macro that is later defined in some other file. The definition that uses WITH-MEDIUM-OPTIONS can be removed, since it is also defined later. ******************************************** File mcclim/presentation-defs.lisp (define-presentation-generic-function %accept accept (type-key parameters options type stream view &key)) Above definition needs to be something like this: (define-presentation-generic-function %accept accept (type-key parameters options type stream view &key &allow-other- keys)) Since there are uses of ACCEPT with :DEFAULT and :DEFAULT-TYPE . ******************************************** File: mcclim/Drei/Persistent/persistent-undo.lisp In: DEFMETHOD FLIP-UNDO-RECORD (FLEXICHAIN::WEAK-POINTER-VALUE C BUFFER) WEAK-POINTER-VALUE takes only one argument, not two. ******************************************** After fixing above problems, McCLIM compiled fine with Scieneer Common Lisp. The Listener example was running fine... Regards, Rainer Joswig Rainer Joswig, Hamburg, Germany http://lispm.dyndns.org/ mailto:joswig@lisp.de

1 0

Re: [mcclim-devel] [mcclim-cvs] CVS mcclim/Backends/CLX
by Andy Hefner 23 Oct '08

23 Oct '08

That's the secret to mcclim's high code quality - we don't just fix bugs, we fix them twice. On Thu, Oct 23, 2008 at 4:49 PM, thenriksen <thenriksen(a)common-lisp.net> wrote: > Update of /project/mcclim/cvsroot/mcclim/Backends/CLX > In directory cl-net:/tmp/cvs-serv10847/Backends/CLX > > Modified Files: > port.lisp > Log Message: > `decode-x-button-code' fix from Mike Watters. > > > --- /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp 2008/10/20 17:31:41 1.135 > +++ /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp 2008/10/23 20:49:12 1.136 > @@ -615,10 +615,11 @@ > +pointer-wheel-up+ > +pointer-wheel-down+ > +pointer-wheel-left+ > - +pointer-wheel-right+))) > - (and (> code 0) > - (<= code (length button-mapping)) > - (aref button-mapping (1- code))))) > + +pointer-wheel-right+)) > + (code (1- code))) > + (when (and (>= code 0) > + (< code (length button-mapping))) > + (aref button-mapping code)))) > > ;; From "Inter-Client Communication Conventions Manual", Version 2.0.xf86.1, > ;; section 4.1.5: > > > _______________________________________________ > mcclim-cvs mailing list > mcclim-cvs(a)common-lisp.net > http://common-lisp.net/cgi-bin/mailman/listinfo/mcclim-cvs >

1 0

[mcclim-devel] Two listener fixes for Allegro
by Willem Broekema 23 Oct '08

23 Oct '08

--- Apps/Listener/util.lisp 22 Oct 2008 23:58:12 -0000 1.27 +++ Apps/Listener/util.lisp 23 Oct 2008 19:47:38 -0000 @@ -31,7 +31,7 @@ (defun directoryp (path) "Determine if PATH designates a directory" - #+allegro (excl:file-directory-p pathname) + #+allegro (excl:file-directory-p path) #-allegro (flet ((f (x) (if (eq x :unspecific) nil x))) (if (or (f (pathname-name path)) --- Apps/Listener/dev-commands.lisp 22 Oct 2008 23:58:12 -0000 1.63 +++ Apps/Listener/dev-commands.lisp 23 Oct 2008 19:48:48 -0000 @@ -681,10 +681,9 @@ #+openmcl-partial-mop (openmcl-mop:specializer-direct-generic-functions specializer) #+scl (clos:specializer-direct-generic-functions specializer) - #-(or PCL SBCL scl clisp openmcl-partial-mop) - (error "Sorry, not supported in your CL implementation. -See the function X-SPECIALIZER-DIRECT-GENERIC-FUNCTION -if you are interested in fixing this.")) + #+allegro (mop:specializer-direct-generic-functions specializer) + #-(or PCL SBCL scl clisp openmcl-partial-mop allegro) + (error "Sorry, not supported in your CL implementation. See the function X-SPECIALIZER-DIRECT-GENERIC-FUNCTION if you are interested in fixing this.")) (defun class-funcs (class) (remove-duplicates

1 0

[mcclim-devel] [McCLIM patch] - a few miscellaneous items
by Mike Watters 20 Oct '08

20 Oct '08

The attached patchset addresses a couple of errors I encountered while working on a project using McCLIM (in decode-x-button-code and seos-write-string). The non-error changes consist of two spelling corrections and an implementation of map-over-command-table-translators. Mike Watters mike-cl(a)mwatters.net * decode-x-button-code was using incorrect bounds check: diff -wru ../mcclim-cvs/Backends/CLX/port.lisp ./Backends/CLX/port.lisp --- ../mcclim-cvs/Backends/CLX/port.lisp 2008-05-12 20:04:39.000000000 -0700 +++ ./Backends/CLX/port.lisp 2008-10-16 18:18:27.000000000 -0700 @@ -615,10 +615,11 @@ +pointer-wheel-up+ +pointer-wheel-down+ +pointer-wheel-left+ - +pointer-wheel-right+))) - (and (> code 0) - (<= code (1+ (length button-mapping))) - (aref button-mapping (1- code))))) + +pointer-wheel-right+)) + (code (1- code))) + (when (and (>= code 0) + (< code (length button-mapping))) + (aref button-mapping code)))) ;; From "Inter-Client Communication Conventions Manual", Version 2.0.xf86.1, ;; section 4.1.5: * map-over-command-table-translators, * add-actual-presentation-translator-to-command-table: diff -wru ../mcclim-cvs/commands.lisp ./commands.lisp --- ../mcclim-cvs/commands.lisp 2008-04-20 00:19:10.000000000 -0700 +++ ./commands.lisp 2008-10-16 18:20:56.000000000 -0700 @@ -480,6 +480,39 @@ (map-over-command-table-menu-items function table)))) (values))) +(defun map-over-command-table-translators + (function command-table &key (inherited t)) + (flet ((map-func (table) + (maphash #'(lambda (k v) + (declare (ignore k)) + (funcall function v)) + (slot-value + (presentation-translators table) + 'translators)))) + (let ((command-table (find-command-table command-table))) + (if inherited + (apply-with-command-table-inheritance #'map-func command-table) + (map-func command-table))))) + +;(defun add-presentation-translator-to-command-table +; (command-table translator-name &key (errorp t)) +; - fixme; spec says this fun is given a translator name, but that +; find-presentation-translator needs a translator name and a command +; table designator +(defun add-actual-presentation-translator-to-command-table + (command-table translator &key (errorp t)) + (let ((translators + (presentation-translators + (find-command-table command-table)))) + (when (and errorp + (second + (multiple-value-list + (gethash (name translator) + (slot-value translators 'translators))))) + (error 'command-already-present + :command-table-name command-table)) + (add-translator translators translator))) + ;; At this point we should still see the gesture name as supplied by the ;; programmer in 'gesture' (defun %add-keystroke-item (command-table gesture item errorp) * seos-write-string sometimes gets called with zero-length strings, * which have a split of 1 assigned when the stream eol action is * :wrap, which eventually gets passed as the :end parameter to * text-size, which causes a bounding indices error. alternate fix: * change (1+ start) to (min end (1+ start)) in :wrap case of * seos-write-string. diff -wru ../mcclim-cvs/stream-output.lisp ./stream-output.lisp --- ../mcclim-cvs/stream-output.lisp 2008-04-15 12:28:04.000000000 -0700 +++ ./stream-output.lisp 2008-10-16 18:21:22.000000000 -0700 @@ -287,6 +287,8 @@ :text-style text-style) while (<= sub-width delta) finally (return (1- i))))) + (when (eql end 0) + (return-from seos-write-string)) (with-slots (baseline height vspace) stream (multiple-value-bind (cx cy) (stream-cursor-position stream) * minor spelling corrections diff -wru ../mcclim-cvs/Drei/drei-clim.lisp ./Drei/drei-clim.lisp --- ../mcclim-cvs/Drei/drei-clim.lisp 2008-04-30 23:48:21.000000000 -0700 +++ ./Drei/drei-clim.lisp 2008-10-16 18:22:02.000000000 -0700 @@ -57,10 +57,10 @@ ;;; though. ;;; Cursors are output records. After a cursor is created, The owning -;;; Drei instance instnace should add it to the output stream. The -;;; owner of the cursor (a Drei instance) is responsible for removing -;;; the cursor once it is done with it. Cursors can be active/inactive -;;; and enabled/disabled and have the same activity-status as their +;;; Drei instance should add it to the output stream. The owner of the +;;; cursor (a Drei instance) is responsible for removing the cursor +;;; once it is done with it. Cursors can be active/inactive and +;;; enabled/disabled and have the same activity-status as their ;;; associated view. (defclass drei-cursor (standard-sequence-output-record) ((%view :reader view diff -wru ../mcclim-cvs/input-editing.lisp ./input-editing.lisp --- ../mcclim-cvs/input-editing.lisp 2008-02-07 12:20:04.000000000 -0800 +++ ./input-editing.lisp 2008-10-16 18:21:38.000000000 -0700 @@ -28,7 +28,7 @@ (in-package :clim-internals) (defvar *use-goatee* nil - "I true, use the Goatee editing component instead of Drei. The + "If true, use the Goatee editing component instead of Drei. The Goatee component is faster and more mature than Drei.") (defvar *activation-gestures* nil

2 1

[mcclim-devel] Strange black borders around my application pane inside scrolling
by Nikolaus Demmel 21 Sep '08

21 Sep '08

Hi list, I have a small clim application with an application pane inside a scrolling macro. The code looks like this: (:panes (app :application :width 800 :height 600 :scroll-bars nil :borders nil :text-style (make-text-style :sans-serif :roman :normal) :display-function 'display-app) (int :interactor :width 800 :height 100 :maxheight 100)) (:layouts (default (vertically () (scrolling (:scroll-bars :vertical) app) int)))) Now I get strange black borders around the pane like there: http://home.in.tum.de/~demmeln/screenshot.jpg Notice the big black border at the bottom which actually swallows content aswell. Does anyone know how to get rid of tose borders? Best regards, Nikolaus Demmel

2 1

[mcclim-devel] [bug] Asynchronous ID-CHOICE-ERROR -- CLX or McCLIM?
by Nikodemus Siivola 23 Aug '08

23 Aug '08

This may be a CLX issue, or a problem in the CLX backend -- I would not know, but the test-case is pure CLIM. After the error future attempts to RUN-FRAME-TOP-LEVEL result in similar errors. Backtrace follows, self contained test-case attached (RUN-FRAME-TOP-LEVEL, then "Stress" -- it may take a while, but eventually it breaks for me.) This is CVS McCLIM, Christophe's CLX, and SBCL 1.0.13.45, on a MacBook running Tiger. $ uname -a Darwin manic.local 8.11.1 Darwin Kernel Version 8.11.1: Wed Oct 10 18:23:28 PDT 2007; root:xnu-792.25.20~1/RELEASE_I386 i386 i386 X is the Apple packaged one: X11 1.1.3 - XFree86 4.4.0 Cheers, -- Nikodemus Asynchronous ID-CHOICE-ERROR in request 10265 (last request was 10266) Code 55.0 [CreateGC] ID #x600002 [Condition of type XLIB:ID-CHOICE-ERROR] Restarts: 0: [CONTINUE] Ignore 1: [ABORT] Return to application command loop 2: [ABORT] Return to SLIME's top level. 3: [ABORT] Exit debugger, returning to top level. Backtrace: 0: (XLIB::X-CERROR "Ignore" XLIB:ID-CHOICE-ERROR) 1: (XLIB:DEFAULT-ERROR-HANDLER #<XLIB:DISPLAY :0 (The XFree86 Project, Inc R40400000)> XLIB:ID-CHOICE-ERROR) 2: (XLIB::REPORT-ERROR #<XLIB:DISPLAY :0 (The XFree86 Project, Inc R40400000)> 14 XLIB:ID-CHOICE-ERROR) 3: (XLIB::READ-ERROR-INPUT #<XLIB:DISPLAY :0 (The XFree86 Project, Inc R40400000)> 10265 #S(XLIB::REPLY-BUFFER :SIZE 32 :IBUF8 #(0 14 25 40 2 0 ...) :NEXT NIL :DATA-SIZE 32) #<SB-THREAD:THREAD "initial thread" {116920A9}>) 4: (XLIB::READ-INPUT #<XLIB:DISPLAY :0 (The XFree86 Project, Inc R40400000)> NIL NIL #<FUNCTION (LAMBDA (XLIB::PENDING-COMMAND)) {13969ECD}>) 5: (XLIB::READ-REPLY #<unavailable argument> #<unavailable argument>) 6: (XLIB:ALLOC-COLOR #<XLIB:COLORMAP TRUE-COLOR :0 32> #<XLIB:COLOR 0.641639 0.52443945 0.84608877>) 7: ((SB-PCL::FAST-METHOD CLIM-CLX::X-PIXEL (CLIM-CLX::CLX-PORT T)) #(17 NIL) #<unavailable argument> #<CLIM-CLX::CLX-PORT :HOST "" :DISPLAY-ID 0 {122D0AC1}> #<CLIM-INTERNALS::NAMED-COLOR "Unnamed color">) 8: ((SB-PCL::FAST-METHOD CLIM-CLX::MEDIUM-GCONTEXT (CLIM-CLX::CLX-MEDIUM COLOR)) #(9 NIL) #<unused argument> #<CLIM-CLX::CLX-MEDIUM {13F67CE1}> #<CLIM-INTERNALS::NAMED-COLOR "Unnamed color">) 9: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0. SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-MEDIUM {13F67CE1}> #<CLIM-INTERNALS::NAMED-COLOR "Unnamed color">) 10: ((SB-PCL::FAST-METHOD MEDIUM-DRAW-POINT* (CLIM-CLX::CLX-MEDIUM T T)) #<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-MEDIUM {13F67CE1}> 290 142) 11: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (MEDIUM T T)) #<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-MEDIUM {13F67CE1}> #<CLIM-CLX::CLX-MEDIUM {13F67CE1}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP) {13F67CC5}>) 12: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS (CLIM-INTERNALS::PIXMAP T)) #<unavailable argument> #<unavailable argument> #<CLIM-INTERNALS::MIRRORED-PIXMAP {117385F9}> #<CLOSURE (FLET CLIM-INTERNALS::GRAPHICS-OP) {13F67CC5}>) 13: ((LAMBDA (COLOR X Y)) #(0.641639 0.52443945 0.84608877) 290 142) 14: (RANDOM-RENDER 400 300 #<CLOSURE (LAMBDA (COLOR X Y)) {11738895}>) 15: (RENDER-SCENE #<APPLICATION-PANE CANVAS {11F91F99}>) 16: (COM-STRESS) 17: ((SB-PCL::FAST-METHOD DEFAULT-FRAME-TOP-LEVEL (APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<TEST-FRAME {1381E9F1}>) 18: ((SB-PCL::FAST-METHOD RUN-FRAME-TOP-LEVEL (APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument> #<TEST-FRAME {1381E9F1}>) 19: ((SB-PCL::FAST-METHOD RUN-FRAME-TOP-LEVEL :AROUND (APPLICATION-FRAME)) #<unavailable argument> #S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION (SB-C::&OPTIONAL-DISPATCH #) {131373FD}> :PV NIL :NEXT-METHOD-CALL NIL :ARG-INFO (1 . T)) #<TEST-FRAME {1381E9F1}>) 20: (SB-INT:SIMPLE-EVAL-IN-LEXENV (RUN-FRAME-TOP-LEVEL (MAKE-APPLICATION-FRAME (QUOTE TEST-FRAME))) #<NULL-LEXENV>)

3 12