about summary refs log tree commit diff
path: root/web/panettone
diff options
context:
space:
mode:
Diffstat (limited to 'web/panettone')
-rw-r--r--web/panettone/src/panettone.lisp6
1 files changed, 3 insertions, 3 deletions
diff --git a/web/panettone/src/panettone.lisp b/web/panettone/src/panettone.lisp
index c43934a20bb9..4f704ebc2430 100644
--- a/web/panettone/src/panettone.lisp
+++ b/web/panettone/src/panettone.lisp
@@ -46,9 +46,9 @@
   (let ((in (make-hash-table))
         (comment-table (make-hash-table)))
     (dolist (comment comments)
-      (check-type comment model:issue-comment)
-      (setf (gethash (id comment) in) (body comment))
-      (setf (gethash (id comment) comment-table) comment))
+      (when (typep comment 'model:issue-comment)
+        (setf (gethash (id comment) in) (body comment))
+        (setf (gethash (id comment) comment-table) comment)))
     (let ((res (render-markdown in)))
       (iter (for (comment-id markdown-body) in-hashtable res)
         (let ((comment-id (parse-integer (symbol-name comment-id))))