Fix sharpL reader, add :execute to the eval-when to make (load "iterate" :compiling t) work on clisp
Sun May 6 10:07:04 UTC 2007 attila.lendvai@gmail.com
* Fix sharpL reader, add :execute to the eval-when to make (load "iterate" :compiling t) work on clisp
diff -rN -u old-iterate/iterate.lisp new-iterate/iterate.lisp
--- old-iterate/iterate.lisp 2015-03-30 23:03:57.998119690 +0000
+++ new-iterate/iterate.lisp 2015-03-30 23:03:58.034119462 +0000
@@ -450,7 +450,7 @@
;;; e.g. #L(list !2 !3 !5) is equivalent to:
;;; (lambda (!1 !2 !3 !4 !5) (declare (ignore !1 !4)) (list !2 !3 !5))
-(eval-when (:compile-toplevel)
+(eval-when (:compile-toplevel :execute)
(defun sharp-l-reader (stream subchar n-args)
(declare (ignore subchar))