X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fstructure-class.lisp;h=a861540ea732a0bb3badb88db91d5492c1d670ea;hb=475c832b081651e66ad9446d4852c62086f5e740;hp=ea9fd06388e81ae69ae523160746327760cda81a;hpb=4aa82530da00c41e2751671ac75eda2d19a173a0;p=sbcl.git

diff --git a/src/pcl/structure-class.lisp b/src/pcl/structure-class.lisp
index ea9fd06..a861540 100644
--- a/src/pcl/structure-class.lisp
+++ b/src/pcl/structure-class.lisp
@@ -129,7 +129,7 @@
     (unless (extract-required-parameters (second constructor))
       (setf (slot-value class 'defstruct-constructor) (car constructor)))
     (when (and defstruct-predicate (not from-defclass-p))
-      (setf (symbol-function pred-name) (symbol-function defstruct-predicate)))
+      (name-set-fdefinition pred-name (symbol-function defstruct-predicate)))
     (unless (or from-defclass-p (slot-value class 'documentation))
       (setf (slot-value class 'documentation)
 	    (format nil "~S structure class made from Defstruct" name)))