Skip to content
Snippets Groups Projects
Commit c6ac5a48 authored by ram's avatar ram
Browse files

Fixed way broken INSPECT-CLOS-PANE according to patch from Marco Antoniotti.

parent f48a9558
No related branches found
No related tags found
No related merge requests found
...@@ -517,24 +517,29 @@ ...@@ -517,24 +517,29 @@
:right-attachment :attach-form :right-attachment :attach-form
:top-attachment :attach-form :top-attachment :attach-form
:bottom-attachment :attach-form)) :bottom-attachment :attach-form))
instance-slots class-slots other-slots) (instance-slots ())
(class-slots ())
(other-slots ()))
(dolist (slotd slotds) (dolist (slotd slotds)
(with-slots ((slot pcl::name) (allocation pcl::allocation)) (with-slots ((slot pcl::name) (allocation pcl::allocation))
slotd slotd
(case allocation (case allocation
(:instance (push slotd instance-slots)) (:instance (push slotd instance-slots))
(:class (push slotd class-slots)) (:class (push slotd class-slots))
(otherwise (push slotd other-slots)))) (otherwise (push slotd other-slots)))))
(when instance-slots
(show-slot-list object instance-slots view t (when instance-slots
"Slots with Instance allocation:")) (show-slot-list object instance-slots view t
(when class-slots "Slots with Instance allocation:"))
(show-slot-list object class-slots view t (when class-slots
"Slots with Class allocation:")) (show-slot-list object class-slots view t
(when other-slots "Slots with Class allocation:"))
(show-slot-list object other-slots view nil (when other-slots
"Slots with Other allocation:")))))) (show-slot-list object other-slots view nil
"Slots with Other allocation:"))
(when view (manage-child view)))))
......
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