Skip to content
Snippets Groups Projects
Commit 3206cfdb authored by rtoy's avatar rtoy
Browse files

Remove the dependency in DESCRIBE-PARTS on PCL. We do this by

checking to see of the 'STANDARD-OBJECT class exists or not before
checking to see if the object is a STANDARD-OBJECT type.
parent 18856064
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/tty-inspect.lisp,v 1.23 2003/05/12 19:46:12 gerd Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/tty-inspect.lisp,v 1.24 2005/12/06 15:06:28 rtoy Rel $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -146,18 +146,25 @@ ...@@ -146,18 +146,25 @@
;;;; DESCRIBE-PARTS ;;;; DESCRIBE-PARTS
(defun describe-parts (object) (defun describe-parts (object)
(typecase object (cond ((typep object 'symbol)
(symbol (describe-symbol-parts object)) (describe-symbol-parts object))
(standard-object (describe-standard-object-parts object)) ((and (kernel::find-class 'standard-object nil)
(instance (describe-instance-parts object :structure)) (typep object 'standard-object))
(function (describe-standard-object-parts object))
(if (kernel:funcallable-instance-p object) ((typep object 'instance)
(describe-instance-parts object :funcallable-instance) (describe-instance-parts object :structure))
(describe-function-parts object))) ((typep object 'function)
(vector (describe-vector-parts object)) (if (kernel:funcallable-instance-p object)
(array (describe-array-parts object)) (describe-instance-parts object :funcallable-instance)
(cons (describe-cons-parts object)) (describe-function-parts object)))
(t (describe-atomic-parts object)))) ((typep object 'vector)
(describe-vector-parts object))
((typep object 'array)
(describe-array-parts object))
((typep object 'cons)
(describe-cons-parts object))
(t
(describe-atomic-parts object))))
(defun describe-symbol-parts (object) (defun describe-symbol-parts (object)
(list (format nil "~s is a symbol.~%" object) t (list (format nil "~s is a symbol.~%" object) t
......
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