Plaster
New
List
Login
common-lisp
default
anonymous
2023.12.19 09:13:23
(let* ((rt1 (copy-readtable)) (rt2 (copy-readtable))) (set-macro-character #\#(get-macro-character #\# rt1) nil rt2) (let* ((*readtable* rt2)) (read-from-string "#(1 2 3)"))) (let* ((rt1 (copy-readtable)) (rt2 (copy-readtable))) (set-macro-character #\#(get-macro-character #\# rt1) nil rt2) (get-dispatch-macro-character #\# #\( rt2))
Raw
Annotate
Repaste
Edit