0.7.6.20:

[sbcl.git] / src / pcl / boot.lisp

diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp
index 6f4177c..3e51cf8 100644 (file)
--- a/src/pcl/boot.lisp
+++ b/src/pcl/boot.lisp
@@ -157,10 +157,7 @@ bootstrapping.
 \f
 (defmacro defgeneric (fun-name lambda-list &body options)
   (declare (type list lambda-list))
-  (unless (legal-fun-name-p fun-name)
-    (error 'simple-program-error
-          :format-control "illegal generic function name ~S"
-          :format-arguments (list fun-name)))
+  (legal-fun-name-or-type-error fun-name)
   (let ((initargs ())
        (methods ()))
     (flet ((duplicate-option (name)