1 2 3 4 5 6 7 8
(defpackage "FOO" (:use "CL")) (in-package "FOO") (eval-when (:compile-toplevel :load-toplevel :execute) (defun baz () :bad))