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

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index 177d9c4..391aae1 100644
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
@@ -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)