readtable.lisp

(ql:quickload '(:with-package :alexandria))

(get-dispatch-macro-character #\# #\@) ; => NIL

(progn #.(progn (with-package:enable) ; <--- Modify *READTABLE*
                (values)) ; <--- return nothing.
       #@alexandria ; <--- Using new syntax.
       (iota 5)
       #.(progn (setq *readtable* (copy-readtable nil)) ; <--- Reset *READTABLE* as the default.
                (values))) ; <--- return nothing.
; => (0 1 2 3 4)

(get-dispatch-macro-character #\# #\@) ; => NIL