From edbd232c6be15721eaec907735219f73dfe05550 Mon Sep 17 00:00:00 2001
From: Maciej Pasternacki <maciej@pasternacki.net>
Date: Wed, 17 Dec 2008 23:11:14 +0100
Subject: [PATCH] - Handle non-strings in NULL-OR

---
 src/common.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))
 
-- 
2.11.4.GIT