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

Diff of /slime/swank-allegro.lisp

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

revision 1.95 by alendvai, Tue Dec 19 10:47:36 2006 UTC revision 1.96 by heller, Thu Aug 23 19:03:37 2007 UTC
# Line 568  Line 568 
568    
569  ;;;; Inspecting  ;;;; Inspecting
570    
571  (defclass acl-inspector (inspector)  (defclass acl-inspector (backend-inspector) ())
   ())  
572    
573  (defimplementation make-default-inspector ()  (defimplementation make-default-inspector ()
574    (make-instance 'acl-inspector))    (make-instance 'acl-inspector))
# Line 584  Line 583 
583               (when doc               (when doc
584                 `("Documentation:" (:newline) ,doc))))))                 `("Documentation:" (:newline) ,doc))))))
585    
586  (defmethod inspect-for-emacs ((o t) (inspector acl-inspector))  (defmethod inspect-for-emacs ((o t) (inspector backend-inspector))
587    inspector    inspector
588    (values "A value." (allegro-inspect o)))    (values "A value." (allegro-inspect o)))
589    
590  (defmethod inspect-for-emacs ((o function) (inspector acl-inspector))  (defmethod inspect-for-emacs ((o function) (inspector backend-inspector))
591    inspector    inspector
592    (values "A function." (allegro-inspect o)))    (values "A function." (allegro-inspect o)))
593    
594  (defmethod inspect-for-emacs ((o standard-object) (inspector acl-inspector))  (defmethod inspect-for-emacs ((o standard-object)
595                                  (inspector backend-inspector))
596    inspector    inspector
597    (values (format nil "~A is a standard-object." o) (allegro-inspect o)))    (values (format nil "~A is a standard-object." o) (allegro-inspect o)))
598    

Legend:
Removed from v.1.95  
changed lines
  Added in v.1.96

  ViewVC Help
Powered by ViewVC 1.1.5