glreader.lisp

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