X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/d018d6d87c7a2c3458348f775319b6f9c4a88380..54ea6ee880f52c23279bf58262ca245b531d04b0:/src/module-output.lisp

diff --git a/src/module-output.lisp b/src/module-output.lisp
index f9eb3a4..7895176 100644
--- a/src/module-output.lisp
+++ b/src/module-output.lisp
@@ -114,12 +114,13 @@
   (when (eq reason (code-fragment-reason frag))
     (dolist (constraint (code-fragment-constraints frag))
       (add-sequencer-constraint sequencer constraint))
-    (add-sequencer-item-function sequencer (code-fragment-name frag)
-				 (lambda (stream)
-				   (write (code-fragment frag)
-					  :stream stream
-					  :pretty nil
-					  :escape nil)))))
+    (awhen (code-fragment-name frag)
+      (add-sequencer-item-function sequencer it
+				   (lambda (stream)
+				     (write (code-fragment frag)
+					    :stream stream
+					    :pretty nil
+					    :escape nil))))))
 
 (defmethod hook-output progn ((module module) (reason (eql :h)) sequencer)
   (sequence-output (stream sequencer)