X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdescribe.lisp;h=50f45ac0780277d53d6073b812b73bdc5fc8a808;hb=cee8ef591040db9a79cdd19297867672a9529051;hp=77f3c361392fc593fe1ab2a01540c0c96066a315;hpb=dfc9c3a9dde3ae21498ac1a184a6e56fd4e79eb0;p=sbcl.git

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index 77f3c36..50f45ac 100644
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -616,7 +616,7 @@
                                            (:declared :declared)
                                            ;; This is hopefully clearer to users
                                            ((:defined-method :defined) :derived))))))
-                       (if (typep fun 'generic-function)
+                       (if (typep fun 'standard-generic-function)
                            (values fun
                                    "a generic function"
                                    (sb-mop:generic-function-lambda-list fun)