Commit cd5e3034 authored by wlott's avatar wlott
Browse files

Transform %slot-addr of a pointer to a struct to %slot-addr of deref of

that pointer.  Were already doing this for slot and %set-slot.
parent 15e4425f
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/aliencomp.lisp,v 1.15 1992/02/14 23:47:03 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/aliencomp.lisp,v 1.16 1992/02/16 19:40:21 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -93,6 +93,10 @@
((alien (* t)) symbol t))
'(%set-slot (deref object) slot value))
(deftransform %slot-addr ((object slot)
((alien (* t)) symbol))
'(%slot-addr (deref object) slot))
;;;; SLOT support
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment