tests/package-test-2.lisp

   1 (eval-when (:compile-toplevel :load-toplevel :execute)
   2   (cond
   3     ((find-package "FOO")
   4      (rename-package "FOO" "BAR" '("FOO")))
   5     ((not (find-package "BAR"))
   6      (make-package "BAR" :use '("CL") :nicknames '("FOO"))
   7      (export (list (intern "BAZ" "BAR")) "BAR"))))
   8
   9 (in-package "BAR")
  10
  11 (eval-when (:compile-toplevel :load-toplevel :execute)
  12   (defun baz ()
  13     :good))