/[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.13 by mbaringer, Mon Feb 4 17:39:52 2008 UTC revision 1.14 by heller, Sat Feb 9 18:38:58 2008 UTC
# Line 393  Line 393 
393                collect (funcall callback e)                collect (funcall callback e)
394                collect ", ")))                collect ", ")))
395    
396  (defmethod inspect-for-emacs ((class standard-class))  (defmethod emacs-inspect ((class standard-class))
397    (values "A class."    (values "A class."
398            `("Name: " (:value ,(class-name class))            `("Name: " (:value ,(class-name class))
399              (:newline)              (:newline)
# Line 430  Line 430 
430                    '("#<N/A (class not finalized)>"))                    '("#<N/A (class not finalized)>"))
431              (:newline))))              (:newline))))
432    
433  (defmethod inspect-for-emacs ((slot cons))  (defmethod emacs-inspect ((slot cons))
434    ;; Inspects slot definitions    ;; Inspects slot definitions
435    (if (eq (car slot) :name)    (if (eq (car slot) :name)
436        (values "A slot."        (values "A slot."
# Line 448  Line 448 
448                                               (:newline)))                                               (:newline)))
449        (call-next-method)))        (call-next-method)))
450    
451  (defmethod inspect-for-emacs ((pathname pathnames::pathname-internal))  (defmethod emacs-inspect ((pathname pathnames::pathname-internal))
452    (values (if (wild-pathname-p pathname)    (values (if (wild-pathname-p pathname)
453                "A wild pathname."                "A wild pathname."
454                "A pathname.")                "A pathname.")
# Line 464  Line 464 
464                                (not (probe-file pathname)))                                (not (probe-file pathname)))
465                      (label-value-line "Truename" (truename pathname))))))                      (label-value-line "Truename" (truename pathname))))))
466    
467  (defmethod inspect-for-emacs ((o t))  (defmethod emacs-inspect ((o t))
468    (cond ((cl::structurep o) (inspect-structure o))    (cond ((cl::structurep o) (inspect-structure o))
469          (t (call-next-method))))          (t (call-next-method))))
470    

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

  ViewVC Help
Powered by ViewVC 1.1.5