From: Maciej Pasternacki <maciej@pasternacki.net>
Date: Wed, 17 Dec 2008 22:11:14 +0000 (+0100)
Subject: - Handle non-strings in NULL-OR
X-Git-Url: https://repo.or.cz/w/cl-trane.git/commitdiff_plain/edbd232c6be15721eaec907735219f73dfe05550

- Handle non-strings in NULL-OR
---

diff --git a/src/common.lisp b/src/common.lisp
index 696e874..6ae47c8 100644
--- a/src/common.lisp
+++ b/src/common.lisp
@@ -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))