mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
14 lines
379 B
Common Lisp
14 lines
379 B
Common Lisp
(eval-when (:compile-toplevel :load-toplevel :execute)
|
|
(cond
|
|
((find-package "FOO")
|
|
(rename-package "FOO" "BAR" '("FOO")))
|
|
((not (find-package "BAR"))
|
|
(make-package "BAR" :use '("CL") :nicknames '("FOO"))
|
|
(export (list (intern "BAZ" "BAR")) "BAR"))))
|
|
|
|
(in-package "BAR")
|
|
|
|
(eval-when (:compile-toplevel :load-toplevel :execute)
|
|
(defun baz ()
|
|
:good))
|