new file mode 100644

@@ -0,0 +1,11 @@

+;; Sketches for my readtable

+

+(defun pr-re (form v)

+  (format t "~&~s: ~s~%" form v)

+  v)

+

+(set-macro-character #\!

+                     (lambda (s c)

+                       c

+                       (let ((form (read s t nil t)))

+                         `(pr-re ',form ,form))))