git/t/t4018/scheme-lisp-eval-when

5 lines
181 B
Plaintext

(eval-when (:compile-toplevel :load-toplevel :execute) ; RIGHT
(set-macro-character #\?
(lambda (stream char)
`(make-pattern-variable ,(read stream))))) ; ChangeMe