move list-of-forms? out of the #L eval-when, because it's also used by other parts of iterate
Reading pristine 21 done, -8 queued. 98ae8c1e314c932b485558186970a714d0d3896953c
Wed Jan 19 08:11:33 PST 2011 attila.lendvai@gmail.com
* move list-of-forms? out of the #L eval-when, because it's also used by other parts of iterate
diff -rN -u old-iterate/iterate.lisp new-iterate/iterate.lisp
--- old-iterate/iterate.lisp 2014-07-09 18:49:23.000000000 -0700
+++ new-iterate/iterate.lisp 2014-07-09 18:49:24.000000000 -0700
@@ -439,6 +439,14 @@
) ;end eval-when
+(eval-when (:compile-toplevel :load-toplevel :execute)
+
+(defun list-of-forms? (x)
+ (and (consp x) (consp (car x))
+ (not (eq (caar x) 'lambda))))
+
+) ;end eval-when
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; SharpL.
;;;
@@ -481,10 +489,6 @@
(defun make-bang-var (n)
(intern (format nil "!~d" n)))
- (defun list-of-forms? (x)
- (and (consp x) (consp (car x))
- (not (eq (caar x) 'lambda))))
-
(defun bang-vars (form)
(delete-duplicates (bang-vars-1 form '()) :test #'eq))
@@ -1086,7 +1090,6 @@
(defun symbol-synonym (symbol)
(or (get symbol 'synonym) symbol))
-
(eval-when (:compile-toplevel :load-toplevel :execute)
(defun listify (x)