From ca1c7446049a2d447fc5e133e6c89f6cc37661d0 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Sat, 4 Dec 1999 16:06:08 +0000
Subject: [PATCH] Minor formatting fixes.

---
 compiler/x86/nlx.lisp   | 4 ++--
 compiler/x86/print.lisp | 5 ++---
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/compiler/x86/nlx.lisp b/compiler/x86/nlx.lisp
index 8a716e281..bd9266d5f 100644
--- a/compiler/x86/nlx.lisp
+++ b/compiler/x86/nlx.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/x86/nlx.lisp,v 1.12 1998/06/16 18:20:44 pw Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/nlx.lisp,v 1.13 1999/12/04 16:06:08 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -152,7 +152,7 @@
     (store-symbol-value block lisp::*current-catch-block*)))
 
 (define-vop (unlink-unwind-protect)
-    (:temporary (:sc unsigned-reg) block)
+  (:temporary (:sc unsigned-reg) block)
   (:policy :fast-safe)
   (:translate %unwind-protect-breakup)
   (:generator 17
diff --git a/compiler/x86/print.lisp b/compiler/x86/print.lisp
index 35a9266d3..899a5b5d5 100644
--- a/compiler/x86/print.lisp
+++ b/compiler/x86/print.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/x86/print.lisp,v 1.3 1998/02/19 19:35:03 dtc Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/print.lisp,v 1.4 1999/12/04 16:06:08 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -22,8 +22,7 @@
 (define-vop (print)
   (:args (object :scs (descriptor-reg any-reg)))
   (:temporary (:sc unsigned-reg :offset eax-offset :target result
-		   :from :eval :to (:result 0))
-	      eax)
+		   :from :eval :to :result) eax)
   (:results (result :scs (descriptor-reg)))
   (:save-p t)
   (:generator 100
-- 
GitLab