aboutsummaryrefslogtreecommitdiff
path: root/formatters.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'formatters.lisp')
-rw-r--r--formatters.lisp8
1 files changed, 6 insertions, 2 deletions
diff --git a/formatters.lisp b/formatters.lisp
index a16ad93..a183b59 100644
--- a/formatters.lisp
+++ b/formatters.lisp
@@ -23,7 +23,9 @@
(escapee-p (lambda (x) (member x escapees :test #'char=))))
(lambda (string)
(unless (stringp string)
- (setq string (format nil "~A" string)))
+ (typecase string
+ (null (setq string ""))
+ (t (setq string (format nil "~A" string)))))
(with-output-to-string (out)
(loop with position = 0
for escapee-pos = (position-if escapee-p string :start position)
@@ -38,7 +40,9 @@
(defun escape-for-uri (string)
(unless (stringp string)
- (setq string (format nil "~A" string)))
+ (typecase string
+ (null (setq string ""))
+ (t (setq string (format nil "~A" string)))))
(with-output-to-string (out)
(map 'list
(lambda (char)