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

Diff of /slime/swank-abcl.lisp

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

revision 1.25 by heller, Sat Apr 9 07:06:35 2005 UTC revision 1.26 by asimon, Sat May 14 09:13:58 2005 UTC
# Line 52  Line 52 
52     cl:method     cl:method
53     cl:standard-class     cl:standard-class
54     ;; standard-class readers     ;; standard-class readers
55     sys::class-default-initargs     mop::class-default-initargs
56     sys::class-direct-default-initargs     mop::class-direct-default-initargs
57     sys::class-direct-slots     mop::class-direct-slots
58     sys::class-direct-subclasses     mop::class-direct-subclasses
59     sys::class-direct-superclasses     mop::class-direct-superclasses
60     sys::eql-specializer     mop::eql-specializer
61     class-finalized-p ;;dummy     class-finalized-p ;;dummy
62     cl:class-name     cl:class-name
63     sys::class-precedence-list     mop::class-precedence-list
64     class-prototype ;;dummy     class-prototype ;;dummy
65     sys::class-slots     mop::class-slots
66     specializer-direct-methods ;;dummy     specializer-direct-methods ;;dummy
67     ;; eql-specializer accessors     ;; eql-specializer accessors
68     sys::eql-specializer-object     mop::eql-specializer-object
69     ;; generic function readers     ;; generic function readers
70     sys::generic-function-argument-precedence-order     mop::generic-function-argument-precedence-order
71     generic-function-declarations ;;dummy     generic-function-declarations ;;dummy
72     sys::generic-function-lambda-list     mop::generic-function-lambda-list
73     sys::generic-function-methods     mop::generic-function-methods
74     sys::generic-function-method-class     mop::generic-function-method-class
75     sys::generic-function-method-combination     mop::generic-function-method-combination
76     sys::generic-function-name     mop::generic-function-name
77     ;; method readers     ;; method readers
78     sys::method-generic-function     mop::method-generic-function
79     sys::method-function     mop::method-function
80     sys::method-lambda-list     mop::method-lambda-list
81     sys::method-specializers     mop::method-specializers
82     sys::method-qualifiers     mop::method-qualifiers
83     ;; slot readers     ;; slot readers
84     sys::slot-definition-allocation     mop::slot-definition-allocation
85     slot-definition-documentation ;;dummy     slot-definition-documentation ;;dummy
86     sys::slot-definition-initargs     mop::slot-definition-initargs
87     sys::slot-definition-initform     mop::slot-definition-initform
88     sys::slot-definition-initfunction     mop::slot-definition-initfunction
89     sys::slot-definition-name     mop::slot-definition-name
90     slot-definition-type ;;dummy     slot-definition-type ;;dummy
91     sys::slot-definition-readers     mop::slot-definition-readers
92     sys::slot-definition-writers))     mop::slot-definition-writers))
93    
94  ;;;; TCP Server  ;;;; TCP Server
95    
# Line 361  part of *sysdep-pathnames* in swank.load Line 361  part of *sysdep-pathnames* in swank.load
361  (defimplementation make-default-inspector ()  (defimplementation make-default-inspector ()
362    (make-instance 'abcl-inspector))    (make-instance 'abcl-inspector))
363    
364  (defmethod inspect-for-emacs ((slot sys::slot-definition) (inspector abcl-inspector))  (defmethod inspect-for-emacs ((slot mop::slot-definition) (inspector abcl-inspector))
365    (declare (ignore inspector))    (declare (ignore inspector))
366    (values "A slot."    (values "A slot."
367            `("Name: " (:value ,(sys::slot-definition-name slot))            `("Name: " (:value ,(mop::slot-definition-name slot))
368              (:newline)              (:newline)
369              "Documentation:" (:newline)              "Documentation:" (:newline)
370              ,@(when (slot-definition-documentation slot)              ,@(when (slot-definition-documentation slot)
371                  `((:value ,(slot-definition-documentation slot)) (:newline)))                  `((:value ,(slot-definition-documentation slot)) (:newline)))
372              "Initialization:" (:newline)              "Initialization:" (:newline)
373              "  Args: " (:value ,(sys::slot-definition-initargs slot)) (:newline)              "  Args: " (:value ,(mop::slot-definition-initargs slot)) (:newline)
374              "  Form: "  ,(if (sys::slot-definition-initfunction slot)              "  Form: "  ,(if (mop::slot-definition-initfunction slot)
375                               `(:value ,(sys::slot-definition-initform slot))                               `(:value ,(mop::slot-definition-initform slot))
376                               "#<unspecified>") (:newline)                               "#<unspecified>") (:newline)
377              "  Function: " (:value ,(sys::slot-definition-initfunction slot))              "  Function: " (:value ,(mop::slot-definition-initfunction slot))
378              (:newline))))              (:newline))))
379    
380  (defmethod inspect-for-emacs ((f function) (inspector abcl-inspector))  (defmethod inspect-for-emacs ((f function) (inspector abcl-inspector))
# Line 397  part of *sysdep-pathnames* in swank.load Line 397  part of *sysdep-pathnames* in swank.load
397    
398  (defimplementation inspect-for-emacs ((o t) (inspector abcl-inspector))  (defimplementation inspect-for-emacs ((o t) (inspector abcl-inspector))
399    (let* ((class (class-of o))    (let* ((class (class-of o))
400           (slots (sys::class-slots class)))           (slots (mop::class-slots class)))
401      (values (format nil "~A~%   is a ~A" o class)      (values (format nil "~A~%   is a ~A" o class)
402              (mapcar (lambda (slot)              (mapcar (lambda (slot)
403                        (let ((name (sys::slot-definition-name slot)))                        (let ((name (mop::slot-definition-name slot)))
404                          (cons (princ-to-string name)                          (cons (princ-to-string name)
405                                (slot-value o name))))                                (slot-value o name))))
406                      slots))))                      slots))))

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

  ViewVC Help
Powered by ViewVC 1.1.5