xlisponly/lsp/sendmacr.lsp

   1 (setf (aref *readtable* (char-int #\[))
   2       (cons :tmacro
   3             (lambda (f c &aux ex)
   4                     (do ()
   5                         ((eq (peek-char t f) #\]))
   6                         (setf ex (append ex (list (read f)))))
   7                     (read-char f)
   8                     (cons (cons 'send ex) nil))))
   9
  10 (setf (aref *readtable* (char-int #\]))
  11       (cons :tmacro
  12             (lambda (f c)
  13                     (error "misplaced right bracket"))))
  14
  15