Commit 898b521f authored by Didier Verna's avatar Didier Verna
Browse files

Add the NICKNAME-PACKAGE function.

parent 2202b3d1
......@@ -60,6 +60,8 @@
;; From meta.lisp (this file):
......@@ -70,4 +72,18 @@
(in-package :fr.epita.lrde.quickref)
;; ------------------
;; External Utilities
;; ------------------
(defun nickname-package (&optional (nickname :quickref))
"Add NICKNAME (:QUICKREF by default) to the :FR.EPITA.LRDE.QUICKREF package."
(rename-package :fr.epita.lrde.quickref
(package-name :fr.epita.lrde.quickref)
(adjoin nickname (package-nicknames :fr.epita.lrde.quickref)
:test #'string-equal)))
;;; meta.lisp ends here
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