0.8.11.2:

[sbcl.git] / src / code / condition.lisp

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 0ab79c7..f8e70f3 100644 (file)
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -908,6 +908,7 @@
 ;;; (:ansi-cl :glossary "similar")
 ;;;
 ;;; (:sbcl :node "...")
+;;; (:sbcl :variable *ed-functions*)
 ;;;
 ;;; FIXME: this is not the right place for this.
 (defun print-reference (reference stream)
@@ -927,7 +928,8 @@
      (format stream ", ")
      (destructuring-bind (type data) (cdr reference)
        (ecase type
-        (:node (format stream "Node ~S" data)))))
+        (:node (format stream "Node ~S" data))
+        (:variable (format stream "Variable ~S" data)))))
     ;; FIXME: other documents (e.g. AMOP, Franz documentation :-)
     ))
 (define-condition reference-condition ()
@@ -1003,6 +1005,9 @@
 (define-condition format-too-many-args-warning
     (format-args-mismatch simple-style-warning)
   ())
+
+(define-condition extension-failure (reference-condition simple-error)
+  ())
 \f
 ;;;; restart definitions