Re: SBCL 0.9.2.x
Friedrich Dominicus <[email protected]> Tue, 12 Jul 2005 17:43:29 +0200
| Newsgroups | gmane.lisp.clx.devel |
|---|---|
| Organization | Q Software Solutions GmbH |
| Message-ID | <[email protected]> |
Christophe Rhodes <[email protected]> writes: > Friedrich Dominicus <[email protected]> writes: > >> But it's not properly loaded or it would be defined. > > Well, I'm sorry, but there's something you're doing that's wrong. I'm > afraid that my remote debugging skills aren't strong enough to tell > you what it is. Well yes that's a reasonable assumption, but let's see how I got along: Let's see the documentation says use asdf-install ok let's go for it: CL-USER> (push (list "/home/frido/lib/cl/" "/home/frido/lisp-systems/" "Friedrich") asdf-install:*locations*) (("/home/frido/lib/cl/" "/home/frido/lisp-systems/" "Friedrich") (#P"/usr/local/lib/sbcl/site/" #P"/usr/local/lib/sbcl/site-systems/" "System-wide install") (#P"/home/frido/.sbcl/site/" #P"/home/frido/.sbcl/systems/" "Personal installation")) CL-USER> (asdf-install:install 'clx) Install where? 1) Friedrich: System in /home/frido/lisp-systems/ Files in /home/frido/lib/cl/ 2) System-wide install: System in #P"/usr/local/lib/sbcl/site-systems/" Files in #P"/usr/local/lib/sbcl/site/" 3) Personal installation: System in #P"/home/frido/.sbcl/systems/" Files in #P"/home/frido/.sbcl/site/" --> 1 Downloading 408121 bytes from http://ftp.linux.org.uk/pub/lisp/sbcl/clx_0.7.0.tar.gz ... Installing #P"/home/frido/programming/tcl/CLX.asdf-install-tmp" in /home/frido/lib/cl/,/home/frido/lisp-systems/ clx_0.7.0/ clx_0.7.0/CVS/ clx_0.7.0/CVS/Root clx_0.7.0/CVS/Repository clx_0.7.0/CVS/Entries clx_0.7.0/CVS/Tag clx_0.7.0/debug/ clx_0.7.0/debug/CVS/ clx_0.7.0/debug/CVS/Root clx_0.7.0/debug/CVS/Repository clx_0.7.0/debug/CVS/Entries clx_0.7.0/debug/CVS/Tag clx_0.7.0/debug/debug.lisp clx_0.7.0/debug/describe.lisp clx_0.7.0/debug/event-test.lisp clx_0.7.0/debug/keytrans.lisp clx_0.7.0/debug/trace.lisp clx_0.7.0/debug/util.lisp clx_0.7.0/.cvsignore clx_0.7.0/CHANGES clx_0.7.0/NEWS clx_0.7.0/README clx_0.7.0/README-R5 clx_0.7.0/attributes.lisp clx_0.7.0/buffer.lisp clx_0.7.0/bufmac.lisp clx_0.7.0/build-clx.lisp clx_0.7.0/clx-module.lisp clx_0.7.0/clx.asd clx_0.7.0/clx.lisp clx_0.7.0/cmudep.lisp clx_0.7.0/defsystem.lisp clx_0.7.0/depdefs.lisp clx_0.7.0/dependent.lisp clx_0.7.0/display.lisp clx_0.7.0/exclMakefile clx_0.7.0/exclREADME clx_0.7.0/exclcmac.lisp clx_0.7.0/excldefsys.lisp clx_0.7.0/excldep.c clx_0.7.0/excldep.lisp clx_0.7.0/fonts.lisp clx_0.7.0/gcontext.lisp clx_0.7.0/generalock.lisp clx_0.7.0/gl.lisp clx_0.7.0/glx.lisp clx_0.7.0/graphics.lisp clx_0.7.0/image.lisp clx_0.7.0/input.lisp clx_0.7.0/keysyms.lisp clx_0.7.0/macros.lisp clx_0.7.0/manager.lisp clx_0.7.0/package.lisp clx_0.7.0/provide.lisp clx_0.7.0/requests.lisp clx_0.7.0/resource.lisp clx_0.7.0/shape.lisp clx_0.7.0/sockcl.lisp clx_0.7.0/socket.c clx_0.7.0/text.lisp clx_0.7.0/translate.lisp clx_0.7.0/xrender.lisp clx_0.7.0/xvidmode.lisp clx_0.7.0/demo/ clx_0.7.0/demo/CVS/ clx_0.7.0/demo/CVS/Root clx_0.7.0/demo/CVS/Repository clx_0.7.0/demo/CVS/Entries clx_0.7.0/demo/CVS/Tag clx_0.7.0/demo/.cvsignore clx_0.7.0/demo/bezier.lisp clx_0.7.0/demo/beziertest.lisp clx_0.7.0/demo/clclock.lisp clx_0.7.0/demo/clipboard.lisp clx_0.7.0/demo/clx-demos.lisp clx_0.7.0/demo/gl-test.lisp clx_0.7.0/demo/hello.lisp clx_0.7.0/demo/mandel.lisp clx_0.7.0/demo/menu.lisp clx_0.7.0/demo/zoid.lisp clx_0.7.0/manual/ clx_0.7.0/manual/CVS/ clx_0.7.0/manual/CVS/Root clx_0.7.0/manual/CVS/Repository clx_0.7.0/manual/CVS/Entries clx_0.7.0/manual/CVS/Tag clx_0.7.0/manual/clx.texinfo clx_0.7.0/test/ clx_0.7.0/test/CVS/ clx_0.7.0/test/CVS/Root clx_0.7.0/test/CVS/Repository clx_0.7.0/test/CVS/Entries clx_0.7.0/test/CVS/Tag clx_0.7.0/test/.cvsignore clx_0.7.0/test/image.lisp clx_0.7.0/test/trapezoid.lisp clx_0.7.0/INSTALL.asdf ; loading system definition from #P"/home/frido/lisp-systems/clx.asd" into ; #<PACKAGE "ASDF4480"> ; registering #<SYSTEM CLX {1000068691}> as CLX ; compiling file "/home/frido/lib/cl/clx_0.7.0/package.lisp" (written 03 APR 2003 08:47:55 PM): ; compiling (IN-PACKAGE :COMMON-LISP-USER) ; compiling (DEFPACKAGE XLIB ...) ; /home/frido/lib/cl/clx_0.7.0/package.fasl written ; compilation finished in 0:00:00 ; compiling file "/home/frido/lib/cl/clx_0.7.0/depdefs.lisp" (written 05 JUN 2003 10:18:22 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DECLAIM (DECLARATION CLX-VALUES)) ; compiling (DECLAIM (DECLARATION ARGLIST)) ; compiling (DECLAIM (DECLARATION INDENTATION)) ; compiling (DEFMACRO WITH-VECTOR ...) ; compiling (DEFMACRO WITHIN-DEFINITION ...) ; compiling (DEFCONSTANT +CLX-CACHED-TYPES+ ...) ; compiling (DEFMACRO RESOURCE-ID-MAP-TEST ...) ; compiling (DEFMACRO ATOM-CACHE-MAP-TEST ...) ; compiling (DEFMACRO KEYSYM->CHARACTER-MAP-TEST ...) ; compiling (ECASE SB-C:*BACKEND-BYTE-ORDER* ...) ; compiling (DEFTYPE BUFFER-BYTES ...) ; compiling (DEFTYPE ARRAY-INDEX ...) ; compiling (DEFUN MAKE-INDEX-TYPED ...) ; compiling (DEFUN MAKE-INDEX-OP ...) ; compiling (DEFMACRO INDEX+ ...) ; compiling (DEFMACRO INDEX-LOGAND ...) ; compiling (DEFMACRO INDEX-LOGIOR ...) ; compiling (DEFMACRO INDEX- ...) ; compiling (DEFMACRO INDEX* ...) ; compiling (DEFMACRO INDEX1+ ...) ; compiling (DEFMACRO INDEX1- ...) ; compiling (DEFMACRO INDEX-INCF ...) ; compiling (DEFMACRO INDEX-DECF ...) ; compiling (DEFMACRO INDEX-MIN ...) ; compiling (DEFMACRO INDEX-MAX ...) ; compiling (DEFMACRO INDEX-FLOOR ...) ; compiling (DEFMACRO INDEX-CEILING ...) ; compiling (DEFMACRO INDEX-TRUNCATE ...) ; compiling (DEFMACRO INDEX-MOD ...) ; compiling (DEFMACRO INDEX-ASH ...) ; compiling (DEFMACRO INDEX-PLUSP ...) ; compiling (DEFMACRO INDEX-ZEROP ...) ; compiling (DEFMACRO INDEX-EVENP ...) ; compiling (DEFMACRO INDEX-ODDP ...) ; compiling (DEFMACRO INDEX> ...) ; compiling (DEFMACRO INDEX= ...) ; compiling (DEFMACRO INDEX< ...) ; compiling (DEFMACRO INDEX>= ...) ; compiling (DEFMACRO INDEX<= ...) ; compiling (DEFCONSTANT +REPLYSIZE+ ...) ; compiling (DEFVAR *EMPTY-BYTES* ...) ; compiling (DECLAIM (TYPE BUFFER-BYTES ...)) ; compiling (DEFSTRUCT (REPLY-BUFFER # ...) ...) ; compiling (DEFCONSTANT +BUFFER-TEXT16-SIZE+ ...) ; compiling (DEFTYPE BUFFER-TEXT16 ...) ; compiling (DEFPARAMETER *XLIB-PACKAGE* ...) ; compiling (DEFUN XINTERN ...) ; compiling (DEFPARAMETER *KEYWORD-PACKAGE* ...) ; compiling (DEFUN KINTERN ...) ; compiling (DEFVAR *DEF-CLX-CLASS-USE-DEFCLASS* ...) ; compiling (DEFMACRO DEF-CLX-CLASS ...) ; compiling (DEF-CLX-CLASS (BUFFER # ...) ...) ; compiling (DEFCONSTANT +IMAGE-BIT-LSB-FIRST-P+ ...) ; compiling (DEFCONSTANT +IMAGE-BYTE-LSB-FIRST-P+ ...) ; compiling (DEFCONSTANT +IMAGE-UNIT+ ...) ; compiling (DEFCONSTANT +IMAGE-PAD+ ...) ; /home/frido/lib/cl/clx_0.7.0/depdefs.fasl written ; compilation finished in 0:00:04 ; compiling file "/home/frido/lib/cl/clx_0.7.0/clx.lisp" (written 14 MAR 2005 08:53:13 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (PUSHNEW :CLX ...) ; compiling (PUSHNEW :XLIB ...) ; compiling (DEFPARAMETER *VERSION* ...) ; compiling (PUSHNEW :CLX-MIT-R4 ...) ; compiling (PUSHNEW :CLX-MIT-R5 ...) ; compiling (DEFPARAMETER *PROTOCOL-MAJOR-VERSION* ...) ; compiling (DEFPARAMETER *PROTOCOL-MINOR-VERSION* ...) ; compiling (DEFPARAMETER *X-TCP-PORT* ...) ; compiling (DEFTYPE GENERALIZED-BOOLEAN ...) ; compiling (DEFTYPE CARD32 ...) ; compiling (DEFTYPE CARD29 ...) ; compiling (DEFTYPE CARD24 ...) ; compiling (DEFTYPE INT32 ...) ; compiling (DEFTYPE CARD16 ...) ; compiling (DEFTYPE INT16 ...) ; compiling (DEFTYPE CARD8 ...) ; compiling (DEFTYPE INT8 ...) ; compiling (DEFTYPE CARD4 ...) ; compiling (DEFTYPE RGB-VAL ...) ; compiling (DEFTYPE ANGLE ...) ; compiling (DEFTYPE MASK32 ...) ; compiling (DEFTYPE MASK16 ...) ; compiling (DEFTYPE PIXEL ...) ; compiling (DEFTYPE IMAGE-DEPTH ...) ; compiling (DEFTYPE RESOURCE-ID ...) ; compiling (DEFTYPE KEYSYM ...) ; compiling (DEF-CLX-CLASS (COLOR # ...) ...) ; compiling (DEFUN PRINT-COLOR ...) ; compiling (DEFUN MAKE-COLOR ...) ; compiling (DEFUN COLOR-RGB ...) ; compiling (DEF-CLX-CLASS (BITMAP-FORMAT # ...) ...) ; compiling (DEFUN PRINT-BITMAP-FORMAT ...) ; compiling (DEF-CLX-CLASS (PIXMAP-FORMAT # ...) ...) ; compiling (DEFUN PRINT-PIXMAP-FORMAT ...) ; compiling (DEFPARAMETER *ATOM-CACHE-SIZE* ...) ; compiling (DEFPARAMETER *RESOURCE-ID-MAP-SIZE* ...) ; compiling (DEF-CLX-CLASS (DISPLAY # ...) ...) ; compiling (DEFUN PRINT-DISPLAY-NAME ...) ; compiling (DEFUN PRINT-DISPLAY ...) ; compiling (DEF-CLX-CLASS (DRAWABLE # ...) ...) ; compiling (DEFUN PRINT-DRAWABLE ...) ; compiling (DEF-CLX-CLASS (WINDOW # ...)) ; compiling (DEF-CLX-CLASS (PIXMAP # ...)) ; compiling (DEF-CLX-CLASS (VISUAL-INFO # ...) ...) ; compiling (DEFUN PRINT-VISUAL-INFO ...) ; compiling (DEF-CLX-CLASS (COLORMAP # ...) ...) ; compiling (DEFUN PRINT-COLORMAP ...) ; compiling (DEF-CLX-CLASS (CURSOR # ...) ...) ; compiling (DEFUN PRINT-CURSOR ...) ; compiling (DEFTYPE XATOM ...) ; compiling (DEFCONSTANT +PREDEFINED-ATOMS+ ...) ; compiling (DEFTYPE STRINGABLE ...) ; compiling (DEFTYPE FONTABLE ...) ; compiling (DEFTYPE TIMESTAMP ...) ; compiling (DEFCONSTANT +BIT-GRAVITY-VECTOR+ ...) ; compiling (DEFTYPE BIT-GRAVITY ...) ; compiling (DEFCONSTANT +WIN-GRAVITY-VECTOR+ ...) ; compiling (DEFPARAMETER *PROTOCOL-FAMILIES* ...) ; compiling (DEFTYPE WIN-GRAVITY ...) ; compiling (DEFTYPE GRAB-STATUS ...) ; compiling (DEFTYPE ALIST ...) ; compiling (DEFTYPE CLX-LIST ...) ; compiling (DEFTYPE CLX-SEQUENCE ...) ; compiling (DEFTYPE REPEAT-SEQ ...) ; compiling (DEFTYPE POINT-SEQ ...) ; compiling (DEFTYPE SEG-SEQ ...) ; compiling (DEFTYPE RECT-SEQ ...) ; compiling (DEFTYPE ARC-SEQ ...) ; compiling (DEFTYPE GCONTEXT-STATE ...) ; compiling (DEF-CLX-CLASS (GCONTEXT # ...) ...) ; compiling (DEFUN PRINT-GCONTEXT ...) ; compiling (DEFCONSTANT +EVENT-MASK-VECTOR+ ...) ; compiling (DEFTYPE EVENT-MASK-CLASS ...) ; compiling (DEFTYPE EVENT-MASK ...) ; compiling (DEFCONSTANT +POINTER-EVENT-MASK-VECTOR+ ...) ; compiling (DEFTYPE POINTER-EVENT-MASK-CLASS ...) ; compiling (DEFTYPE POINTER-EVENT-MASK ...) ; compiling (DEFCONSTANT +DEVICE-EVENT-MASK-VECTOR+ ...) ; compiling (DEFTYPE DEVICE-EVENT-MASK-CLASS ...) ; compiling (DEFTYPE DEVICE-EVENT-MASK ...) ; compiling (DEFCONSTANT +STATE-MASK-VECTOR+ ...) ; compiling (DEFTYPE MODIFIER-KEY ...) ; compiling (DEFTYPE MODIFIER-MASK ...) ; compiling (DEFTYPE STATE-MASK-KEY ...) ; compiling (DEFCONSTANT +GCONTEXT-COMPONENTS+ ...) ; compiling (DEFTYPE GCONTEXT-KEY ...) ; compiling (DEFTYPE EVENT-KEY ...) ; compiling (DEFTYPE ERROR-KEY ...) ; compiling (DEFTYPE DRAW-DIRECTION ...) ; compiling (DEFCONSTANT +BOOLE-VECTOR+ ...) ; compiling (DEFTYPE BOOLE-CONSTANT ...) ; compiling (DEF-CLX-CLASS (SCREEN # ...) ...) ; compiling (DEFUN PRINT-SCREEN ...) ; compiling (DEFUN SCREEN-ROOT-VISUAL ...) ; compiling (DEFTYPE FONT-PROPS ...) ; compiling (DEF-CLX-CLASS (FONT-INFO # ...) ...) ; compiling (DEF-CLX-CLASS (FONT # ...) ...) ; compiling (DEFUN PRINT-FONT ...) ; compiling (DEFUN FONT-ID ...) ; compiling (DEFUN FONT-FONT-INFO ...) ; compiling (DEFUN FONT-CHAR-INFOS ...) ; compiling (DEFUN MAKE-FONT ...) ; compiling (MAKE-FONT-INFO-ACCESSORS IGNORE ...) ; compiling (DEFUN FONT-PROPERTY ...) ; compiling (MAKE-MUMBLE-EQUAL WINDOW) ; compiling (MAKE-MUMBLE-EQUAL PIXMAP) ; compiling (MAKE-MUMBLE-EQUAL CURSOR) ; compiling (MAKE-MUMBLE-EQUAL FONT) ; compiling (MAKE-MUMBLE-EQUAL GCONTEXT) ; compiling (MAKE-MUMBLE-EQUAL COLORMAP) ; compiling (MAKE-MUMBLE-EQUAL DRAWABLE) ; compiling (DEFUN ENCODE-MASK ...) ; compiling (DEFUN DECODE-MASK ...) ; compiling (DEFUN ENCODE-EVENT-MASK ...) ; compiling (DEFUN MAKE-EVENT-MASK ...) ; compiling (DEFUN MAKE-EVENT-KEYS ...) ; compiling (DEFUN ENCODE-DEVICE-EVENT-MASK ...) ; compiling (DEFUN ENCODE-MODIFIER-MASK ...) ; compiling (DEFUN ENCODE-STATE-MASK ...) ; compiling (DEFUN MAKE-STATE-MASK ...) ; compiling (DEFUN MAKE-STATE-KEYS ...) ; compiling (DEFUN ENCODE-POINTER-EVENT-MASK ...) ; /home/frido/lib/cl/clx_0.7.0/clx.fasl written ; compilation finished in 0:02:41 ; compiling file "/home/frido/lib/cl/clx_0.7.0/dependent.lisp" (written 29 APR 2005 05:12:08 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (PROCLAIM (QUOTE #)) ; compiling (DEFPARAMETER *OUTPUT-BUFFER-SIZE* ...) ; compiling (DEFPARAMETER *REPLY-TIMEOUT* ...) ; compiling (DEFCONSTANT +WORD-0+ ...) ; compiling (DEFCONSTANT +WORD-1+ ...) ; compiling (DEFCONSTANT +LONG-0+ ...) ; compiling (DEFCONSTANT +LONG-1+ ...) ; compiling (DEFCONSTANT +LONG-2+ ...) ; compiling (DEFCONSTANT +LONG-3+ ...) ; compiling (DEFCONSTANT +BUFFER-SPEED+ ...) ; compiling (DEFCONSTANT +BUFFER-SAFETY+ ...) ; compiling (DEFCONSTANT +BUFFER-DEBUG+ ...) ; compiling (DEFUN DECLARE-BUFMAC ...) ; compiling (DEFUN DECLARE-BUFFUN ...) ; compiling (DECLAIM (INLINE CARD8->INT8 ...)) ; compiling (DEFUN CARD8->INT8 ...) ; compiling (DEFUN INT8->CARD8 ...) ; compiling (DEFUN CARD16->INT16 ...) ; compiling (DEFUN INT16->CARD16 ...) ; compiling (DEFUN CARD32->INT32 ...) ; compiling (DEFUN INT32->CARD32 ...) ; compiling (DECLAIM (INLINE AREF-CARD8 ...)) ; compiling (DEFUN AREF-CARD8 ...) ; compiling (DEFUN ASET-CARD8 ...) ; compiling (DEFUN AREF-INT8 ...) ; compiling (DEFUN ASET-INT8 ...) ; compiling (DEFUN AREF-CARD16 ...) ; compiling (DEFUN ASET-CARD16 ...) ; compiling (DEFUN AREF-INT16 ...) ; compiling (DEFUN ASET-INT16 ...) ; compiling (DEFUN AREF-CARD32 ...) ; compiling (DEFUN ASET-CARD32 ...) ; compiling (DEFUN AREF-INT32 ...) ; compiling (DEFUN ASET-INT32 ...) ; compiling (DEFUN AREF-CARD29 ...) ; compiling (DEFUN ASET-CARD29 ...) ; compiling (DEFSETF AREF-CARD8 ...) ; compiling (DEFSETF AREF-INT8 ...) ; compiling (DEFSETF AREF-CARD16 ...) ; compiling (DEFSETF AREF-INT16 ...) ; compiling (DEFSETF AREF-CARD32 ...) ; compiling (DEFSETF AREF-INT32 ...) ; compiling (DEFSETF AREF-CARD29 ...) ; compiling (DEFUN RGB-VAL->CARD16 ...) ; compiling (DEFUN CARD16->RGB-VAL ...) ; compiling (DEFUN RADIANS->INT16 ...) ; compiling (DEFUN INT16->RADIANS ...) ; compiling (DEFTYPE ANGLE ...) ; compiling (DEFUN ANGLEP ...) ; compiling (DECLAIM (INLINE CHAR->CARD8 ...)) ; compiling (CHAR-TRANSLATORS) ; compiling (DEFUN MAKE-PROCESS-LOCK ...) ; compiling (DEFMACRO HOLDING-LOCK ...) ; compiling (DEFMACRO WITHOUT-ABORTS ...) ; compiling (DEFUN PROCESS-BLOCK ...) ; compiling (DECLAIM (INLINE PROCESS-WAKEUP)) ; compiling (DEFUN PROCESS-WAKEUP ...) ; compiling (DECLAIM (INLINE CURRENT-PROCESS))compilation aborted because of fatal error: READ failure in COMPILE-FILE: READER-ERROR at 37799 (line 1285, column 30) on #<SB-SYS:FD-STREAM for "file /home/frido/lib/cl/clx_0.7.0/dependent.lisp" {1002A2EAA1}>: Symbol "CURRENT-THREAD-ID" not found in the SB-THREAD package. ; /home/frido/lib/cl/clx_0.7.0/dependent.fasl written ; compilation finished in 0:00:02 So the patch you suggested is not supplied so change that current-thread-id to current-thread at the proposed place #+sbcl (defun current-process () (sb-thread:*current-thread*)) (now I restart with the suggestion in INSTALL.asdf) (asdf:oos 'asdf:load-op :clx) Now we better check that the proper clx.asd id loaded, so let's see: ls -l ~/lisp-systems/clx.asd lrwxrwxrwx 1 frido frido 36 Jul 12 17:18 /home/frido/lisp-systems/clx.asd -> /home/frido/lib/cl/clx_0.7.0/clx.asd looks good IMHO so let's see what happens if we restart: CL-USER> (asdf:oos 'asdf:load-op :clx) ; compiling file "/home/frido/lib/cl/clx_0.7.0/dependent.lisp" (written 12 JUL 2005 05:29:24 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (PROCLAIM (QUOTE #)) ; compiling (DEFPARAMETER *OUTPUT-BUFFER-SIZE* ...) ; compiling (DEFPARAMETER *REPLY-TIMEOUT* ...) ; compiling (DEFCONSTANT +WORD-0+ ...) ; compiling (DEFCONSTANT +WORD-1+ ...) ; compiling (DEFCONSTANT +LONG-0+ ...) ; compiling (DEFCONSTANT +LONG-1+ ...) ; compiling (DEFCONSTANT +LONG-2+ ...) ; compiling (DEFCONSTANT +LONG-3+ ...) ; compiling (DEFCONSTANT +BUFFER-SPEED+ ...) ; compiling (DEFCONSTANT +BUFFER-SAFETY+ ...) ; compiling (DEFCONSTANT +BUFFER-DEBUG+ ...) ; compiling (DEFUN DECLARE-BUFMAC ...) ; ; caught STYLE-WARNING: ; redefining DECLARE-BUFMAC in DEFUN ; compiling (DEFUN DECLARE-BUFFUN ...) ; ; caught STYLE-WARNING: ; redefining DECLARE-BUFFUN in DEFUN ; compiling (DECLAIM (INLINE CARD8->INT8 ...)) ; compiling (DEFUN CARD8->INT8 ...) ; compiling (DEFUN INT8->CARD8 ...) ; compiling (DEFUN CARD16->INT16 ...) ; compiling (DEFUN INT16->CARD16 ...) ; compiling (DEFUN CARD32->INT32 ...) ; compiling (DEFUN INT32->CARD32 ...) ; compiling (DECLAIM (INLINE AREF-CARD8 ...)) ; compiling (DEFUN AREF-CARD8 ...) ; compiling (DEFUN ASET-CARD8 ...) ; compiling (DEFUN AREF-INT8 ...) ; compiling (DEFUN ASET-INT8 ...) ; compiling (DEFUN AREF-CARD16 ...) ; compiling (DEFUN ASET-CARD16 ...) ; compiling (DEFUN AREF-INT16 ...) ; compiling (DEFUN ASET-INT16 ...) ; compiling (DEFUN AREF-CARD32 ...) ; compiling (DEFUN ASET-CARD32 ...) ; compiling (DEFUN AREF-INT32 ...) ; compiling (DEFUN ASET-INT32 ...) ; compiling (DEFUN AREF-CARD29 ...) ; compiling (DEFUN ASET-CARD29 ...) ; compiling (DEFSETF AREF-CARD8 ...) ; compiling (DEFSETF AREF-INT8 ...) ; compiling (DEFSETF AREF-CARD16 ...) ; compiling (DEFSETF AREF-INT16 ...) ; compiling (DEFSETF AREF-CARD32 ...) ; compiling (DEFSETF AREF-INT32 ...) ; compiling (DEFSETF AREF-CARD29 ...) ; compiling (DEFUN RGB-VAL->CARD16 ...) ; compiling (DEFUN CARD16->RGB-VAL ...) ; compiling (DEFUN RADIANS->INT16 ...) ; compiling (DEFUN INT16->RADIANS ...) ; compiling (DEFTYPE ANGLE ...) ; compiling (DEFUN ANGLEP ...) ; compiling (DECLAIM (INLINE CHAR->CARD8 ...)) ; compiling (CHAR-TRANSLATORS) ; compiling (DEFUN MAKE-PROCESS-LOCK ...) ; compiling (DEFMACRO HOLDING-LOCK ...) ; compiling (DEFMACRO WITHOUT-ABORTS ...) ; compiling (DEFUN PROCESS-BLOCK ...) ; compiling (DECLAIM (INLINE PROCESS-WAKEUP)) ; compiling (DEFUN PROCESS-WAKEUP ...) ; compiling (DECLAIM (INLINE CURRENT-PROCESS)) ; compiling (DEFUN CURRENT-PROCESS ...) ; compiling (DEFMACRO WITHOUT-INTERRUPTS ...) ; compiling (DEFVAR *WITHOUT-INTERRUPTS-SIC-LOCK* ...) ; compiling (DEFMACRO WITHOUT-INTERRUPTS ...) ; compiling (DEFVAR *CONDITIONAL-STORE-QUEUE* ...) ; compiling (DEFMACRO CONDITIONAL-STORE ...) ; compiling (DEFMACRO WRAP-BUF-OUTPUT ...) ; compiling (DEFMACRO WRAP-BUF-INPUT ...) ; compiling (DEFCONSTANT +X-UNIX-SOCKET-PATH+ ...) ; compiling (DEFUN OPEN-X-STREAM ...) ; compiling (DEFUN BUFFER-READ-DEFAULT ...) ; compiling (DEFUN BUFFER-WRITE-DEFAULT ...) ; compiling (DEFUN BUFFER-FORCE-OUTPUT-DEFAULT ...) ; compiling (DEFUN BUFFER-CLOSE-DEFAULT ...) ; compiling (DEFUN BUFFER-INPUT-WAIT-DEFAULT ...) ; compiling (DEFUN BUFFER-LISTEN-DEFAULT ...) ; compiling (DEFMACRO WITH-STACK-LIST ...) ; compiling (DEFMACRO WITH-STACK-LIST* ...) ; compiling (DECLAIM (INLINE BUFFER-REPLACE)) ; compiling (DEFUN BUFFER-REPLACE ...) ; compiling (DEFMACRO WITH-GCONTEXT-BINDINGS ...) ; compiling (DEFCONSTANT +TYPE-CHECK?+ ...) ; compiling (DEFMACRO TYPE? ...) ; compiling (DEFUN X-TYPE-ERROR ...) ; compiling (DEFUN DEFAULT-ERROR-HANDLER ...) ; compiling (DEFUN X-ERROR ...) ; compiling (DEFUN X-CERROR ...) ; compiling (DEFINE-CONDITION X-ERROR ...) ; compiling (DEFUN HOST-ADDRESS ...) ; compiling (DEFMACRO USE-CLOSURES ...) ; compiling (DEFUN CLX-MACROEXPAND ...) ; compiling (DEFUN GETENV ...) ; compiling (DEFUN GET-HOST-NAME ...) ; compiling (DEFUN HOMEDIR-FILE-PATHNAME ...) ; compiling (DEFUN DEFAULT-RESOURCES-PATHNAME ...) ; compiling (DEFUN RESOURCES-PATHNAME ...) ; compiling (DEFUN AUTHORITY-PATHNAME ...) ; compiling (DEFUN GET-DEFAULT-DISPLAY ...) ; compiling (DEFUN GC-CLEANUP ...) ; compiling (DEFUN DEFAULT-KEYSYM-TRANSLATE ...) ; compiling (DEFTYPE PIXARRAY-1-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-4-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-8-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-16-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-24-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-32-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-1 ...) ; compiling (DEFTYPE PIXARRAY-4 ...) ; compiling (DEFTYPE PIXARRAY-8 ...) ; compiling (DEFTYPE PIXARRAY-16 ...) ; compiling (DEFTYPE PIXARRAY-24 ...) ; compiling (DEFTYPE PIXARRAY-32 ...) ; compiling (DEFTYPE PIXARRAY ...) ; compiling (DEFTYPE BITMAP ...) ; compiling (DEFMACRO WITH-UNDERLYING-SIMPLE-VECTOR ...) ; compiling (DEFMACRO READ-IMAGE-LOAD-BYTE ...) ; compiling (DEFMACRO READ-IMAGE-ASSEMBLE-BYTES ...) ; compiling (DEFMACRO WRITE-IMAGE-LOAD-BYTE ...) ; compiling (DEFMACRO WRITE-IMAGE-ASSEMBLE-BYTES ...) ; compiling (DEFUN FAST-READ-PIXARRAY-24 ...) ; compiling (DEFUN PIXARRAY-ELEMENT-SIZE ...) ; compiling (DEFUN COPY-BIT-RECT ...) ; file: /home/frido/lib/cl/clx_0.7.0/dependent.lisp ; in: DEFUN COPY-BIT-RECT ; (SB-KERNEL:WITH-ARRAY-DATA ; ((XLIB::SDATA XLIB::SOURCE) (XLIB::SSTART) (XLIB::SEND)) ; (DECLARE (IGNORE XLIB::SEND)) ; (SB-KERNEL:WITH-ARRAY-DATA ; ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART) (XLIB::DEND)) ; (DECLARE (IGNORE XLIB::DEND)) ; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART))) ; (DO ((XLIB::SRC-IDX # #) ; (XLIB::DEST-IDX # #) ; (COUNT XLIB::HEIGHT #)) ; ((ZEROP COUNT)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT)) ; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA ; XLIB::SRC-IDX ; XLIB::DDATA ; XLIB::DEST-IDX ; XLIB::WIDTH)))) ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; ==> ; (SB-KERNEL:%WITH-ARRAY-DATA #:ONCE-ONLY-3074 ; #:ONCE-ONLY-3075 ; #:ONCE-ONLY-3076) ; ; note: unable to ; inline non-SIMPLE-vector-handling logic ; due to type uncertainty: ; The first argument is a ARRAY, not a (OR VECTOR SIMPLE-ARRAY). ; (SB-KERNEL:WITH-ARRAY-DATA ; ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART) (XLIB::DEND)) ; (DECLARE (IGNORE XLIB::DEND)) ; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART))) ; (DO ((XLIB::SRC-IDX (XLIB::INDEX+ # XLIB::SX #) ; (XLIB::INDEX+ XLIB::SRC-IDX XLIB::SOURCE-WIDTH)) ; (XLIB::DEST-IDX (XLIB::INDEX+ # XLIB::DX #) ; (XLIB::INDEX+ XLIB::DEST-IDX XLIB::DEST-WIDTH)) ; (COUNT XLIB::HEIGHT (1- COUNT))) ; ((ZEROP COUNT)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT)) ; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA ; XLIB::SRC-IDX ; XLIB::DDATA ; XLIB::DEST-IDX ; XLIB::WIDTH))) ; --> LET LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL IF ; ==> ; (SB-KERNEL:%WITH-ARRAY-DATA #:ONCE-ONLY-3080 ; #:ONCE-ONLY-3081 ; #:ONCE-ONLY-3082) ; ; note: unable to ; inline non-SIMPLE-vector-handling logic ; due to type uncertainty: ; The first argument is a ARRAY, not a (OR VECTOR SIMPLE-ARRAY). ; compiling (DEFUN FAST-READ-PIXARRAY-USING-BITBLT ...) ; compiling (DEFUN FAST-READ-PIXARRAY ...) ; file: /home/frido/lib/cl/clx_0.7.0/dependent.lisp ; in: DEFUN FAST-READ-PIXARRAY ; (XLIB::READ-PIXARRAY-INTERNAL XLIB::BBUF ; XLIB::BOFFSET ; XLIB:PIXARRAY ; XLIB::X ; XLIB::Y ; XLIB::WIDTH ; XLIB::HEIGHT ; XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL ; FUNCTION ; XLIB::UNIT ; ...) ; --> LOCALLY LET SB-C::STEP-VALUES MULTIPLE-VALUE-LIST MULTIPLE-VALUE-CALL ; --> XLIB::READ-PIXARRAY-INTERNAL LOCALLY XLIB::BBUF LOCALLY ; --> SB-C::STEP-VARIABLE ; ==> ; XLIB::BBUF ; ; note: deleting unreachable code ; compiling (DEFUN FAST-WRITE-PIXARRAY-24 ...) ; compiling (DEFUN FAST-WRITE-PIXARRAY-USING-BITBLT ...) ; file: /home/frido/lib/cl/clx_0.7.0/dependent.lisp ; in: DEFUN FAST-WRITE-PIXARRAY-USING-BITBLT ; (ARRAY-DIMENSION XLIB:PIXARRAY 1) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; compiling (DEFUN FAST-WRITE-PIXARRAY ...) ; file: /home/frido/lib/cl/clx_0.7.0/dependent.lisp ; in: DEFUN FAST-WRITE-PIXARRAY ; (XLIB::WRITE-PIXARRAY-INTERNAL XLIB::BBUF ; XLIB::BOFFSET ; XLIB:PIXARRAY ; XLIB::X ; XLIB::Y ; XLIB::WIDTH ; XLIB::HEIGHT ; XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL ; FUNCTION ; XLIB::+IMAGE-UNIT+ ; ...) ; --> LOCALLY LET SB-C::STEP-VALUES MULTIPLE-VALUE-LIST MULTIPLE-VALUE-CALL ; --> XLIB::WRITE-PIXARRAY-INTERNAL LOCALLY XLIB::BBUF LOCALLY ; --> SB-C::STEP-VARIABLE ; ==> ; XLIB::BBUF ; ; note: deleting unreachable code ; compiling (DEFUN FAST-COPY-PIXARRAY ...) ; /home/frido/lib/cl/clx_0.7.0/dependent.fasl written ; compilation finished in 0:00:04 erred while invoking #<COMPILE-OP NIL {1001C1B7E1}> on #<CLX-SOURCE-FILE "dependent" {10020BF121}> [Condition of type ASDF:COMPILE-WARNED] Restarts: 0: [RETRY] Retry performing #<ASDF:COMPILE-OP NIL {1001C1B7E1}> on #<CLX-SYSTEM::CLX-SOURCE-FILE "dependent" {10020BF121}>. 1: [ACCEPT] Continue, treating #<ASDF:COMPILE-OP NIL {1001C1B7E1}> on #<CLX-SYSTEM::CLX-SOURCE-FILE "dependent" {10020BF121}> as having been successful. 2: [ABORT] Abort handling SLIME request. 3: [ABORT] Exit debugger, returning to top level. Backtrace: Ups. Probably an asdf problem. So let's retry, maybe the dreaded asdf:*compile-file-warnings-behaviour* but well that seems to be ok: asdf:*compile-file-warnings-behaviour* :WARN However with a restart I finally managed to get it compiled so in fact I was wrong but the other fact is that the patch is not yet applied and that it fails in between. Regards Friedrich _______________________________________________ Portable-clx mailing list [email protected] http://lists.metacircles.com/cgi-bin/mailman/listinfo/portable-clx cvs -d :ext:cvs.telent.net:/usr/local/src/cvs co clx # over ssh cvs -d :pserver:[email protected]:/cvs co clx # anonymous