tefun.lisp

parenscript trace

(defpsmacro tefun (name args &body body)
      (let ((traced-name (gensym (symbol-name name))))
        `(progn
           (defun ,traced-name ,args
             ,@body)
           (defun ,name ,args
             (trace (+ "entering "
                       ,(encode-js-identifier (symbol-name name))
                       "("
                       ,@(mapcar #'(lambda (name val)
                                     `(+ ,(symbol-name name)
                                         " = "
                                         ,val))
                                 args
                                 args)
                       ")"))
             (let ((result (,traced-name ,@args)))
               (trace (+  "exiting "
                          ,(encode-js-identifier (symbol-name name))
                          " returning "
                          result))
               (return result))))))