From c7313d05a13ee2dbaa5e345cdcbdd51d053f49c8 Mon Sep 17 00:00:00 2001
From: Attila Lendvai <attila.lendvai@gmail.com>
Date: Sun, 2 Jan 2011 16:42:15 +0100
Subject: [PATCH] Use sb!ext:print-symbol-with-prefix in
 implicit-generic-function-warning.

 and export this useful function from sb-exr.

 Slight mangling by Paul Khuong.
---
 NEWS                        |    2 ++
 package-data-list.lisp-expr |    1 +
 src/code/condition.lisp     |    8 ++++----
 3 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/NEWS b/NEWS
index 6d75cdf..6ac9c92 100644
--- a/NEWS
+++ b/NEWS
@@ -3,6 +3,8 @@ changes relative to sbcl-1.1.8:
   * enhancement: disassemble now annotates some previously missing static
     functions, like LENGTH.
   * enhancement: clean.sh now also cleans doc/internals.
+  * enhancement: SB-EXT:PRINT-SYMBOL-WITH-PREFIX can be used within ~// to
+    print a symbol with a package prefix.
   * optimization: calls to static functions on x86-64 use less instructions.
   * optimization: compute encode-universal-time at compile time when possible.
   * optimization: when referencing internal functions as #'x, don't go through
diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index f769209..d0ced09 100644
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
@@ -824,6 +824,7 @@ like *STACK-TOP-HINT* and unsupported stuff like *TRACED-FUN-LIST*."
                "DELETE-DIRECTORY"
                "SET-SBCL-SOURCE-LOCATION"
                "*DISASSEMBLE-ANNOTATE*"
+               "PRINT-SYMBOL-WITH-PREFIX"
 
                ;; stepping interface
                "STEP-CONDITION" "STEP-FORM-CONDITION" "STEP-FINISHED-CONDITION"
diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 81a0ce7..a168d1a 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -697,7 +697,7 @@
   (:report
    (lambda (condition stream)
      (format stream
-             "The function ~/sb-impl::print-symbol-with-prefix/ is undefined."
+             "The function ~/sb!ext:print-symbol-with-prefix/ is undefined."
              (cell-error-name condition)))))
 
 (define-condition special-form-function (undefined-function) ()
@@ -977,9 +977,9 @@
   ((name :initarg :name :reader implicit-generic-function-name))
   (:report
    (lambda (condition stream)
-     (let ((*package* (find-package :keyword)))
-       (format stream "~@<Implicitly creating new generic function ~S.~:@>"
-               (implicit-generic-function-name condition))))))
+     (format stream "~@<Implicitly creating new generic function ~
+                     ~/sb-impl::print-symbol-with-prefix/.~:@>"
+             (implicit-generic-function-name condition)))))
 
 (define-condition extension-failure (reference-condition simple-error)
   ())
-- 
1.7.10.4