From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Fri, 1 Sep 2006 16:08:31 +0000 (+0000)
Subject: 0.9.16.12:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=8f0911fddbd90ba2995c1d7ea0ff9616e3f24a11;p=sbcl.git

0.9.16.12:
	Whoops.  Commit extremely late printing code for
	reference-condition with reference :amop :function ... (used in
	unset funcallable-instance functions).  Also include
	:amop :reader, as yet unused.
---

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 253b76f..705d945 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -835,10 +835,13 @@
      (format stream ", ")
      (destructuring-bind (type data) (cdr reference)
        (ecase type
+         (:readers "Readers for ~:(~A~) Metaobjects"
+                   (substitute #\  #\- (symbol-name data)))
          (:initialization
           (format stream "Initialization of ~:(~A~) Metaobjects"
                   (substitute #\  #\- (symbol-name data))))
          (:generic-function (format stream "Generic Function ~S" data))
+         (:function (format stream "Function ~S" data))
          (:section (format stream "Section ~{~D~^.~}" data)))))
     (:ansi-cl
      (format stream "The ANSI Standard")
diff --git a/version.lisp-expr b/version.lisp-expr
index 6e9fa42..c0acd76 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".)
-"0.9.16.11"
+"0.9.16.12"