Skip to content
Snippets Groups Projects
Commit 32326db7 authored by ram's avatar ram
Browse files

New structure hax.

parent d994238b
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.45 1992/12/13 15:12:24 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir2tran.lisp,v 1.45.1.1 1993/02/08 22:10:15 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -21,7 +21,7 @@ ...@@ -21,7 +21,7 @@
(export '(%caller-frame-and-pc)) (export '(%caller-frame-and-pc))
(in-package "C") (in-package "C")
(export '(safe-fdefn-function return-single)) (export '(safe-fdefn-function return-single instance-ref instance-set))
...@@ -1600,7 +1600,7 @@ ...@@ -1600,7 +1600,7 @@
(res (continuation-result-tns cont (res (continuation-result-tns cont
(list (backend-any-primitive-type (list (backend-any-primitive-type
*backend*))))) *backend*)))))
(vop structure-ref node block (vop instance-ref node block
(continuation-tn node block str) (continuation-tn node block str)
(dsd-index (dsd-index
(slot-accessor-slot (slot-accessor-slot
...@@ -1612,7 +1612,7 @@ ...@@ -1612,7 +1612,7 @@
(defoptimizer (%slot-setter ir2-convert) ((value str) node block) (defoptimizer (%slot-setter ir2-convert) ((value str) node block)
(let ((val (continuation-tn node block value))) (let ((val (continuation-tn node block value)))
(vop structure-set node block (vop instance-set node block
(continuation-tn node block str) (continuation-tn node block str)
val val
(dsd-index (dsd-index
......
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