From: Cyrus Harmon <ch-github@bobobeach.com>
Date: Mon, 21 May 2012 06:22:24 +0000 (-0700)
Subject: implicit generic function warning improvement
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=02313fc9ceecedacefc2e2a13c5c67a2ca9a57e8;p=sbcl.git

implicit generic function warning improvement

 the warning now prints out the package of the symbol that corresponds
 to the newly created generic function.
---

diff --git a/NEWS b/NEWS
index a3a9a69..283e979 100644
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,7 @@
 ;;;; -*- coding: utf-8; fill-column: 78 -*-
 changes relative to sbcl-1.0.57:
+  * enchancement: implicit generic function warnings now specify the package
+    in which the new generic function is being created.
   * enhancement: SB-EXT:ATOMIC-UPDATE makes it easy to perform non-destructive
     updates of CAS-able places (similar to Clojure's swap!).
   * bug fix: potential for infinite recursion during compilation of CLOS slot
diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 144062f..08f2f99 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
@@ -1005,8 +1005,9 @@
   ((name :initarg :name :reader implicit-generic-function-name))
   (:report
    (lambda (condition stream)
-     (format stream "~@<Implicitly creating new generic function ~S.~:@>"
-             (implicit-generic-function-name condition)))))
+     (let ((*package* (find-package :keyword)))
+       (format stream "~@<Implicitly creating new generic function ~S.~:@>"
+               (implicit-generic-function-name condition))))))
 
 (define-condition extension-failure (reference-condition simple-error)
   ())