X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdescribe.lisp;h=67e45b5474efe8da655a83e73e31f78ac2e01c4a;hb=a160917364f85b38dc0826a5e3dcef87e3c4c62c;hp=47a8af252ede7e679fc5b5d7bd20accbac788f86;hpb=f22ad70037030c07074327cf239bd84dc17b44b6;p=sbcl.git

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index 47a8af2..67e45b5 100644
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -350,9 +350,13 @@
         ((fboundp x)
          (describe-symbol-fdefinition (fdefinition x) s :name x)))
 
+  ;; Describe deftype lambda-list and doc
+  (when (info :type :expander x)
+    (format s "~&DEFTYPE lambda-list: ~A" (info :type :lambda-list x))
+    (%describe-doc x s 'type "Type"))
+
   ;; Print other documentation.
   (%describe-doc x s 'structure "Structure")
-  (%describe-doc x s 'type "Type")
   (%describe-doc x s 'setf "Setf macro")
   (dolist (assoc (info :random-documentation :stuff x))
     (let ((type (car assoc)))