(when (find :compile-toplevel situations)
(eval (cons 'progn body)))
;; `load-toplevel' is given, then just compile the subforms as usual.
(when (find :compile-toplevel situations)
(eval (cons 'progn body)))
;; `load-toplevel' is given, then just compile the subforms as usual.
- (if (find :load-toplevel situations)
- (convert `(progn ,@body))))
+ (when (find :load-toplevel situations)
+ (convert `(progn ,@body))))
((find :execute situations)
(convert `(progn ,@body) *multiple-value-p*))
(t
((find :execute situations)
(convert `(progn ,@body) *multiple-value-p*))
(t