Commit 562d8f4c authored by Attila Lendvai's avatar Attila Lendvai
Browse files

move list-of-forms? out of the #L eval-when, because it's also used by other parts of iterate

Ignore-this: 97545988c4a3eab02434f222120b1a1

darcs-hash:1fe403ab6ead8c5755fc2011a99865832282c71e
parent 8bedb3c3
......@@ -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 @@ Evaluate (iterate:display-iterate-clauses) for an overview of clauses"
(defun symbol-synonym (symbol)
(or (get symbol 'synonym) symbol))
(eval-when (:compile-toplevel :load-toplevel :execute)
(defun listify (x)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment