From: Sam S. <sd...@gn...> - 2003-08-21 01:04:13
|
> * In message <2CC...@ma...> > * On the subject of "Bug in me or CLisp?" > * Sent on Wed, 20 Aug 2003 16:16:25 -0400 > * Honorable Douglas Philips <dg...@ma...> writes: > > The following code works fine interpreted or compiled, > however, "clisp -C test1" barfs with: > *** - FUNCALL: #.#'EQUAL is not a function name thanks for the bug report (I introduced it when I made -C report errors like -c does). I just fixed it in the CVS. please try again (note that the changes propagate to the anoncvs with a 24 hour delay, so I append the patch.) -- 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> The paperless office will become a reality soon after the paperless toilet. Index: compiler.lisp =================================================================== RCS file: /cvsroot/clisp/clisp/src/compiler.lisp,v retrieving revision 1.132 diff -u -w -b -u -b -w -i -B -r1.132 compiler.lisp --- compiler.lisp 14 Aug 2003 18:04:57 -0000 1.132 +++ compiler.lisp 20 Aug 2003 22:53:46 -0000 @@ -9689,7 +9689,7 @@ (let ((l (append (make-list (fnode-Keyword-Offset fnode)) (fnode-keywords fnode) - (if *compiling-from-file* + (if *fasoutput-stream* (mapcar #'(lambda (value form) (if form (make-load-time-eval form) value)) (fnode-Consts fnode) (fnode-Consts-forms fnode)) |