X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefstruct.lisp;h=391aae10f0ef8c0490cd2acc5ebce6a8eb28df94;hb=1e9966d5f24709d227e20911b4e1ddd27c87a00e;hp=4b0f84da86fe202712ce741cd1c376892115c87d;hpb=f409f90c5e8c4c87ed9fa6efdc0e5c1952d94602;p=sbcl.git

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index 4b0f84d..391aae1 100644
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
@@ -455,7 +455,7 @@
 	  (let ((inherited (accessor-inherited-data name defstruct)))
 	    (cond
 	      ((not inherited)
-	       (stuff `(proclaim '(inline ,name (setf ,name))))
+	       (stuff `(declaim (inline ,name (setf ,name))))
 	       ;; FIXME: The arguments in the next two DEFUNs should
 	       ;; be gensyms. (Otherwise e.g. if NEW-VALUE happened to
 	       ;; be the name of a special variable, things could get
@@ -993,7 +993,7 @@
 
     (let ((predicate-name (dd-predicate-name dd)))
       (when predicate-name
-	(sb!xc:proclaim `(ftype (sfunction (t) t) ,predicate-name))
+	(sb!xc:proclaim `(ftype (sfunction (t) boolean) ,predicate-name))
 	;; Provide inline expansion (or not).
 	(ecase (dd-type dd)
 	  ((structure funcallable-structure)