Skip to content
Snippets Groups Projects
Commit 7b851d9b authored by wlott's avatar wlott
Browse files

Fixed describe-instance-parts to not flame out when handed instances that

don't happen to be defstruct structures.
parent 691ed503
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/tty-inspect.lisp,v 1.13 1993/05/29 07:01:10 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/tty-inspect.lisp,v 1.14 1993/06/02 13:21:25 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -171,14 +171,15 @@
(cons "Package" (symbol-package object))))
(defun describe-instance-parts (object kind)
(let ((dd-slots (dd-slots (layout-info (kernel:layout-of object))))
(let ((info (layout-info (kernel:layout-of object)))
(parts-list ()))
(push (format nil "~s is a ~(~A~).~%" object kind) parts-list)
(push t parts-list)
(dolist (dd-slot dd-slots (nreverse parts-list))
(push (cons (dsd-%name dd-slot)
(funcall (dsd-accessor dd-slot) object))
parts-list))))
(when (kernel::defstruct-description-p info)
(dolist (dd-slot (dd-slots info) (nreverse parts-list))
(push (cons (dsd-%name dd-slot)
(funcall (dsd-accessor dd-slot) object))
parts-list)))))
(defun describe-function-parts (object)
(let* ((type (kernel:get-type object))
......
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