Skip to content
Snippets Groups Projects
Commit a6eb953a authored by wlott's avatar wlott
Browse files

Changed set-symbol-function to :translate %set-symbol-function instead of

%sp-set-definition.
parent 8fad3407
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/cell.lisp,v 1.8 1992/02/25 07:03:45 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/cell.lisp,v 1.9 1992/02/26 00:15:12 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -183,7 +183,7 @@
(define-vop (set-symbol-function)
(:translate %sp-set-definition)
(:translate %set-symbol-function)
(:policy :fast-safe)
(:args (symbol :scs (descriptor-reg))
(function :scs (descriptor-reg) :target result))
......
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