Clisp and x11:*

[Nicolas et Ryoko]

Hello,

with the latest slate from  cvs, using clisp and an interpreted slate,
(load  "slate.lisp") chokes  in object.lisp  at line  28,  saying that
(XLIB:DISPLAY *TRAITS-DISPLAY*) should be a lambda expression.

The  ,@  construct  tries  to  evaluate the  type  XLIB:DISPLAY  as  a
function. A quick fix could be  to repeat #+clx on each line requiring
it (although the ,@ was here to avoid this... )

x11.lisp  also  complains about  an  undefined  function add-named.  I
commented out (load "x11.lisp") in prims.lisp in my local copy for now
to be able to complete loading slate.lisp (I do not use graphics).

-- 
Nicolas

-------------- next part --------------
Index: object.lisp
===================================================================
RCS file: /var/lib/cvs/slate/slate/object.lisp,v
retrieving revision 1.23
diff -u -r1.23 object.lisp
--- object.lisp	14 Aug 2003 07:35:28 -0000	1.23
+++ object.lisp	16 Aug 2003 02:56:11 -0000
@@ -25,14 +25,13 @@
      (stream *traits-filestream*)
      (function *traits-lisp*)
      #+clisp (socket::socket-stream *traits-socket*)
-     #+clx
-     ,@((xlib:display *traits-display*)
-	(xlib:screen *traits-screen*)
-	(xlib:drawable *traits-drawable*)
-	(xlib:window *traits-window*)
-	(xlib:pixmap *traits-pixmap*)
-	(xlib:cursor *traits-cursor*)
-	(xlib:color *traits-color*))
+     #+clx (xlib:display *traits-display*)
+     #+clx (xlib:screen *traits-screen*)
+     #+clx (xlib:drawable *traits-drawable*)
+     #+clx (xlib:window *traits-window*)
+     #+clx (xlib:pixmap *traits-pixmap*)
+     #+clx (xlib:cursor *traits-cursor*)
+     #+clx (xlib:color *traits-color*)
      (t (error "Unhandled object type: ~A" ,sym))))))
 
 (defstruct wm-slot