From e31bbd56f79c1430693f21ec0cfd6c56ff79b09d Mon Sep 17 00:00:00 2001 From: Gerd Heber Date: Sun, 12 Jul 2015 15:53:04 -0500 Subject: [PATCH] Need to take care of NIL, which is also a SYMBOL. --- src/abbreviations.lisp | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/abbreviations.lisp b/src/abbreviations.lisp index 8d0e9a1..795357d 100644 --- a/src/abbreviations.lisp +++ b/src/abbreviations.lisp @@ -59,6 +59,7 @@ :IALLP "Internal-ALgebraic LooP" :ICMBN "Internal-CoMBiNation" :IDNM "IDentification NuMber" + :IDNT "IDeNTity" :ILOOP "Internal LOOP" :INTR "INTeRnal-" @@ -110,9 +111,10 @@ (DEFUN what-is (kwd) (declare (type (or keyword string symbol) kwd)) - "WHAT-IS returns the full word or term for an abbreviation provided as a keyword -string, or symbol. It returns NIL for unknown abbreviations." - (getf +ABBREVIATIONS+ + "WHAT-IS returns the full word or term for an abbreviation provided as a +keyword, string, or symbol. It returns NIL for unknown abbreviations." + (unless (null kwd) + (getf +ABBREVIATIONS+ (cond ((keywordp kwd) kwd) ((stringp kwd) (intern (string-upcase kwd) 'keyword)) - ((symbolp kwd) (intern (symbol-name kwd) 'keyword))))) + ((symbolp kwd) (intern (symbol-name kwd) 'keyword))))))