/[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.99 by mbaringer, Mon Feb 4 17:35:04 2008 UTC revision 1.100 by heller, Sat Feb 9 18:38:58 2008 UTC
# Line 564  Line 564 
564    
565  ;;;; Inspecting  ;;;; Inspecting
566    
567  (defmethod inspect-for-emacs ((f function))  (defmethod emacs-inspect ((f function))
568    (values "A function."    (values "A function."
569            (append            (append
570             (label-value-line "Name" (function-name f))             (label-value-line "Name" (function-name f))
# Line 573  Line 573 
573               (when doc               (when doc
574                 `("Documentation:" (:newline) ,doc))))))                 `("Documentation:" (:newline) ,doc))))))
575    
576  (defmethod inspect-for-emacs ((o t))  (defmethod emacs-inspect ((o t))
577    (values "A value." (allegro-inspect o)))    (values "A value." (allegro-inspect o)))
578    
579  (defmethod inspect-for-emacs ((o function))  (defmethod emacs-inspect ((o function))
580    (values "A function." (allegro-inspect o)))    (values "A function." (allegro-inspect o)))
581    
582  (defmethod inspect-for-emacs ((o standard-object))  (defmethod emacs-inspect ((o standard-object))
583    (values (format nil "~A is a standard-object." o) (allegro-inspect o)))    (values (format nil "~A is a standard-object." o) (allegro-inspect o)))
584    
585  (defun allegro-inspect (o)  (defun allegro-inspect (o)

Legend:
Removed from v.1.99  
changed lines
  Added in v.1.100

  ViewVC Help
Powered by ViewVC 1.1.5