[CM] 20.8 -- unbound variable "__func__"

[David O'Toole]

Hello everyone! I'm back hacking on Scheme Mosaic.

The following code no longer works, what is the correct thing to do?

;;; Assertion facility from Snd docs.

(define *debugging* #t)

(define-expansion (assert assertion)
  (if *debugging*
      `(unless ,assertion
         (format *stderr* "~A: ~A failed~%" __func__ ',assertion))
      (values)))
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20201121/a0113a0a/attachment.html>