Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv15557/src/code
Modified Files:
condition.lisp
Log Message:
1.0.12.38: style-warning IMPLICIT-GENERIC-FUNCTION-WARNING
* Specific condition to signal when a generic function is implicitly
signalled instead of a SIMPLE-STYLE-WARNING.
Index: condition.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/condition.lisp,v
retrieving revision 1.85
retrieving revision 1.86
diff -u -d -r1.85 -r1.86
--- condition.lisp 26 Oct 2007 12:48:14 -0000 1.85
+++ condition.lisp 19 Dec 2007 16:10:12 -0000 1.86
@@ -968,6 +968,13 @@
(format-args-mismatch simple-style-warning)
())
+(define-condition implicit-generic-function-warning (style-warning)
+ ((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)))))
+
(define-condition extension-failure (reference-condition simple-error)
())
|