From 4adffb52bc992ba79630c96c99fac53f9999c752 Mon Sep 17 00:00:00 2001
From: Matteo Landi <matteo@matteolandi.net>
Date: Sat, 13 Jan 2024 15:29:33 +0100
Subject: [PATCH] Try to fix test on Allegro

---
 syntax.lisp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/syntax.lisp b/syntax.lisp
index 43d0b7a..26bcb18 100644
--- 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))