X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-grovel%2Fforeign-glue.lisp;h=e07bb59c05436c5d54ad7561ba4f81838f424549;hb=ff92598854bf7cae8d57fe49cef4d9a98e1ab345;hp=c15509f88115e8b0c8fc20a4ff896b8846d33acc;hpb=8b64d57b865fec6ba082dda965146b5e8aa877b3;p=sbcl.git

diff --git a/contrib/sb-grovel/foreign-glue.lisp b/contrib/sb-grovel/foreign-glue.lisp
index c15509f..e07bb59 100644
--- a/contrib/sb-grovel/foreign-glue.lisp
+++ b/contrib/sb-grovel/foreign-glue.lisp
@@ -303,14 +303,14 @@ deeply nested structures."
     (labels ((accessor (root rpath)
 	       (apply #'sane-slot 'struct (mapcar 'name (append (rest rpath) (list root))))))
       `((defun ,(intern accessor-name) (struct)
-	  (declare (type (alien ,struct-name) struct)
+	  (declare (cl:type (alien ,struct-name) struct)
 		   (optimize (speed 3)))
 	  (,(accessor-modifier-for (reintern (type root) (find-package :sb-grovel))
 				   :getter)
 	    ,(accessor root rpath) ,(size root)))
 	(defun (setf ,(intern accessor-name)) (new-val struct)
-	  (declare (type (alien ,struct-name) struct)
-		   (type ,(lisp-type-for (type root) (size root)) new-val)
+	  (declare (cl:type (alien ,struct-name) struct)
+		   (cl:type ,(lisp-type-for (type root) (size root)) new-val)
 		   (optimize (speed 3)))
 	  ,(let* ((accessor-modifier (accessor-modifier-for (reintern (type root)
 								      (find-package :sb-grovel))