/[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.66 by heller, Thu Feb 24 18:08:59 2005 UTC revision 1.67 by heller, Mon Feb 28 23:32:06 2005 UTC
# Line 533  Return NIL if the symbol is unbound." Line 533  Return NIL if the symbol is unbound."
533    
534  (defxref who-calls      hcl:who-calls)  (defxref who-calls      hcl:who-calls)
535  (defxref who-macroexpands hcl:who-calls) ; macros are in the calls table too  (defxref who-macroexpands hcl:who-calls) ; macros are in the calls table too
536  (defxref list-callees   hcl:calls-who)  (defxref calls-who      hcl:calls-who)
537  (defxref list-callers   list-callers-internal)  (defxref list-callers   list-callers-internal)
538    (defxref list-callees   list-callees-internal)
539    
540  (defun list-callers-internal (name)  (defun list-callers-internal (name)
541    (let ((callers (make-array 100    (let ((callers (make-array 100
# Line 608  Return NIL if the symbol is unbound." Line 609  Return NIL if the symbol is unbound."
609  (defun parse-fspec (fspec)  (defun parse-fspec (fspec)
610    "Return a dspec for FSPEC."    "Return a dspec for FSPEC."
611    (ecase (car fspec)    (ecase (car fspec)
612      (:defmethod `(method ,@(cdr fspec)))))      ((:defmethod) `(method ,(cdr fspec)))))
613    
614  (defun tracedp (dspec)  (defun tracedp (dspec)
615    (member dspec (eval '(trace)) :test #'equal))    (member dspec (eval '(trace)) :test #'equal))
616    
617  (defun toggle-trace (dspec)  (defun toggle-trace-aux (dspec)
618    (cond ((tracedp dspec)    (cond ((tracedp dspec)
619           (eval `(untrace ,dspec))           (eval `(untrace ,dspec))
620           (format nil "~S is now untraced." dspec))           (format nil "~S is now untraced." dspec))
# Line 621  Return NIL if the symbol is unbound." Line 622  Return NIL if the symbol is unbound."
622           (eval `(trace (,dspec)))           (eval `(trace (,dspec)))
623           (format nil "~S is now traced." dspec))))           (format nil "~S is now traced." dspec))))
624    
625  (defimplementation toggle-trace-method (fspec)  (defimplementation toggle-trace (fspec)
626    (toggle-trace (parse-fspec fspec)))    (toggle-trace-aux (parse-fspec fspec)))
627    
628  ;;; Multithreading  ;;; Multithreading
629    

Legend:
Removed from v.1.66  
changed lines
  Added in v.1.67

  ViewVC Help
Powered by ViewVC 1.1.5