Sign in
code
/
git
/
refs/heads/next
/
.
/
t
/
t4018
/
scheme-lisp-eval-when
blob: 5d941d7e0edda234cc8e3ab34198d44fc82403b4 [
file
] [
edit
]
(
eval
-
when
(:
compile
-
toplevel
:
load
-
toplevel
:
execute
)
;
RIGHT
(
set
-
macro
-
character
#\?
(
lambda
(
stream
char
)
`(make-pattern-variable ,(read stream))))) ; ChangeMe
