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

parent 8bedb3c3
...@@ -439,6 +439,14 @@ ...@@ -439,6 +439,14 @@
) ;end eval-when ) ;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. ;;; SharpL.
;;; ;;;
...@@ -481,10 +489,6 @@ ...@@ -481,10 +489,6 @@
(defun make-bang-var (n) (defun make-bang-var (n)
(intern (format nil "!~d" 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) (defun bang-vars (form)
(delete-duplicates (bang-vars-1 form '()) :test #'eq)) (delete-duplicates (bang-vars-1 form '()) :test #'eq))
...@@ -1086,7 +1090,6 @@ Evaluate (iterate:display-iterate-clauses) for an overview of clauses" ...@@ -1086,7 +1090,6 @@ Evaluate (iterate:display-iterate-clauses) for an overview of clauses"
(defun symbol-synonym (symbol) (defun symbol-synonym (symbol)
(or (get symbol 'synonym) symbol)) (or (get symbol 'synonym) symbol))
(eval-when (:compile-toplevel :load-toplevel :execute) (eval-when (:compile-toplevel :load-toplevel :execute)
(defun listify (x) (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