X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefbangstruct.lisp;h=bcde0b550fb4e494bb05235278398af880c481eb;hb=0f2ae6ebc3520494b665a9dbf32c36c671334d36;hp=7a8d3aef938f4f2093d50f7c25facad6628f1ed3;hpb=d202a453b45430e04671b966c01bc067c2667442;p=sbcl.git

diff --git a/src/code/defbangstruct.lisp b/src/code/defbangstruct.lisp
index 7a8d3ae..bcde0b5 100644
--- 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))