/[slime]/slime/swank.lisp
ViewVC logotype

Diff of /slime/swank.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.440 by alendvai, Wed Dec 20 14:29:09 2006 UTC revision 1.441 by alendvai, Sun Dec 24 13:38:36 2006 UTC
# Line 4472  See `methods-by-applicability'.") Line 4472  See `methods-by-applicability'.")
4472                "All Slots:" (:newline))                "All Slots:" (:newline))
4473              (let* ((class (class-of object))              (let* ((class (class-of object))
4474                     (direct-slots (swank-mop:class-direct-slots class))                     (direct-slots (swank-mop:class-direct-slots class))
4475                     (effective-slots (swank-mop:class-slots class))                     (effective-slots (sort (swank-mop:class-slots class)
4476                                              #'string< :key #'swank-mop:slot-definition-name))
4477                     (slot-presentations (loop for effective-slot :in effective-slots                     (slot-presentations (loop for effective-slot :in effective-slots
4478                                               collect (inspect-slot-for-emacs                                               collect (inspect-slot-for-emacs
4479                                                        class object effective-slot)))                                                        class object effective-slot)))

Legend:
Removed from v.1.440  
changed lines
  Added in v.1.441

  ViewVC Help
Powered by ViewVC 1.1.5