Changeset 12724

Timestamp:

Aug 31, 2009, 6:56:01 AM (15 years ago)

Author:

Glen Foy

Message:

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

File:

• trunk/source/contrib/foy/hemlock-commands-cm/hemlock-commands-new.lisp (modified) (2 diffs)

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

@@ -5 +5 @@
 ;;;      hemlock-commands-new.lisp
 ;;;
-;;;      copyright © 2009 Glen Foy
+;;;      copyright ￜ 2009 Glen Foy
 ;;;      (Permission is granted to Clozure Associates to distribute this file.)
 ;;;
@@ -95 +95 @@
           (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