hg.stevelosh.com > chancery

src/readtable.lisp @ f31f114d1e79 

Copy over and clean up from my sandbox repo
author Steve Losh <steve@stevelosh.com>
date Wed, 11 Jan 2017 16:54:51 +0000
parents (none)
children ddcf7ddf78f6 
(in-package :chancery)

(defun vector-reader (stream char)
  (declare (ignore char))
  (coerce (read-delimited-list #\] stream t) 'vector))


(named-readtables:defreadtable :chancery
  (:merge :standard)
  (:macro-char #\[ #'vector-reader t)
  (:macro-char #\] (get-macro-character #\) nil)))