From: Nathan Froyd <froydnj@cs.rice.edu>
Date: Sat, 27 Jan 2007 03:57:20 +0000 (+0000)
Subject: 1.0.2.2:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=ac8531f35f01a970baf80ae9526a3406225a1042;p=sbcl.git

1.0.2.2:
	Delete a few spurious debugging FORMATs.
---

diff --git a/src/compiler/generic/vm-tran.lisp b/src/compiler/generic/vm-tran.lisp
index d616f09..860cb3a 100644
--- a/src/compiler/generic/vm-tran.lisp
+++ b/src/compiler/generic/vm-tran.lisp
@@ -60,7 +60,6 @@
                       (funcall func value (lvar-value offset))))
           (give-up-ir1-transform "constant is too large for inlining"))
         (splice-fun-args index func 2)
-        (format t "preparing to transform with ~A ~D~%" func value)
         `(lambda (thing index off1 off2 ,@(when setter-p
                                             '(value)))
            (,fun-name thing index (,func off2 off1) ,@(when setter-p
diff --git a/src/compiler/x86/macros.lisp b/src/compiler/x86/macros.lisp
index dba9b91..fdf55a2 100644
--- a/src/compiler/x86/macros.lisp
+++ b/src/compiler/x86/macros.lisp
@@ -427,8 +427,6 @@
        (:results (value :scs ,scs))
        (:result-types ,el-type)
        (:generator 3                    ; pw was 5
-         (unless (zerop offset)
-           (format t "Attempting D-F-R-O, offset ~D~%" offset))
          (sc-case index
            (immediate
             (inst mov value (make-ea :dword :base object
diff --git a/version.lisp-expr b/version.lisp-expr
index c77312c..b8c100e 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.2.1"
+"1.0.2.2"