;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Private patches made by GJC
;;; Reason:
;;;  FOO
;;; Written 22-Mar-86 15:12:40 by GJC at site LMI Cambridge
;;; while running on Guinea Pig from band 1
;;; with Experimental System 110.121, Experimental Lambda-Diag 7.0, Experimental Local-File 68.1, Experimental FILE-Server 18.2, Experimental Unix-Interface 9.0, Experimental ZMail 65.7, Experimental Object Lisp 3.0, Experimental Tape 6.0, Experimental Site Data Editor 3.1, Experimental Tiger 24.0, Experimental KERMIT 31.2, Experimental Window-Maker 1.0, Experimental Gateway 4.0, Experimental TCP-Kernel 39.5, Experimental TCP-User 62.5, Experimental TCP-Server 45.5, Experimental MEDIUM-RESOLUTION-COLOR 3.0, Experimental MICRO-COMPILATION-TOOLS 3.0, microcode 1408, SDU ROM 8, Alpha III Cambridge.

; From file DJ: L.IO; QIO.LISP#227 at 22-Mar-86 15:18:50
#8R SYSTEM-INTERNALS#: #.(LET((*READTABLE*(SI:FIND-READTABLE-NAMED':ZL)))(SI:READ-CHECK-INDENTATION))

(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: IO; QIO  "

(DEFUN FROBIT ()
  '#.(SI:RDTBL-NAME READTABLE))

))