sample-read-macro-1.ros

#!/bin/sh
#|-*- mode:lisp -*-|#
#|
exec ros +Q -- $0 "$@"
|#

(defun do-nothing (&rest rest)
  (declare (ignore rest)))

(defun make-list-reader (stream &rest rest)
  (declare (ignore rest))
  (let ((*readtable* (copy-readtable *readtable*)))
    (set-macro-character #\] #'do-nothing)
    (set-macro-character #\[ #'make-list-reader)
    (let ((readed (read-delimited-list #\] stream t)))
      (print `(readed = ,readed))
      `(list ,@readed))))

(eval-when (:execute)
  (set-dispatch-macro-character
   #\# #\[ #'make-list-reader))

(defun main (&rest argv)
  (declare (ignorable argv))
  (print #[1 [2 3 #[4 'test 5]] 6])
  (format t "~%"))