From b91d0975a978d68f995581e8fb0cc404934bac9b Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 11 Feb 1991 16:14:12 +0000 Subject: [PATCH] Fixed syntax lossage in defallocators use. --- compiler/alloc.lisp | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) diff --git a/compiler/alloc.lisp b/compiler/alloc.lisp index 7c279f4ba..a76937cb6 100644 --- a/compiler/alloc.lisp +++ b/compiler/alloc.lisp @@ -120,7 +120,7 @@ (setf (continuation-%type-check structure) t)) ((setf (continuation-info structure) nil) (setf (continuation-dest structure) dest))) - + ((block (start)) block-next ((setf (block-pred structure) nil) (setf (block-succ structure) nil) @@ -149,7 +149,7 @@ (setf (node-derived-type structure) derived-type) (setf (ref-leaf structure) leaf) (setf (ref-inlinep structure) inlinep))) - + ((combination (fun)) node-source-path ((node-deinits) (setf (basic-combination-fun structure) *undefined*) @@ -180,7 +180,7 @@ (setf (ir2-block-locations structure) nil)) ((setf (ir2-block-next structure) nil) (setf (ir2-block-block structure) block))) - + ((vop (block node info args results)) vop-next ((setf (vop-block structure) *undefined*) (setf (vop-prev structure) nil) @@ -197,7 +197,7 @@ (setf (vop-info structure) info) (setf (vop-args structure) args) (setf (vop-results structure) results))) - + ((tn-ref (tn write-p)) tn-ref-next ((setf (tn-ref-tn structure) *undefined*) (setf (tn-ref-vop structure) nil) @@ -208,7 +208,7 @@ ((setf (tn-ref-next structure) nil) (setf (tn-ref-tn structure) tn) (setf (tn-ref-write-p structure) write-p))) - + ((tn (number kind primitive-type sc)) tn-next ((setf (tn-leaf structure) nil) (setf (tn-reads structure) nil) @@ -230,12 +230,12 @@ (setf (tn-offset structure) nil) (setf (tn-environment structure) nil) (setf (tn-cost structure) 0)) - ((setf (tn-next structure) nil) - (setf (tn-number structure) number) - (setf (tn-kind structure) kind) - (setf (tn-primitive-type structure) primitive-type) - (setf (tn-sc structure) sc))) - + ((setf (tn-next structure) nil) + (setf (tn-number structure) number) + (setf (tn-kind structure) kind) + (setf (tn-primitive-type structure) primitive-type) + (setf (tn-sc structure) sc))) + ((global-conflicts (kind tn block number)) global-conflicts-next ((setf (global-conflicts-block structure) *undefined*) (clear-bit-vector (global-conflicts-conflicts structure)) @@ -246,15 +246,15 @@ (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)) + + ((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 (,slot structure) ,slot)) + assem::instruction-slot-order)))) ;;; NUKE-IR2-COMPONENT -- Interface -- GitLab