Skip to content
Snippets Groups Projects
Commit a0d3af16 authored by toy's avatar toy
Browse files

If a symbol names a type specifier, have DESCRIBE say so.

From Eric Marsden.
parent d30e9c3d
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.35 2001/03/14 23:23:48 pw Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.36 2002/08/20 14:06:13 toy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -433,6 +433,10 @@ ...@@ -433,6 +433,10 @@
(format t "~&It names a class ~A." (find-class x)) (format t "~&It names a class ~A." (find-class x))
(describe (find-class x))) (describe (find-class x)))
;; ;;
;; Print out information about any types named by the symbol
(when (eq (info type kind x) :defined)
(format t "~&It names a type specifier."))
;;
;; Print out properties, possibly ignoring implementation details. ;; Print out properties, possibly ignoring implementation details.
(do ((plist (symbol-plist X) (cddr plist))) (do ((plist (symbol-plist X) (cddr plist)))
((null plist) ()) ((null plist) ())
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment