diff --git a/interface/inspect.lisp b/interface/inspect.lisp index 11838a4b8c0c1106e319374d5cc6dc5c6ac9a0bb..d8673ccf1a94f04664d09867d26386c2a8134a51 100644 --- a/interface/inspect.lisp +++ b/interface/inspect.lisp @@ -517,24 +517,29 @@ :right-attachment :attach-form :top-attachment :attach-form :bottom-attachment :attach-form)) - instance-slots class-slots other-slots) - + (instance-slots ()) + (class-slots ()) + (other-slots ())) + (dolist (slotd slotds) (with-slots ((slot pcl::name) (allocation pcl::allocation)) - slotd + slotd (case allocation (:instance (push slotd instance-slots)) (:class (push slotd class-slots)) - (otherwise (push slotd other-slots)))) - (when instance-slots - (show-slot-list object instance-slots view t - "Slots with Instance allocation:")) - (when class-slots - (show-slot-list object class-slots view t - "Slots with Class allocation:")) - (when other-slots - (show-slot-list object other-slots view nil - "Slots with Other allocation:")))))) + (otherwise (push slotd other-slots))))) + + (when instance-slots + (show-slot-list object instance-slots view t + "Slots with Instance allocation:")) + (when class-slots + (show-slot-list object class-slots view t + "Slots with Class allocation:")) + (when other-slots + (show-slot-list object other-slots view nil + "Slots with Other allocation:")) + + (when view (manage-child view)))))