mmarco/kenzo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Need to take care of NIL, which is also a SYMBOL.

Browse Source
This commit is contained in:
Gerd Heber 2015-07-12 15:53:04 -05:00
parent 19297ce111
commit e31bbd56f7
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/abbreviations.lisp
View File

@ -59,6 +59,7 @@
:IALLP "Internal-ALgebraic LooP" :IALLP "Internal-ALgebraic LooP"
:ICMBN "Internal-CoMBiNation" :ICMBN "Internal-CoMBiNation"
:IDNM "IDentification NuMber" :IDNM "IDentification NuMber"
:IDNT "IDeNTity"
:ILOOP "Internal LOOP" :ILOOP "Internal LOOP"
:INTR "INTeRnal-" :INTR "INTeRnal-"
@ -110,9 +111,10 @@
(DEFUN what-is (kwd) (DEFUN what-is (kwd)
(declare (type (or keyword string symbol) kwd)) (declare (type (or keyword string symbol) kwd))
"WHAT-IS returns the full word or term for an abbreviation provided as a keyword "WHAT-IS returns the full word or term for an abbreviation provided as a
string, or symbol. It returns NIL for unknown abbreviations." keyword, string, or symbol. It returns NIL for unknown abbreviations."
(getf +ABBREVIATIONS+ (unless (null kwd)
(getf +ABBREVIATIONS+
(cond ((keywordp kwd) kwd) (cond ((keywordp kwd) kwd)
((stringp kwd) (intern (string-upcase kwd) 'keyword)) ((stringp kwd) (intern (string-upcase kwd) 'keyword))
((symbolp kwd) (intern (symbol-name kwd) 'keyword))))) ((symbolp kwd) (intern (symbol-name kwd) 'keyword))))))