Changeset 339

Timestamp:

Jan 19, 2004, 4:40:29 PM (21 years ago)

Author:

Gary Byers

Message:

Allow (EVAL-WHEN () ,@body).

File:

• trunk/ccl/lib/nfcomp.lisp (modified) (1 diff)

trunk/ccl/lib/nfcomp.lisp

@@ -539 +539 @@
                                                                
 (defun fcomp-eval-when (form env processing-mode &aux (eval-times (pop form)))
-  (when (or (atom eval-times) (eq (%car eval-times) 'quote))
-    (report-bad-arg eval-times 'list))
   (let* ((compile-time-too  (eq processing-mode :compile-time-too))
          (compile-time-only (eq processing-mode :compile-time))