Use sb!ext:print-symbol-with-prefix in implicit-generic-function-warn…

…ing.

 and export this useful function from sb-exr.

 Slight mangling by Paul Khuong.

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

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"

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)
  ())