mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 05:21:20 -08:00
Code Issues Projects Releases Packages Wiki Activity

defpackage: add :local-nicknames option to defpackage

Browse source 
Also add argument to dodefpackage. This change doesn't introduce any
new functionality yet (just introduces the interface to defpackage).
This commit is contained in:
Daniel Kochmanski 2017-04-30 11:33:20 +02:00
parent e0f9741ee4
commit 0600f6805a
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/lsp/defpackage.lsp
View file

@ -88,6 +88,7 @@
(:shadow {symbol-name}*)
(:shadowing-import-from package-name {symbol-name}*)
(:use {package-name}*)
(:local-nicknames {local-nickname actual-package-name}*)
(:import-from package-name {symbol-name}*)
(:intern {symbol-name}*)
(:export {symbol-name}*)
@ -145,7 +146,8 @@
(option-values-list ':shadowing-import-from options))
(imported-from-symbol-names-list
(option-values-list ':import-from options))
(exported-from-package-names (option-values ':export-from options)))
(exported-from-package-names (option-values ':export-from options))
(local-nicknames nil))
(dolist (duplicate (find-duplicates shadowed-symbol-names
interned-symbol-names
(loop for list in shadowing-imported-from-symbol-names-list append (rest list))
@ -175,6 +177,7 @@
,(car documentation)
,(cadr (assoc ':lock options))
',(if (assoc ':use options) (option-values ':use options) "CL")
',local-nicknames
',shadowed-symbol-names
',interned-symbol-names
',exported-symbol-names
@ -189,6 +192,7 @@
documentation
lock
use
local-nicknames
shadowed-symbol-names
interned-symbol-names
exported-symbol-names