home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / RiscOS / APP / DEVS / LISP / CLISP.ZIP / CLisp / lsp / sendmacr < prev    next >
Text File  |  1992-10-02  |  354b  |  16 lines
  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.  
  16.