From 46fd9f6ef6d5b7c1848984c009875b7d39a593ef Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Sun, 28 Feb 2010 19:40:40 +0000 Subject: [PATCH] 1.0.36.7: fix SB-C::CLASS-INFO printing Launchpad bug #514762 --- NEWS | 1 + src/compiler/globaldb.lisp | 2 +- version.lisp-expr | 2 +- 3 files changed, 3 insertions(+), 2 deletions(-) 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" -- 1.7.10.4