home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / xl21hos2.zip / SENDMACR.LSP < prev    next >
Text File  |  1995-12-27  |  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.