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

Diff of /slime/swank-lispworks.lisp

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

revision 1.8 by heller, Wed Dec 10 13:26:08 2003 UTC revision 1.9 by heller, Sun Dec 14 07:59:36 2003 UTC
# Line 262  Return NIL if the symbol is unbound." Line 262  Return NIL if the symbol is unbound."
262  (defmethod find-function-locations (fname)  (defmethod find-function-locations (fname)
263    (dspec-source-locations (from-string fname)))    (dspec-source-locations (from-string fname)))
264    
 ;;; Tracing  
   
 (defun tracedp (symbol)  
   (member symbol (trace) :test #'eq))  
   
 (defslimefun toggle-trace-fdefinition (fname-string)  
   (let ((fname (from-string fname-string)))  
     (cond ((tracedp fname)  
            (compiler::ensure-untrace-1 (list fname))  
            (format nil "~S is now untraced." fname))  
           (t  
            (compiler::ensure-trace-1 (list fname))  
            (format nil "~S is now traced." fname)))))  
   
265  ;;; callers  ;;; callers
266    
267  (defun stringify-function-name-list (list)  (defun stringify-function-name-list (list)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.5