0.8.3.3:

[sbcl.git] / src / code / typedefs.lisp

diff --git a/src/code/typedefs.lisp b/src/code/typedefs.lisp
index 45b9104..2317930 100644 (file)
--- a/src/code/typedefs.lisp
+++ b/src/code/typedefs.lisp
@@ -43,7 +43,8 @@
       (if (eq '&whole (car arglist))
          (values (cadr arglist) (cddr arglist))
          (values (gensym) arglist))
-    (multiple-value-bind (forms decls) (parse-body body nil)
+    (multiple-value-bind (forms decls)
+       (parse-body body :doc-string-allowed nil)
       `(progn
         (!cold-init-forms
          (setf (info :type :translator ',name)