glreader.lisp

   1
   2 (in-package :glrepl)
   3
   4 (defconstant eof "Eof")
   5 (defun eof-object? (x) (eq x eof))
   6
   7 (defvar *glrepl-readtable* (copy-readtable))
   8
   9 (defun glrepl-read (&optional (stream *standard-input*))
  10   (let ((*readtable* *glrepl-readtable*))
  11     (read stream nil eof)))
  12
  13 ;; use #[ ] to make pixels (noationally convenient)
  14 (defun |#[reader| (stream char arg)
  15   (declare (ignore char arg))
  16   `(pixval ,@(read-delimited-list #\] stream t)))
  17
  18 (set-dispatch-macro-character #\# #\[ #'|#[reader| *glrepl-readtable*)