From: Sam S. <sd...@gn...> - 2004-04-26 02:00:38
|
> * Iban HATCHONDO <ung...@ln...> [2004-04-08 22:20:14 +0200]: > > I am trying to build mit-clx (under clisp-2.33). > It looks like it compiles but when I am trying to test > it with the demo here's what I got: > > [1]> (cd "demo/") > #P"/home/hatchond/clisp/clisp-2.33/src/clx/mit-clx/demo/" > [2]> (load "hello") > ;; Chargement du fichier > /home/hatchond/clisp/clisp-2.33/src/clx/mit-clx/demo/hello.lisp > ... > *** - EXPOSURE-EVENT-GET-MACRO: symbol GET-CODE has no > value Please try the appended patch. Thanks for reporting the bug. -- Sam Steingold (http://www.podval.org/~sds) running w2k <http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/> <http://www.mideasttruth.com/> <http://www.honestreporting.com> Any connection between your reality and mine is purely coincidental. --- input.lisp 13 Apr 2004 12:45:34 -0400 1.4 +++ input.lisp 25 Apr 2004 21:57:56 -0400 @@ -744,11 +744,12 @@ ;; code to be compiled without having the CLX macros file loaded. `(let ((%buffer ,display)) (declare (ignorable %buffer)) - ,(getf `(:display (the display ,display) + ,(getf (list* :display (the display ,display) :event-key (the keyword ,event-key) - :event-code (the card8 (logand #x7f (read-card8 0))) + :event-code + (the card8 (logand #x7f (read-card8 0))) :send-event-p (logbitp 7 (read-card8 0)) - ,@',(mapcar #'(lambda (form) + ',(mapcar #'(lambda (form) (clx-macroexpand form env)) get-code)) variable))) |