/[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.100 by heller, Sat Feb 9 18:38:58 2008 UTC revision 1.101 by heller, Sat Feb 9 18:47:05 2008 UTC
# Line 565  Line 565 
565  ;;;; Inspecting  ;;;; Inspecting
566    
567  (defmethod emacs-inspect ((f function))  (defmethod emacs-inspect ((f function))
   (values "A function."  
568            (append            (append
569             (label-value-line "Name" (function-name f))             (label-value-line "Name" (function-name f))
570             `("Formals" ,(princ-to-string (arglist f)) (:newline))             `("Formals" ,(princ-to-string (arglist f)) (:newline))
571             (let ((doc (documentation (excl::external-fn_symdef f) 'function)))             (let ((doc (documentation (excl::external-fn_symdef f) 'function)))
572               (when doc               (when doc
573                 `("Documentation:" (:newline) ,doc))))))                 `("Documentation:" (:newline) ,doc)))))
574    
575  (defmethod emacs-inspect ((o t))  (defmethod emacs-inspect ((o t))
576    (values "A value." (allegro-inspect o)))    (allegro-inspect o))
577    
578  (defmethod emacs-inspect ((o function))  (defmethod emacs-inspect ((o function))
579    (values "A function." (allegro-inspect o)))    (allegro-inspect o))
580    
581  (defmethod emacs-inspect ((o standard-object))  (defmethod emacs-inspect ((o standard-object))
582    (values (format nil "~A is a standard-object." o) (allegro-inspect o)))    (allegro-inspect o))
583    
584  (defun allegro-inspect (o)  (defun allegro-inspect (o)
585    (loop for (d dd) on (inspect::inspect-ctl o)    (loop for (d dd) on (inspect::inspect-ctl o)

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

  ViewVC Help
Powered by ViewVC 1.1.5