home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / xlisp / xl21freq.zip / SENDMACR.LSP < prev    next >
Text File  |  1993-12-17  |  369b  |  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.