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

Diff of /slime/swank-ccl.lisp

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

revision 1.18 by heller, Fri Mar 5 17:45:34 2010 UTC revision 1.19 by sboukarev, Wed Mar 10 00:02:53 2010 UTC
# Line 628  Line 628 
628                                   "Underlying UVECTOR"))))                                   "Underlying UVECTOR"))))
629                (t value)))))                (t value)))))
630    
631    (defmethod emacs-inspect ((f function))
632      (append
633       (label-value-line "Name" (function-name f))
634       `("Its argument list is: "
635         ,(princ-to-string (arglist f)) (:newline))
636       (label-value-line "Documentation" (documentation  f t))
637       (when (function-lambda-expression f)
638         (label-value-line "Lambda Expression"
639                           (function-lambda-expression f)))
640       (when (ccl:function-source-note f)
641         (label-value-line "Source note"
642                           (ccl:function-source-note f)))
643       (when (typep f 'ccl:compiled-lexical-closure)
644         (append
645          (label-value-line "Inner function" (ccl::closure-function f))
646          '("Closed over values:" (:newline))
647          (loop for (name value) in (ccl::closure-closed-over-values f)
648                append (label-value-line (format nil " ~a" name)
649                                         value))))))
650    
651  (defclass uvector-inspector ()  (defclass uvector-inspector ()
652    ((object :initarg :object)))    ((object :initarg :object)))
653    

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

  ViewVC Help
Powered by ViewVC 1.1.5