diff options
| -rw-r--r-- | web/panettone/src/panettone.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/web/panettone/src/panettone.lisp b/web/panettone/src/panettone.lisp index c43934a20b..4f704ebc24 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)))) |