Try to fix test on Allegro

iamFIREcracker · Jan 13, 2024 · e4fa0c1 · e4fa0c1
1 parent ca576b4
commit e4fa0c1
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))