Fix sharpL reader, add :execute to the eval-when to make (load "iterate" :compiling t) work on clisp
Sun May 6 03:07:04 PDT 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 2014-07-29 09:53:38.000000000 -0700
+++ new-iterate/iterate.lisp 2014-07-29 09:53:38.000000000 -0700
@@ -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))