ニックネームを追加する - lisp-cookbook-ja/common-lisp GitHub Wiki

パッケージ

ニックネームを追加する

既存のパッケージにニックネームを追加する関数は、標準では用意されていませんが、 rename-package と package-nicknames を用いることで実現できます。

(defun add-nickname (nickname package)
  (rename-package package
                  (package-name package)
                  (cons nickname (package-nicknames package))))

;;;; 使用例

(defpackage :foo-bar-baz)

(package-nicknames :foo-bar-baz)
;=> NIL

(add-nickname :foo :foo-bar-baz)
;=> #<PACKAGE "FOO-BAR-BAZ">

(package-nicknames :foo-bar-baz)
;=> ("FOO")