From c6ac5a483c73f4cbb9d21541676ed6997683b9b7 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 30 Sep 1994 23:50:57 +0000 Subject: [PATCH] Fixed way broken INSPECT-CLOS-PANE according to patch from Marco Antoniotti. --- interface/inspect.lisp | 31 ++++++++++++++++++------------- 1 file changed, 18 insertions(+), 13 deletions(-) diff --git a/interface/inspect.lisp b/interface/inspect.lisp index 11838a4b8..d8673ccf1 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))))) -- GitLab