/[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.41 by heller, Sun Nov 19 21:33:03 2006 UTC revision 1.42 by heller, Thu Aug 23 19:03:37 2007 UTC
# Line 10  Line 10 
10    
11  (in-package :swank-backend)  (in-package :swank-backend)
12    
   
13  (eval-when (:compile-toplevel :load-toplevel :execute)  (eval-when (:compile-toplevel :load-toplevel :execute)
14    (require :collect) ;just so that it doesn't spoil the flying letters    (require :collect) ;just so that it doesn't spoil the flying letters
15    (require :pprint))    (require :pprint))
# Line 392  part of *sysdep-pathnames* in swank.load Line 391  part of *sysdep-pathnames* in swank.load
391    
392  ;;;; Inspecting  ;;;; Inspecting
393    
394  (defclass abcl-inspector (inspector)  (defclass abcl-inspector (backend-inspector) ())
   ())  
395    
396  (defimplementation make-default-inspector ()  (defimplementation make-default-inspector ()
397    (make-instance 'abcl-inspector))    (make-instance 'abcl-inspector))
398    
399  (defmethod inspect-for-emacs ((slot mop::slot-definition) (inspector abcl-inspector))  (defmethod inspect-for-emacs ((slot mop::slot-definition)
400                                  (inspector backend-inspector))
401    (declare (ignore inspector))    (declare (ignore inspector))
402    (values "A slot."    (values "A slot."
403            `("Name: " (:value ,(mop::%slot-definition-name slot))            `("Name: " (:value ,(mop::%slot-definition-name slot))
# Line 414  part of *sysdep-pathnames* in swank.load Line 413  part of *sysdep-pathnames* in swank.load
413              "  Function: " (:value ,(mop::%slot-definition-initfunction slot))              "  Function: " (:value ,(mop::%slot-definition-initfunction slot))
414              (:newline))))              (:newline))))
415    
416  (defmethod inspect-for-emacs ((f function) (inspector abcl-inspector))  (defmethod inspect-for-emacs ((f function) (inspector backend-inspector))
417    (declare (ignore inspector))    (declare (ignore inspector))
418    (values "A function."    (values "A function."
419            `(,@(when (function-name f)            `(,@(when (function-name f)
# Line 432  part of *sysdep-pathnames* in swank.load Line 431  part of *sysdep-pathnames* in swank.load
431    
432  #|  #|
433    
434  (defmethod inspect-for-emacs ((o t) (inspector abcl-inspector))  (defmethod inspect-for-emacs ((o t) (inspector backend-inspector))
435    (let* ((class (class-of o))    (let* ((class (class-of o))
436           (slots (mop::class-slots class)))           (slots (mop::class-slots class)))
437      (values (format nil "~A~%   is a ~A" o class)      (values (format nil "~A~%   is a ~A" o class)

Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42

  ViewVC Help
Powered by ViewVC 1.1.5