actually ignore-nil-strings when told to

AccelerationNet · Jul 26, 2011 · 7e603a8 · 7e603a8
1 parent 012616d
commit 7e603a8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/collectors.lisp b/collectors.lisp
@@ -42,7 +42,7 @@
             (t  (princ-to-string delimiter))))
     (flet ((p (item)
              (let ((item (typecase item
-                           (string item)
+                           ((or null string) item)
                            (T (princ-to-string item)))))
                (when (or print-empty? (and item (plusp (length item))))
                  (when (and printed? delimiter) (write-sequence delimiter s))