home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_100 / 176_01 / trace.lsp < prev    next >
Text File  |  1986-01-06  |  676b  |  21 lines
  1. (setq *tracelist* nil)
  2.  
  3. (defun evalhookfcn (expr env &aux val)
  4.        (if (and (consp expr) (member (car expr) *tracelist*))
  5.            (progn (princ ">>> ") (print expr)
  6.                   (setq val (evalhook expr evalhookfcn nil env))
  7.                   (princ "<<< ") (print val))
  8.            (evalhook expr evalhookfcn nil env)))
  9.  
  10. (defun trace (fun)
  11.        (if (not (member fun *tracelist*))
  12.        (progn (setq *tracelist* (cons fun *tracelist*))
  13.                   (setq *evalhook* evalhookfcn)))
  14.        *tracelist*)
  15.  
  16. (defun untrace (fun)
  17.        (if (null (setq *tracelist* (delete fun *tracelist*)))
  18.            (setq *evalhook* nil))
  19.        *tracelist*)
  20.  
  21.