[Openmcl-cvs-notifications] r12724 - /trunk/source/contrib/foy/hemlock-commands-cm/hemlock-commands-new.lisp

[gfoy at clozure.com]

Author: gfoy
Date: Mon Aug 31 09:56:01 2009
New Revision: 12724

Log:
Use [Class] instead of [Type] for CCL doc.

Modified:
    trunk/source/contrib/foy/hemlock-commands-cm/hemlock-commands-new.lisp

Modified: trunk/source/contrib/foy/hemlock-commands-cm/hemlock-commands-new=
.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/contrib/foy/hemlock-commands-cm/hemlock-commands-new.lisp =
(original)
+++ trunk/source/contrib/foy/hemlock-commands-cm/hemlock-commands-new.lisp =
Mon Aug 31 09:56:01 2009
@@ -4,7 +4,7 @@
 ;;;
 ;;;      hemlock-commands-new.lisp
 ;;;
-;;;      copyright =C2=A9 2009 Glen Foy
+;;;      copyright =C3=AF=C2=BF=C2=BD 2009 Glen Foy
 ;;;      (Permission is granted to Clozure Associates to distribute this f=
ile.)
 ;;;
 ;;;      This code implements a two new Hemlock commands.
@@ -94,6 +94,9 @@
           (setq args (arglist sym))
           (when (macro-function sym) (setq doctype 'macro))
           (when (special-form-p sym) (setq doctype 'special-form)))
+        (when (eq doctype 'type)
+          (when (find-class sym nil)
+            (setq doctype 'class)))
         (open-documentation-dialog
          (if args
            (format nil "~A  ~A" (string-upcase sym) =