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 @@ ...@@ -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.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 @@ ...@@ -428,6 +428,11 @@
(dolist (assoc (info random-documentation stuff x)) (dolist (assoc (info random-documentation stuff x))
(format t "~&Documentation on the ~(~A~):~%~A" (car assoc) (cdr assoc))) (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. ;; 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.
Finish editing this message first!
Please register or to comment