Fix a bug where an unbound desc. slot in an image instance would prod…

…uce alt='NIL'
CommonDoc · Apr 29, 2015 · 612d0ad · 612d0ad
1 parent 107488f
commit 612d0ad
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/emitter.lisp b/src/emitter.lisp
@@ -140,9 +140,10 @@
                                (concatenate 'string *image-base-url* source)
                                source))))
       (with-tag ("img" image
-                       :attributes (list src
-                                         (cons "alt" (description image))
-                                         (cons "title" (description image)))
+                       :attributes (append (list src)
+                                           (aif (description image)
+                                                (list (cons "alt" it)
+                                                      (cons "title" it))))
                        :self-closing-p t)))))
 
 (define-emitter (fig figure)