path: root/t/t4018/scheme-lisp-eval-when

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