Try to fix test on Allegro

iamFIREcracker · Jan 13, 2024 · eed9ed3 · eed9ed3
1 parent bccba08
commit eed9ed3
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/syntax.lisp b/syntax.lisp
@@ -1,5 +1,12 @@
 (in-package :aoc)
 
+;; If we don't copy the system readtable first, Allregro will fail with
+;; the following error:
+;;
+;;     Attempt to set macro in system readtable #<readtable @ #x20115b5a>;
+;;     copy readtable first.
+(setq *readtable* (copy-readtable)) 
+
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defun opening-braket-reader (stream char)
     (declare (ignore char))