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