Skip to content
Snippets Groups Projects
Commit 526f531a authored by dtc's avatar dtc
Browse files

o Fix for slot-accessor-form; the raw data form was not correctly

  evaluating the 'object argument.
parent 6e9dfee8
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.70 1999/12/03 16:24:57 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.71 2001/01/06 05:21:38 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -999,7 +999,7 @@ ...@@ -999,7 +999,7 @@
(data) (data)
(t (t
`(truly-the (simple-array (unsigned-byte 32) (*)) `(truly-the (simple-array (unsigned-byte 32) (*))
(%instance-ref object ,(dd-raw-index defstruct)))))))) (%instance-ref ,object ,(dd-raw-index defstruct))))))))
;;; dsd-inherited-p -- Internal ;;; dsd-inherited-p -- Internal
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment