[CM] TRACE facility seems broken in 22.5

[David O'Toole]

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)))))))
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20220712/e5754553/attachment.html>