I get "unbound variable args"
(define-macro (trace f)
(let ((old-f (gensym)))
`(define ,f
(let ((,old-f ,f))
(apply lambda 'args
`((format () "(~S ~{~S~^ ~}) -> " ',',f args)
(let ((val (apply ,,old-f args)))
(format () "~S~%" val)
val)))))))
_______________________________________________ Cmdist mailing list [email protected] https://cm-mail.stanford.edu/mailman/listinfo/cmdist
