Index: /trunk/ccl/lib/nfcomp.lisp
===================================================================
--- /trunk/ccl/lib/nfcomp.lisp	(revision 338)
+++ /trunk/ccl/lib/nfcomp.lisp	(revision 339)
@@ -539,6 +539,4 @@
                                                                
 (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))