From 02313fc9ceecedacefc2e2a13c5c67a2ca9a57e8 Mon Sep 17 00:00:00 2001 From: Cyrus Harmon Date: Sun, 20 May 2012 23:22:24 -0700 Subject: [PATCH 1/1] implicit generic function warning improvement the warning now prints out the package of the symbol that corresponds to the newly created generic function. --- NEWS | 2 ++ src/code/condition.lisp | 5 +++-- 2 files changed, 5 insertions(+), 2 deletions(-) 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 "~@" - (implicit-generic-function-name condition))))) + (let ((*package* (find-package :keyword))) + (format stream "~@" + (implicit-generic-function-name condition)))))) (define-condition extension-failure (reference-condition simple-error) ()) -- 1.7.10.4