From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Sun, 28 Feb 2010 19:40:40 +0000 (+0000)
Subject: 1.0.36.7: fix SB-C::CLASS-INFO printing
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=46fd9f6ef6d5b7c1848984c009875b7d39a593ef;p=sbcl.git

1.0.36.7: fix SB-C::CLASS-INFO printing

 Launchpad bug #514762
---

diff --git a/NEWS b/NEWS
index 3a4401a..ea92d44 100644
--- a/NEWS
+++ b/NEWS
@@ -14,6 +14,7 @@ changes relative to sbcl-1.0.36:
     functions. (lp#524707)
   * bug fix: bogus style warnings from certain (SETF SLOT-VALUE) and
     WITH-SLOTS usages during compilation.
+  * bug fix: SB-C::CLASS-INFO now prints correctly (lp#514762)
 
 changes in sbcl-1.0.36 relative to sbcl-1.0.35:
   * new feature: SB-EXT:TYPEXPAND-1, SB-EXT:TYPEXPAND, and
diff --git a/src/compiler/globaldb.lisp b/src/compiler/globaldb.lisp
index 6f0bc7a..69c579c 100644
--- a/src/compiler/globaldb.lisp
+++ b/src/compiler/globaldb.lisp
@@ -118,7 +118,7 @@
             #-no-ansi-print-object
             (:print-object (lambda (x s)
                              (print-unreadable-object (x s :type t)
-                               (prin1 (class-info-name x)))))
+                               (prin1 (class-info-name x) s))))
             (:copier nil))
   ;; name of this class
   (name nil :type keyword :read-only t)
diff --git a/version.lisp-expr b/version.lisp-expr
index f19e997..2389d11 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.36.6"
+"1.0.36.7"