Commit 9b73ba00 authored by Liam M. Healy's avatar Liam M. Healy
Browse files

Optional nickname to antik:make-user-package

parent 738c9440
;; Define package and reader for Antik
;; Liam Healy 2010-12-24 09:12:15EST package.lisp
;; Time-stamp: <2011-08-19 12:05:54EDT package.lisp>
;; Time-stamp: <2014-04-06 10:07:36EDT package.lisp>
;; Copyright 2011 Liam M. Healy
;; Distributed under the terms of the GNU General Public License
......@@ -59,11 +59,11 @@
"Symbols to be shadowed by default in antik-user packages.")
(eval-when (:compile-toplevel :load-toplevel :execute)
(defun antik:make-user-package (name)
(defun antik:make-user-package (name &optional nicknames)
"Make a package in which it is convenient to use Antik and related systems.
If the package already exists, the use-packages and shadowing
symbols are updated."
(unless (find-package name) (make-package name))
(unless (find-package name) (make-package name :nicknames nicknames))
(shadowing-import antik::*antik-user-shadow-symbols* name)
(use-package antik::*antik-user-use-packages* name)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment