Trace CLOS method

lw-repl.log

CL-USER 1 > (load "~/tmp/trace-method.lisp")
; Loading text file /Users/deepaksurti/tmp/trace-method.lisp
#P"/Users/deepaksurti/tmp/trace-method.lisp"

CL-USER 2 > (test-foo)
1

CL-USER 3 > (trace (method foo (fixnum)))
((METHOD FOO (FIXNUM)))

CL-USER 4 > (test-foo)
0 (METHOD FOO (FIXNUM)) > ...
  >> X : 1
0 (METHOD FOO (FIXNUM)) < ...
  << VALUE-0 : 1
1

CL-USER 5 > (untrace)
((METHOD FOO (FIXNUM)))

CL-USER 6 > (test-foo)
1

CL-USER 7 > (trace foo)
(FOO)

CL-USER 8 > (test-foo)
0 FOO > ...
  >> X : "hello"
0 FOO < ...
  << VALUE-0 : "hello"
0 FOO > ...
  >> X : 1
0 FOO < ...
  << VALUE-0 : 1
1

trace-method.lisp

(defgeneric foo (x)
  (:documentation "generic foo"))

(defmethod foo ((x fixnum))
  x)

(defmethod foo ((x string))
  x)

(defun test-foo ()
  (foo "hello")
  (foo 1))