Skip to content
Snippets Groups Projects
Commit 83de0f75 authored by pw's avatar pw
Browse files

From Eric Marsden and Pierre Mai:

Add class info to describe.
parent 0cb98e38
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.34 2000/08/10 10:55:22 dtc Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/describe.lisp,v 1.35 2001/03/14 23:23:48 pw Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -428,6 +428,11 @@
(dolist (assoc (info random-documentation stuff x))
(format t "~&Documentation on the ~(~A~):~%~A" (car assoc) (cdr assoc)))
;;
;; Print Class information
(when (find-class x nil)
(format t "~&It names a class ~A." (find-class x))
(describe (find-class x)))
;;
;; Print out properties, possibly ignoring implementation details.
(do ((plist (symbol-plist X) (cddr plist)))
((null plist) ())
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment