Remove duplicate implementations of (setf aref/sbit/bit).

[sbcl.git] / src / code / describe.lisp

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index 77f3c36..50f45ac 100644 (file)
--- 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)