[Chicken-users] [Q] Can I do this in Scheme(set-macro-character thing)?

[Sungjin Chun]

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)))))