- Handle non-strings in NULL-OR
authorMaciej Pasternacki <maciej@pasternacki.net>
Wed, 17 Dec 2008 22:11:14 +0000 (17 23:11 +0100)
committerMaciej Pasternacki <maciej@pasternacki.net>
Wed, 17 Dec 2008 22:11:14 +0000 (17 23:11 +0100)
src/common.lisp

index 696e874..6ae47c8 100644 (file)
@@ -174,7 +174,7 @@ lists of statements."
 
 (defun null-or (v)
   "If V is NIL or an empty string, return :NULL, otherwise return V."
-  (if (or (null v) (string= "" v))
+  (if (or (null v) (and (stringp v) (string= "" v)))
       :null
       v))