;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 123.259
;;; Reason:
;;;  Due to cold-load/make-system screwup, readtables were loaded twice and si:*all-readtables*
;;;  does NOT consist exactly of the list (si:standard-readtable si:common-lisp-readtable).
;;;  Definitive cure requires new cold-load.  Adequate workaround is to set the variable...
;;; Written 6-May-88 18:35:55 by pld at site Gigamos Cambridge
;;; while running on Azathoth from band 3
;;; with Experimental System 123.258, Experimental Local-File 73.5, Experimental FILE-Server 22.4, Experimental Unix-Interface 11.0, Experimental KERMIT 34.3, Experimental ZMail 71.1, Experimental Lambda-Diag 15.0, Experimental Tape 22.4, microcode 1756, SDU Boot Tape 3.14, SDU ROM 8, the old ones.


(setq-globally *readtable* si:standard-readtable)
(setq si:*all-readtables* (list si:standard-readtable si:common-lisp-readtable))