X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefbangstruct.lisp;h=ead055ed4a0c185cfe9128ad627bd28f7c33fe42;hb=e27303999070c06c788a0e1359ee4b0900186aa1;hp=7516e290814a1e0a11d89e0d03c885180f3deef6;hpb=0dcc957ae6bf24809fda82fd59c134e70058c42a;p=sbcl.git

diff --git a/src/code/defbangstruct.lisp b/src/code/defbangstruct.lisp
index 7516e29..ead055e 100644
--- a/src/code/defbangstruct.lisp
+++ b/src/code/defbangstruct.lisp
@@ -156,9 +156,9 @@
 	  layout
 	  (let* ((dd (layout-info layout))
 		 (dsd (elt (dd-slots dd) (1- index)))
-		 (accessor (dsd-accessor dsd)))
-	    (declare (type symbol accessor))
-	    (funcall accessor instance)))))
+		 (accessor-name (dsd-accessor-name dsd)))
+	    (declare (type symbol accessor-name))
+	    (funcall accessor-name instance)))))
   (defun %instance-set (instance index new-value)
     (aver (typep instance 'structure!object))
     (let* ((class (sb!xc:find-class (type-of instance)))
@@ -167,9 +167,11 @@
 	  (error "can't set %INSTANCE-REF FOO 0 in cross-compilation host")
 	  (let* ((dd (layout-info layout))
 		 (dsd (elt (dd-slots dd) (1- index)))
-		 (accessor (dsd-accessor dsd)))
-	    (declare (type symbol accessor))
-	    (funcall (fdefinition `(setf ,accessor)) new-value instance))))))
+		 (accessor-name (dsd-accessor-name dsd)))
+	    (declare (type symbol accessor-name))
+	    (funcall (fdefinition `(setf ,accessor-name))
+		     new-value
+		     instance))))))
 
 ;;; a helper function for DEF!STRUCT in the #+SB-XC-HOST case: Return
 ;;; DEFSTRUCT-style arguments with any class names in the SB!XC