tests/package-test-4.lisp

   1 (eval-when (:compile-toplevel :load-toplevel :execute)
   2   (cond
   3     ((find-package "FOO")
   4      (rename-package "FOO" "FOO-NEW" '("FOO")))
   5     ((not (find-package "FOO-NEW"))
   6      (make-package "FOO-NEW" :use '("CL") :nicknames '("FOO"))
   7      (export (list (intern "BAR" "FOO-NEW") (intern "BAZ" "FOO-NEW")) "FOO-NEW"))))
   8
   9 (in-package "FOO-NEW")
  10
  11 (eval-when (:compile-toplevel :load-toplevel :execute)
  12   (defmacro bar (&rest args)
  13     `(baz ,@args)))