Try to fix test on Allegro

syntax.lisp

@@ -1,5 +1,13 @@
 (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.
+(defvar *custom-readtable* (copy-readtable))
+(setq *readtable* *custom-readtable*)
+
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (defun opening-braket-reader (stream char)
     (declare (ignore char))
@@ -9,7 +17,8 @@
          (,@(read-delimited-list #\] stream t)))))
   (set-macro-character #\[ #'opening-braket-reader)
   ; Using #\) messes up with the editor -,-
-  (set-macro-character #\] (get-macro-character #.(char ")" 0))))
+  (set-macro-character #\] (get-macro-character #.(char ")" 0))
+                       *custom-readtable*))
 
 #+#:excluded (read (make-string-input-stream "[format t \"Hello, ~a!\" _]"))
 
@@ -18,4 +27,5 @@
     (declare (ignore sub-char numarg))
     (loop :while (read-line stream nil nil))
     (values))
-  (set-dispatch-macro-character #\# #\; #'sharp-semicolon-reader))
+  (set-dispatch-macro-character #\# #\; #'sharp-semicolon-reader
+                                *custom-readtable*))