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.

diff --git a/NEWS b/NEWS
index 6d75cdf..6ac9c92 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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)
   ())