0.7.10.18:

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

diff --git a/src/code/defbangstruct.lisp b/src/code/defbangstruct.lisp
index 7a8d3ae..bcde0b5 100644 (file)
--- a/src/code/defbangstruct.lisp
+++ b/src/code/defbangstruct.lisp
@@ -118,6 +118,7 @@
        (if (consp nameoid)
            (values (first nameoid) (rest nameoid))
            (values nameoid nil))
+      (declare (type list options))
       (let* ((include-clause (find :include options :key #'first))
             (def!struct-supertype nil) ; may change below
             (mlff-clause (find :make-load-form-fun options :key #'first))