X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-extensions.lisp;h=065f5694c562075dccc16aecd91c82ea2450a674;hb=4b58efcd710097cf7cc9b1a1bed8b0e1bd6eb3b8;hp=81b6f7b046a5bf0285d767fee01697d73b18640e;hpb=77af6d16968262049d6dadfb5521af7a8a7c6868;p=sbcl.git diff --git a/src/code/early-extensions.lisp b/src/code/early-extensions.lisp index 81b6f7b..065f569 100644 --- a/src/code/early-extensions.lisp +++ b/src/code/early-extensions.lisp @@ -370,7 +370,7 @@ ;;; Iterate over the entries in a HASH-TABLE. (defmacro dohash ((key-var value-var table &optional result) &body body) - (multiple-value-bind (forms decls) (parse-body body nil) + (multiple-value-bind (forms decls) (parse-body body :doc-string-allowed nil) (let ((gen (gensym)) (n-more (gensym))) `(with-hash-table-iterator (,gen ,table)