Update of /cvsroot/sbcl/sbcl/src/pcl
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv15557/src/pcl
Modified Files:
methods.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: methods.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/methods.lisp,v
retrieving revision 1.77
retrieving revision 1.78
diff -u -d -r1.77 -r1.78
--- methods.lisp 8 Sep 2007 15:15:45 -0000 1.77
+++ methods.lisp 19 Dec 2007 16:10:12 -0000 1.78
@@ -220,8 +220,7 @@
specializers lambda-list &rest other-initargs)
(unless (and (fboundp generic-function-name)
(typep (fdefinition generic-function-name) 'generic-function))
- (style-warn "implicitly creating new generic function ~S"
- generic-function-name))
+ (warn 'implicit-generic-function-warning :name generic-function-name))
(let* ((existing-gf (find-generic-function generic-function-name nil))
(generic-function
(if existing-gf
|