diff --git a/compiler/alloc.lisp b/compiler/alloc.lisp index bb9915ed8d93f33ba80e64189d8709a2386c2904..73699e1e0c70fe4a045a7804095f9e6bc6f84361 100644 --- a/compiler/alloc.lisp +++ b/compiler/alloc.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alloc.lisp,v 1.8 1991/02/20 14:56:27 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alloc.lisp,v 1.9 1992/08/03 08:18:29 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -249,16 +249,7 @@ (setf (global-conflicts-kind structure) kind) (setf (global-conflicts-tn structure) tn) (setf (global-conflicts-block structure) block) - (setf (global-conflicts-number structure) number))) - - ((instruction (prev info . #.assem::instruction-slot-order)) assem::node-prev - ((setf (assem::node-next structure) nil)) - ((setf (assem::node-vop structure) assem::*current-vop*) - (setf (assem::node-prev structure) prev) - (setf (assem::instruction-info structure) info) - . #.(mapcar #'(lambda (slot) - `(setf (,slot structure) ,slot)) - assem::instruction-slot-order)))) + (setf (global-conflicts-number structure) number)))) ;;; NUKE-IR2-COMPONENT -- Interface