From 0600f6805a8d2e289393dddeaa7fa184adc57cce Mon Sep 17 00:00:00 2001 From: Daniel Kochmanski Date: Sun, 30 Apr 2017 11:33:20 +0200 Subject: [PATCH] defpackage: add :local-nicknames option to defpackage Also add argument to dodefpackage. This change doesn't introduce any new functionality yet (just introduces the interface to defpackage). --- src/lsp/defpackage.lsp | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/src/lsp/defpackage.lsp b/src/lsp/defpackage.lsp index 986729003..7aaa3ba99 100644 --- a/src/lsp/defpackage.lsp +++ b/src/lsp/defpackage.lsp @@ -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