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

Diff of /slime/swank-corman.lisp

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

revision 1.7 by ewiborg, Tue Apr 18 07:47:09 2006 UTC revision 1.8 by heller, Wed Aug 9 17:01:13 2006 UTC
# Line 402  Line 402 
402                collect (funcall callback e)                collect (funcall callback e)
403                collect ", ")))                collect ", ")))
404    
405  (defimplementation inspect-for-emacs ((class standard-class)  (defmethod inspect-for-emacs ((class standard-class)
406                                (inspector corman-inspector))                                (inspector corman-inspector))
407    (declare (ignore inspector))    (declare (ignore inspector))
408    (values "A class."    (values "A class."
# Line 441  Line 441 
441                    '("#<N/A (class not finalized)>"))                    '("#<N/A (class not finalized)>"))
442              (:newline))))              (:newline))))
443    
444  (defimplementation inspect-for-emacs ((slot cons) (inspector corman-inspector))  (defmethod inspect-for-emacs ((slot cons) (inspector corman-inspector))
445    ;; Inspects slot definitions    ;; Inspects slot definitions
446    (declare (ignore corman-inspector))    (declare (ignore corman-inspector))
447    (if (eq (car slot) :name)    (if (eq (car slot) :name)
# Line 460  Line 460 
460                                               (:newline)))                                               (:newline)))
461        (call-next-method)))        (call-next-method)))
462    
463  (defimplementation inspect-for-emacs ((pathname pathnames::pathname-internal)  (defmethod inspect-for-emacs ((pathname pathnames::pathname-internal)
464                                inspector)                                inspector)
465    (declare (ignore inspector))    (declare (ignore inspector))
466    (values (if (wild-pathname-p pathname)    (values (if (wild-pathname-p pathname)
# Line 478  Line 478 
478                                (not (probe-file pathname)))                                (not (probe-file pathname)))
479                      (label-value-line "Truename" (truename pathname))))))                      (label-value-line "Truename" (truename pathname))))))
480    
481  (defimplementation inspect-for-emacs ((o t) (inspector corman-inspector))  (defmethod inspect-for-emacs ((o t) (inspector corman-inspector))
482    (cond ((cl::structurep o) (inspect-structure o))    (cond ((cl::structurep o) (inspect-structure o))
483          (t (call-next-method))))          (t (call-next-method))))
484    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

  ViewVC Help
Powered by ViewVC 1.1.5