I'm using following macro in lisp(SBCL) for it's convenient (at least for
me).
Can I do this in chicken scheme? Thank you in advance.
(set-macro-character
#\[
(lambda (stream char)
(declare (ignore char))
(let ((*readtable* (copy-readtable *readtable* nil)))
(set-macro-character #\] (get-macro-character #\)))
(set-macro-character #\, (lambda (stream char)
(declare (ignore stream char))
(values)))
(set-macro-character #\~ (get-macro-character #\,))
(let ((contents (read-delimited-list #\] stream t)))
`(vector ,@contents)))))
_______________________________________________
Chicken-users mailing list
Chicken-users@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-users
