Report of patches to update from DJ: GJC.UPDATE; RELEASE-2P0-PATCH-STATUS#>
Created by GJC from LMI-DAN-DARE
on Sunday the thirtieth of March, 1986; 12:20:52 am


Report on directory of patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102.PATCH-DIRECTORY#439"
;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T -*-
;;; Patch directory for System version 102
;;; Written 30-Mar-86 00:09:54 by GJC,
;;; while running on Dan Dare from band 1
;;; with System 102.186, Local-File 56.16, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, TCP-Kernel 30.12, TCP-User 57.14, TCP-Server 33.8, microcode 783.

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-118.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.118
;;; Reason:
;;;  Change CONDITION-CASE to CONDITION-CASE-IF in FS:QFILE-LOGIN-HOST-UNIT,
;;; Reason:
;;;  allowing the FTP server to handle FS:LOGIN-PROBLEMS conditions itself.
;;; Written 25-Apr-85 01:29:09 by KIEU,
;;; while running on Boris Badinoff from band 1
;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.1, Tiger 20.4, KERMIT 26.4, MEDIUM-RESOLUTION-COLOR 17.3, Experimental TCP-Kernel 14.1, Experimental TCP-User 33.0, Experimental TCP-Server 9.0, microcode 763.
; From file QFILE.LISP#> QL.NETWORK.CHAOS; LAM3: (363)
(DEFVAR CATCH-LOGIN-PROBLEMS-P T 
; From file QFILE.LISP#> QL.NETWORK.CHAOS; LAM3: (363)
(DEFUN QFILE-LOGIN-HOST-UNIT (UNIT LOGIN-P UNAME-HOST
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-118.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-119.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.119
;;; Reason:
;;;  Fix ZWEI:PARSE-BUG-ARG so it doesn't loop infinitely when a line in the header is
;;; Reason:
;;;  wider than 75 characters (patch from MCC)
;;; Written 26-Apr-85 18:38:17 by MWT,
;;; while running on Boris Badinoff from band 4
;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental TCP-Kernel 14.1, Experimental TCP-User 33.0, Experimental TCP-Server 10.0, microcode 768.
; From file DIRED.LISP#> QL.ZWEI; LAM3: (308)
(DEFUN PARSE-BUG-ARG (WHO)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-119.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-120.LISP#1"
;;; -*- Mode:LISP; Package:USER; Patch-File:T; Base:8; Readtable:ZL -*-
;;; Patch file for System version 102.120
;;; Reason:
;;;  Telnet/Supdup reports parsing errors
;;; Reason:
;;;  Frob readtables (yet again).
;;; Written 26-Apr-85 19:04:22 by RpK,
;;; while running on Lambda Six from band 3
;;; with System 102.118, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, DOE-Macsyma 9.9, Macsyma-Help-Database 1.1, Experimental NewDraw 15.2, microcode 762.
; From file SUPDUP.LISP#> QL.WINDOW; LAM3: (280)
(DEFMETHOD (BASIC-NVT :NEW-CONNECTION) (HOST GATEWAY CONTACT CONTACT-P WINDOW
(DEFUN PARSE-PATH (PATH CONTACT-NAME ARPA-SOCKET)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-120.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-121.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.121
;;; Reason:
;;;  Fixed an incorrectly placed close paren in (method process-imxin :after :init)
;;; Written 30-Apr-85 12:30:39 by naha,
;;; while running on The Importance of Being Earnest from band 1
;;; with System 102.92, Local-File 56.0, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.14, ZMail 57.1, Tiger 20.4, KERMIT 26.4, MEDIUM-RESOLUTION-COLOR 17.3, microcode 753.
; From file BASWIN.LISP#> QL.WINDOW; LAM3: (565)
(DEFMETHOD (PROCESS-MIXIN :AFTER :INIT) (IGNORE)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-121.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-122.LISP#3"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.122
;;; Reason:
;;;  System-U bug with pathname merging (blech).
;;; Reason:
;;;  SI:SET-SYS-HOST dwims the operating-system-type argument
;;; Reason:
;;;  Fix ZMail who-line documentation bug.
;;; Reason:
;;;  Documentation strings of LISTP and CLI:LISTP.
;;; Reason:
;;;  Fix ZMacs Hyper-Meta-D bug.
;;; Reason:
;;;  System-U bug with pathname merging (blech).
;;; Reason:
;;;  SI:SET-SYS-HOST dwims the operating-system-type argument
;;; Reason:
;;;  Fix ZMail who-line documentation bug.
;;; Reason:
;;;  Documentation strings of LISTP and CLI:LISTP.
;;; Reason:
;;;  Fix ZMacs Hyper-Meta-D bug.
;;; Written 30-Apr-85 15:45:31 by RpK,
;;; while running on Lambda Six from band 3
;;; with System 102.121, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, DOE-Macsyma 9.9, Macsyma-Help-Database 1.1, Experimental NewDraw 15.2, microcode 762.
; From file SHARED-DEVICE.LISP#> QL.SYS; LAM3: (29)
(defmethod (shared-device-pathname :homedir) (&optional ignore)
; From file QMISC.LISP#> QL.SYS; LAM3: (674)
(DEFUN SET-SYS-HOST (HOST-NAME &OPTIONAL OPERATING-SYSTEM-TYPE HOST-ADDRESS
; From file SCREEN.LISP#> QL.ZWEI; LAM3: (469)
(DEFMETHOD (MENU-COMMAND-MENU-MIXIN :WHO-LINE-DOCUMENTATION-STRING) ()
; From file COMF.LISP#> QL.ZWEI; LAM3: (100)
(DEFCOM COM-LONG-DOCUMENTATION "Prints long documentation for the specified symbol or function.
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-122.QFASL#3"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-123.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.123
;;; Reason:
;;;  Documentation string added for DO.
;;; Written 1-May-85 13:28:18 by mrc,
;;; while running on Lambda Six from band 3
;;; with System 102.122, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.17, ZMail 57.3, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, DOE-Macsyma 9.9, Macsyma-Help-Database 1.1, Experimental NewDraw 15.2, microcode 768.
; From file EVAL.LISP#> QL.SYS; LAM3: (93)
(defun do (&quote &rest x)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-123.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-124.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.124
;;; Reason:
;;;  Fix DISPLAY-FONT
;;; Written 5-May-85 12:38:43 by MT,
;;; while running on Boris Badinoff from band 2
;;; with System 102.123, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Tiger 21.0, microcode 768.
; From file FED.LISP#> QL.WINDOW; LAM3: (201)
(DEFUN DISPLAY-FONT (FONT &OPTIONAL (WINDOW TERMINAL-IO) (CLEAR-FIRST-P T) (FROM-FED NIL))
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-124.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-125.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.125
;;; Reason:
;;;  fix make-package :super keyword
;;; Written 6-May-85 21:36:37 by GJC,
;;; while running on Test Lambda A from band 1
;;; with System 102.124, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.17, ZMail 57.3, Tiger 20.5, KERMIT 26.16, MEDIUM-RESOLUTION-COLOR 17.3, Experimental MICRO-COMPILATION-TOOLS 4.0, microcode 768, Education 2x2+ 102.120 Idle UCompiler.
; From file CLPACK.LISP#> QL.SYS; LAM3: (157)
(defun make-package (name &key &optional nicknames (use '("GLOBAL")) super (size #o200)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-125.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-126.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.126
;;; Reason:
;;;  defpackage now ignores :super if package already created.
;;; Written 6-May-85 21:52:17 by GJC,
;;; while running on Test Lambda A from band 1
;;; with System 102.124, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.17, ZMail 57.3, Tiger 20.5, KERMIT 26.16, MEDIUM-RESOLUTION-COLOR 17.3, Experimental MICRO-COMPILATION-TOOLS 4.0, microcode 768, Education 2x2+ 102.120 Idle UCompiler.
; From file CLPACK.LISP#> QL.SYS; LAM3: (157)
(defun defpackage-internal (name alist-of-options)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-126.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-127.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.127
;;; Reason:
;;;  system additions required by Interlisp
;;; Written 6-May-85 22:25:09 by GJC,
;;; while running on Test Lambda A from band 1
;;; with System 102.124, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.17, ZMail 57.3, Tiger 20.5, KERMIT 26.16, MEDIUM-RESOLUTION-COLOR 17.3, Experimental MICRO-COMPILATION-TOOLS 4.0, microcode 768, Education 2x2+ 102.120 Idle UCompiler.
; From file READ.LISP#> QL.IO; LAM3: (436)
(defun xr-xrtyipeek (&optional peek-type &rest read-args)
; From file MAKSYS.LISP#> QL.SYS2; LAM3: (186)
(DEFINE-SIMPLE-TRANSFORMATION :READ-FOR-COMPILATION ReadForCompilation ReadForCompilation?
; From file MAKSYS.LISP#> QL.SYS2; LAM3: (186)
(DEFUN ReadForCompilation? (Name &AUX (Source (FUNCALL Name ':NEW-TYPE "LISP"))
; From file MAKSYS.LISP#> QL.SYS2; LAM3: (186)
(DEFUN ReadForCompilation (Name &AUX (Source (FUNCALL Name ':NEW-TYPE "LISP"))
; From file MAKSYS.LISP#> QL.SYS2; LAM3: (186)
(DEFMACRO (:PROPERTY :PROGN DEFSYSTEM-MACRO) (&REST Transformations &AUX Values)
; From file MAKSYS.LISP#> QL.SYS2; LAM3: (186)
(DEFMACRO (:PROPERTY :READ-COMPILE-LOAD DEFSYSTEM-MACRO)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-127.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-128.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.128
;;; Reason:
;;;  (:method file-stream-mixin :get) now needs to handle the &OPTIONAL DEFAULT argument.
;;; Written 7-May-85 14:39:29 by GJC,
;;; while running on Lambda Six from band 3
;;; with System 102.110, Local-File 56.4, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, DOE-Macsyma 9.9, Macsyma-Help-Database 1.1, Experimental NewDraw 15.2, Experimental TCP-Kernel 23.0, Experimental TCP-Server 19.0, Experimental TCP-User 43.0, microcode 768.
; From file STREAM.LISP#> QL.IO; LAM3: (110)
(DEFMETHOD (FILE-STREAM-MIXIN :GET) (INDICATOR &OPTIONAL DEFAULT)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-128.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-129.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.129
;;; Reason:
;;;  Yet another LMFS support bug...
;;; Written 8-May-85 16:00:32 by RpK,
;;; while running on Boris Badinoff from band 3
;;; with System 102.128, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.17, ZMail 57.3, Tiger 20.5, KERMIT 26.16, MEDIUM-RESOLUTION-COLOR 17.3, microcode 768.
; From file PATHST.LISP#> QL.IO.FILE; LAM3: (192)
(DEFMETHOD (lmfs-PATHNAME-MIXIN :PARSE-NAMESTRING) (IGNORE NAMESTRING
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-129.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-130.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.130
;;; Reason:
;;;  Fix fs:merge-pathname-components to know about :UNSPECIFIC fields.
;;; Reason:
;;;  This allows it to work for unix pathnames.
;;; Written 12-May-85 16:53:39 by MT,
;;; while running on Lambda Twelve from band 4
;;; with System 102.129, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.17, ZMail 57.3, Tiger 20.5, KERMIT 26.16, MEDIUM-RESOLUTION-COLOR 17.3, Experimental NewDraw 21.0, microcode 768, 102.128 ND 21.0 LS.
; From file PATHNM.LISP#> QL.IO.FILE; LAD: (545)
(defun merge-pathname-components
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-130.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-131.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.131
;;; Reason:
;;;  rename system-configuration spare slots for excelan
;;; Written 15-May-85 17:02:25 by GJC,
;;; while running on Lambda Six from band 3
;;; with System 102.110, Local-File 56.4, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, DOE-Macsyma 9.9, Macsyma-Help-Database 1.1, Experimental NewDraw 15.2, Experimental TCP-Kernel 25.0, Experimental TCP-User 47.0, Experimental TCP-Server 32.0, microcode 768.
; From file SYSCONF.LISP#> QL.COLD; LAD: (12)
(defconst system-configuration-qs '(
; From file SYSCONF.LISP#> QL.COLD; LAD: (12)
; From file SYSCONF.LISP#> QL.COLD; LAD: (12)
; From file CONFIG-DEFS.LISP#> QL.SYS; LAD: (7)
(define-accessors-for-structure system-configuration-qs)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-131.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-132.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.132
;;; Reason:
;;;  Fix LM-PRINT-DIRECTORY to not print null directories as "~;".  NIL means :UNSPECIFIC, not :ROOT.
;;; Written 17-May-85 18:17:18 by MT,
;;; while running on Boris Badinoff from band 2
;;; with System 102.131, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.19, ZMail 57.4, Tiger 20.5, KERMIT 26.18, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, Official working band for Boris//Natasha -dg.
; From file LMPARS.LISP#> QL.FILE; LAD: (115)
(DEFUN LM-PRINT-DIRECTORY (DEVICE DIRECTORY S SPACE)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-132.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-133.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.133
;;; Reason:
;;;  Fix typo in PRINT-OBJECT --rg
;;; Written 18-May-85 14:06:55 by MPG,
;;; while running on Waiting for Godot from band 4
;;; with System 102.129, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.19, ZMail 57.4, Tiger 20.5, KERMIT 26.16, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, 102.129 vista.
; From file PRINT.LISP#> QL.IO; LAD: (182)
(DEFUN PRINT-OBJECT (EXP I-PRINDEPTH STREAM
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-133.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-134.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.134
;;; Reason:
;;;  The :named-structure-basic-inspect property, a hook for interlisp
;;; Written 21-May-85 17:34:33 by GJC,
;;; while running on Lambda Six from band 3
;;; with System 102.133, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.19, ZMail 57.5, Tiger 20.5, KERMIT 26.18, MEDIUM-RESOLUTION-COLOR 17.3, DOE-Macsyma 9.9, Macsyma-Help-Database 1.1, Experimental TCP-Server 32.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.0, microcode 768, TCP OR BUST.
; From file INSPCT.LISP#> QL.WINDOW; LAD: (156)
(DEFMETHOD (BASIC-INSPECT :OBJECT-NAMED-STRUCTURE)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-134.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-135.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.135
;;; Reason:
;;;  fix fquery prompt in tv:wait-till-safe-for-error. it used to say
;;; Reason:
;;;  U was "like Terminal Meta-Clear-input", but it's Control-Clear-input.
;;; Written 21-May-85 18:51:39 by mhd,
;;; while running on Lambda Five A from band 2
;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, lmi site info.
; From file SHEET.LISP#> QL.WINDOW; LAD: (560)
(DEFUN WAIT-TILL-SAFE-FOR-ERROR (WINDOW FUNCTION &REST ARGS)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-135.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-136.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.136
;;; Reason:
;;;  Fix :ANY-TYI-NO-HANG to check RH buffer.
;;; Written 24-May-85 10:30:56 by JMTurn,
;;; while running on Boris Badinoff from band 2
;;; with System 102.130, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.19, ZMail 57.4, Tiger 20.5, KERMIT 26.18, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, Official working band for Boris//Natasha -dg.
; From file STREAM.LISP#> QL.WINDOW; LAD: (146)
(DEFMETHOD (STREAM-MIXIN :ANY-TYI-NO-HANG) (&OPTIONAL IGNORE)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-136.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-137.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.137
;;; Reason:
;;;  fix a call to compiler:barf
;;; Written 24-May-85 11:57:34 by gjc,
;;; while running on Lambda Six from band 2
;;; with System 102.135, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.19, ZMail 57.6, Tiger 20.5, KERMIT 26.18, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.0, Experimental TCP-Server 32.0, microcode 768, Official working band for Boris//Natasha -dg.
; From file QCLAP.LISP#> QL.SYS; LAD: (251)
(DEFUN LAP-HEADER (Q-LENGTH UNBOXED-LENGTH)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-137.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-138.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.138
;;; Reason:
;;;  new feature in file mode line, -*- READ:NameOfReader -*-, e.g. -*- READ:FAST -*-
;;; Written 29-May-85 13:45:32 by GJC,
;;; while running on Lambda Six from band 2
;;; with System 102.137, Local-File 56.7, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.19, ZMail 57.6, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.1, Experimental TCP-Server 32.1, microcode 768, Official working band for Boris//Natasha -dg.
; From file QFASL.LISP#> QL.SYS; LAD: (468)
(DEFVAR *READFILE-READ-FUNCTION* NIL "If non-nil a function to use instead of READ")
; From file QFASL.LISP#> QL.SYS; LAD: (468)
(DEFUN READFILE-INTERNAL (*STANDARD-INPUT* PKG NO-MSG-P)
; From file QCFILE.LISP#> QL.SYS; LAD: (326)
(DEFUN COMPILE-STREAM (INPUT-STREAM GENERIC-PATHNAME FASD-FLAG PROCESS-FN
; From file OPEN.LISP#> QL.IO.FILE; LAD: (179)
(DEFVAR *NAMED-READER-ALIST* '((:T READ)(NIL READ))
; From file OPEN.LISP#> QL.IO.FILE; LAD: (179)
(DEFUN (:READ FILE-ATTRIBUTE-BINDINGS) (FILE IGNORE VAL)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-138.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-139.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.139
;;; Reason:
;;;  Fix logical pathname completion 
;;; Reason:
;;;  (in (:METHOD FS:LOGICAL-PATHNAME :COMPLETE-STRING)).
;;; Written 30-May-85 12:21:07 by dg,
;;; while running on Boris Badinoff from band 2
;;; with System 102.130, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.19, ZMail 57.4, Tiger 20.5, KERMIT 26.18, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, Official working band for Boris//Natasha -dg.
; From file PATHST.LISP#> QL.IO.FILE; LAD: (194)
(DEFMETHOD (LOGICAL-PATHNAME :COMPLETE-STRING) (STRING OPTIONS &AUX STRING1 FOO SUCCESS)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-139.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-141.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.141
;;; Reason:
;;;  Fix defstruct initialization.  Same patch as 104.8 --rg
;;; Written 30-May-85 23:48:42 by GJC,
;;; while running on Lambda Six from band 2
;;; with System 102.135, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.19, ZMail 57.6, Tiger 20.5, KERMIT 26.18, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.0, Experimental TCP-Server 32.0, microcode 768, Official working band for Boris//Natasha -dg.
; From file STRUCT.LISP#> QL.SYS2; LAD: (323)
(DEFUN DEFSTRUCT-PARSE-ONE-FIELD (IT NUMBER PPSS REST CONC-NAME #+MACLISP-10 CHARS
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-141.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-142.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 102.142
;;; Reason:
;;;  New Message to user in ZWEI:REPORT-BP-LOSSAGE.
;;; Reason:
;;;  Make the TYPE-PRETTY-NAME of type (fixnum 0) be  "a non-negative fixnum".
;;; Written 31-May-85 11:53:12 by dg,
;;; while running on Boris Badinoff from band 2
;;; with System 102.141, Local-File 56.7, FILE-Server 13.1, Unix-Interface 5.4, MagTape 40.19, ZMail 57.6, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, Official working band for Boris//Natasha -dg.
; From file NPRIM.LISP#> QL.ZWEI; LAD: (35)
(DEFUN REPORT-BP-LOSSAGE ()
; From file TYPES.LISP#> QL.SYS; LAD: (73)
(defun integer-type-name (type noun article)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-142.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-143.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 102.143
;;; Reason:
;;;  ODDP definition for interpreter. Fix DEFMIC next cold load.
;;; Written 31-May-85 15:02:59 by GJC,
;;; while running on Lambda Six from band 2
;;; with System 102.135, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.19, ZMail 57.6, Tiger 20.5, KERMIT 26.18, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.0, Experimental TCP-Server 32.2, microcode 768, Official working band for Boris//Natasha -dg.
; From file *Buffer-1*NIL
(defun oddp (x)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-143.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-144.LISP#2"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.144
;;; Reason:
;;;  make sure that file system is booted before error table is loaded from the local host.
;;; Written 7-Jun-85 08:47:38 by GJC,
;;; while running on Lambda Six from band 2
;;; with System 102.143, Local-File 56.7, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.5, Experimental TCP-Server 32.2, microcode 768, Official working band for Boris//Natasha -dg.
; From file EH.LISP#> QL.SYS2; LAD: (355)
(DEFUN LOAD-ERROR-TABLE (&aux pathname)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-144.QFASL#2"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-145.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.145
;;; Reason:
;;;  fix horrible stupid bug in WITH-TIMEOUT
;;; Written 7-Jun-85 17:22:55 by dg,
;;; while running on Boris Badinoff from band 2
;;; with System 102.143, Local-File 56.7, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental BURN-IN 2.1, microcode 768, Boris' Working Band.
; From file LMMAC.LISP#> QL.SYS2; LAD: (380)
(DEFMACRO WITH-TIMEOUT ((DURATION . TIMEOUT-FORMS) &BODY BODY)
; From file PROCES.LISP#> QL.SYS2; LAD: (165)
(DEFUN WITH-TIMEOUT-INTERNAL (DURATION PROCESS)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-145.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-146.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.146
;;; Reason:
;;;  more slots in system-configuration structure.
;;; Written 12-Jun-85 09:37:17 by GJC,
;;; while running on Lambda Six from band 2
;;; with System 102.144, Local-File 56.9, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.5, Experimental TCP-Server 32.2, microcode 770, Official working band for Boris//Natasha -dg.
; From file SYSCONF.LISP#> QL.COLD; LAD: (14)
(defconst system-configuration-qs '(
; From file SYSCONF.LISP#> QL.COLD; LAD: (14)
; From file SYSCONF.LISP#> QL.COLD; LAD: (14)
; From file CONFIG-DEFS.LISP#> QL.SYS; LAD: (7)
(define-accessors-for-structure system-configuration-qs)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-146.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-147.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.147
;;; Reason:
;;;  READ-DELIMITED-STRING no longer echoes the delimiter; READ[-]LINE echoes the delimiter
;;; Reason:
;;;   (Return or End) on interactive streams.
;;; Written 13-Jun-85 13:54:30 by rpk,
;;; while running on Test Lambda A from band 4
;;; with System 102.129, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.19, ZMail 57.4, Tiger 20.5, KERMIT 26.16, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, 102.129 vista portrait.
; From file QIO.LISP#> QL.IO; LAD: (214)
(defun read-line (&optional (stream *standard-input*) (eof-error-p t) eof-value recursive-p
; From file QIO.LISP#> QL.IO; LAD: (214)
(defun readline (&rest read-args)
; From file QIO.LISP#> QL.IO; LAD: (214)
(defun read-delimited-string (&optional (delimiter #/End) (stream *standard-input*)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-147.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-148.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.148
;;; Reason:
;;;  Fix m-X Apropos bug introduced in 102.67.
;;; Written 13-Jun-85 18:56:16 by RpK,
;;; while running on Lambda Five A from band 2
;;; with System 102.147, Local-File 56.9, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, lmi site info.
; From file DOC.LISP#> QL.ZWEI; LAD: (76)
(defun apropos-internal (use-any-extended-command-p)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-148.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-149.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.149
;;; Reason:
;;;  Make ISPELL handle # (not found) case right.
;;; Written 21-Jun-85 08:45:56 by JMTURN,
;;; while running on Dale from band 1
;;; with System 102.148, Local-File 56.9, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.6, Experimental TCP-Server 32.2, Experimental LMI Laser Printer II 8.1, microcode 768, Laser2.
; From file ISPELL.LISP#> QL.ZWEI; LAD: (50)
(DEFUN alist-of-CHECK-SPELLING-WORDLIST (words &aux checker)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-149.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-150.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 102.150
;;; Reason:
;;;  Add new feature for specifying printers
;;; Written 27-Jun-85 11:31:21 by RKR,
;;; while running on Boris Badinoff from band 2
;;; with System 102.145, Local-File 56.9, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental BURN-IN 2.4, Experimental LMI Laser Printer II 9.0, microcode 770, Boris' Working Band.
; From file HARDCOPY.LISP#> QL.IO1; LAD: (1)
(DEFINE-SITE-VARIABLE *PRINTER-NAMES* :PRINTER-NAMES
; From file HARDCOPY.LISP#> QL.IO1; LAD: (1)
(DEFUN EXPAND-PRINTER-NAME (PRINTER)
; From file HARDCOPY.LISP#> QL.IO1; LAD: (1)
(DEFUN HARDCOPY-FILE (FILE-NAME &REST OPTIONS
; From file HARDCOPY.LISP#> QL.IO1; LAD: (1)
(DEFUN HARDCOPY-STREAM (STREAM &REST OPTIONS
; From file HARDCOPY.LISP#> QL.IO1; LAD: (1)
(DEFUN HARDCOPY-BIT-ARRAY (ARRAY LEFT TOP RIGHT BOTTOM &REST OPTIONS
; From file HARDCOPY.LISP#> QL.IO1; LAD: (1)
(DEFUN HARDCOPY-STATUS (&OPTIONAL (PRINTER *DEFAULT-PRINTER*)
; From file HARDCOPY.LISP#> QL.IO1; LAD: (1)
(DEFUN (:PROPERTY :LPT PRINT-FILE) (PRINTER FILE-NAME
; From file HARDCOPY.LISP#> QL.IO1; LAD: (1)
(DEFUN (:PROPERTY :LPT PRINT-STREAM) (PRINTER STREAM
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-150.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-151.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.151
;;; Reason:
;;;  Decache sample pathnames when needed.  (Same as 104.32)
;;; Written 27-Jun-85 17:14:00 by RpK,
;;; while running on Lambda Five A from band 2
;;; with System 102.150, Local-File 56.9, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.21, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, lmi site info.
; From file PATHST.LISP#> L.IO.FILE; DJ: (196)
(DEFPROP LMFS-PATHNAME T PATHNAME-FLAVOR-CHANGES)
; From file LMPARS.LISP#> L.FILE; DJ: (117)
(DEFPROP LM-PATHNAME T PATHNAME-FLAVOR-CHANGES)
; From file PATHNM.LISP#> L.IO.FILE; DJ: (547)
(DEFUN FIX-SAMPLE-PATHNAMES-SITE ()
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-151.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-152.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.152
;;; Reason:
;;;  Make screen dumps understand new printer name format.
;;; Written 28-Jun-85 08:55:46 by JMTurn,
;;; while running on Dale from band 1
;;; with System 102.151, Local-File 56.9, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.21, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.6, Experimental TCP-Server 32.2, Experimental LMI Laser Printer II 8.4, microcode 768, Laser2.
; From file BASSTR.LISP#> QL.WINDOW; LAD: (383)
(DEFVAR *ESCAPE-KEYS*
; From file BASSTR.LISP#> QL.WINDOW; LAD: (383)
(DEFUN KBD-ESC-Q (ARG &AUX (PRINTER (OR SI:*DEFAULT-BIT-ARRAY-PRINTER* SI:*DEFAULT-PRINTER*)))
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-152.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-153.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.153
;;; Reason:
;;;  Don't loop on proceed from SYMBOL-NAME-CONFLICT condition.
;;; Written 30-Jun-85 17:46:10 by MT,
;;; while running on The Importance of Being Earnest from band 3
;;; with System 102.152, Local-File 56.9, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental Object Lisp 4.0, Experimental iris 2.0, Experimental LMI Laser Printer II 10.4, microcode 770.
; From file CLPACK.LISP#> QL.SYS; LAD: (158)
(defun export (symbols &optional (pkg *package*) force-flag)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-153.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-154.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.154
;;; Reason:
;;;  Make interval streams smarter about returning attributes.
;;; Written 1-Jul-85 14:37:44 by MT,
;;; while running on The Importance of Being Earnest from band 3
;;; with System 102.148, Local-File 56.9, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental Object Lisp 4.0, Experimental iris 2.0, microcode 770.
; From file METH.LISP#> QL.ZWEI; LAD: (48)
(defmethod (interval-stream :syntax-plist) ()
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-154.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-155.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.155
;;; Reason:
;;;  fix obvious bug in case such as (SXHASH '(A B C . D))
;;; Written 10-Jul-85 21:39:01 by GJC,
;;; while running on Bedlam from band 3
;;; with System 102.154, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.22, ZMail 57.9, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental TCP-Kernel 28.11, Experimental TCP-User 55.11, Experimental TCP-Server 32.2, microcode 770, 102.154 TCP.
; From file QRAND.LISP#> QL.SYS; LAD: (430)
(DEFUN SXHASH (X &OPTIONAL RANDOM-OBJECT-ACTION)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-155.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-156.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.156
;;; Reason:
;;;  Make file mode lines work again by undoing the ill-advised patch to ZMACS in SYSTEM-102-154.
;;; Written 10-Jul-85 22:00:40 by GJC,
;;; while running on Bedlam from band 3
;;; with System 102.154, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.22, ZMail 57.9, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental TCP-Kernel 28.11, Experimental TCP-User 55.11, Experimental TCP-Server 32.2, microcode 770, 102.154 TCP.
; From file METH.LISP#> QL.ZWEI; LAD: (49)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-156.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-157.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.157
;;; Reason:
;;;  Fix typo in *escape-keys* that broke Terminal Help
;;; Written 12-Jul-85 15:41:13 by MT,
;;; while running on The Importance of Being Earnest from band 3
;;; with System 102.156, Local-File 56.9, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental Object Lisp 4.0, Experimental iris 2.0, Experimental LMI Laser Printer II 11.0, microcode 770.
; From file BASSTR.LISP#> QL.WINDOW; LAD: (384)
(DEFVAR *ESCAPE-KEYS*
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-157.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-158.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.158
;;; Reason:
;;;  CHAOS:TRANSMIT-INT-PKT distinguishes between real broadcast and unknown
;;; Reason:
;;;   route actions (especially on non-Ethernet-owning processor).
;;; Written 23-Jul-85 09:52:33 by RpK,
;;; while running on Natasha Nogoodnik from band 2
;;; with System 102.157, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental BURN-IN 2.5, microcode 770, Boris' Working Band.
; From file CHSNCP.LISP#> QL.NETWORK.CHAOS; LAD: (315)
(DEFUN LAMBDA-TRANSMIT-INT-PKT (INT-PKT &OPTIONAL HOST SUBNET (broadcast-if-necessary t)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-158.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-159.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.159
;;; Reason:
;;;  New method:  (:METHOD ZWEI:ZMACS-BUFFER :WRITE-FILE-INTERNAL)
;;; Reason:
;;;  Changed WRITE-FILE-INTERNAL to call above method.
;;; Written 24-Jul-85 20:31:24 by Tim,
;;; while running on Dale from band 2
;;; with System 102.154, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.21, ZMail 57.9, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.6, Experimental TCP-Server 32.2, Experimental LMI Laser Printer II 11.0, microcode 768, Laser2 Released.
; From file ZMACS.LISP#> QL.ZWEI; LAD: (529)
(DEFUN WRITE-FILE-INTERNAL (PATHNAME &OPTIONAL (BUFFER *INTERVAL*))
; From file METH.LISP#> QL.ZWEI; LAD: (50)
(DEFMETHOD (ZMACS-BUFFER :WRITE-FILE-INTERNAL) (PATH)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-159.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-160.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.160
;;; Reason:
;;;  Purge leftover interrupts in the quad video board during lip-reinitialize.
;;; Written 8-Aug-85 18:04:16 by pace,
;;; while running on Natasha Nogoodnik from band 2
;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental BURN-IN 2.5, microcode 773, Boris' Working Band.
; From file LTOP.LISP#> QL.SYS; LAD: (508)
(DEFUN LISP-REINITIALIZE (&OPTIONAL (CALLED-BY-USER T)
; From file LTOP.LISP#> QL.SYS; LAD: (508)
(defun purge-quad-video ()
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-160.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-161.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.161
;;; Reason:
;;;  prompt-and-read fixed for case of stream with :prompt-and-read handler returning a NIL value.
;;; Written 10-Aug-85 11:46:32 by BED,
;;; while running on Lambda Five A from band 2
;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental BURN-IN 2.5, microcode 770, Boris' Working Band (for Landscape).
; From file QIO.LISP#> QL.IO; LAD: (216)
(defun prompt-and-read (option format-string &rest format-args)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-161.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-162.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.162
;;; Reason:
;;;  Allow reshaping of split-screen frames.  Also fixed in 2.1 source.
;;; Reason:
;;;   (RpK)
;;; Written 10-Aug-85 23:56:25 by GJC,
;;; while running on Boris Badinoff from band 2
;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental BURN-IN 2.5, microcode 773, Boris' Working Band.
; From file FRAME.LISP#> QL.WINDOW; LAD: (167)
(DEFFLAVOR SPLIT-SCREEN-FRAME () (scale-inferiors-mixin BASIC-FRAME))
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-162.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-163.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.163
;;; Reason:
;;;  Change braino in (:METHOD TV:BITBLT-BLINKER :BLINK).
;;; Reason:
;;;  Fix c-3.  Fix FS:SET-HOST-WORKING-DIRECTORY.
;;; Written 20-Aug-85 15:29:52 by RpK,
;;; while running on Mary had a little Lambda from band 2
;;; with System 102.162, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.7, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768.
; From file SHEET.LISP#> QL.WINDOW; LAD: (561)
(DEFMETHOD (BITBLT-BLINKER :BLINK) ()
; From file SCREEN.LISP#> QL.ZWEI; LAD: (470)
(DEFUN SWITCH-WINDOWS (&OPTIONAL CHANGE-INTERVAL (ONE-TO-SELECT 2))
; From file PATHNM.LISP#> QL.IO.FILE; LAD: (546)
(DEFUN SET-HOST-WORKING-DIRECTORY (HOST PATHNAME)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-163.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-164.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.164
;;; Reason:
;;;  Fix to GET case of FUNCTION-SPEC-DEFAULT-HANDLER required by objectlisp.
;;; Written 28-Aug-85 17:16:10 by GJC,
;;; while running on Lambda Six from band 3
;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental TCP-User 57.0, Experimental TCP-Server 33.0, Experimental Object Lisp 4.0, Experimental vista 2.0, TCP-Kernel 30.4, Experimental LM-Prolog 1.0, DOE-Macsyma 9.9, microcode 772, Education 2x2+ good stuff.
; From file QRAND.LISP#> QL.SYS; LAD: (431)
(DEFUN FUNCTION-SPEC-DEFAULT-HANDLER (FUNCTION FUNCTION-SPEC &OPTIONAL ARG1 ARG2)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-164.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-165.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.165
;;; Reason:
;;;  fix SDU method of :SET-CHAR-LENGTH to actually set it.
;;; Written 4-Sep-85 16:18:10 by GJC,
;;; while running on Lambda Six from band 3
;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental TCP-User 57.0, Experimental TCP-Server 33.0, Experimental Object Lisp 4.0, Experimental vista 2.0, Experimental TCP-Kernel 30.1, Experimental LM-Prolog 1.0, microcode 772, Education 2x2+ good stuff.
; From file SDU-SERIAL.LISP#> QL.IO1; LAD: (19)
(defmethod (sdu-serial-stream-mixin :set-char-length) (length)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-165.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-166.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.166
;;; Reason:
;;;  The default mouse click method of tv:basic-mouse-sensitive-items now
;;; Reason:
;;;  beeps if mouse click is not single left click or single right click.
;;; Reason:
;;;  It also now beeps on single right click selected mouse item does not
;;; Reason:
;;;  have an associated menu-alist.
;;; Written 11-Sep-85 20:38:35 by mhd,
;;; while running on Lambda Fifteen from band 3
;;; with System 102.122, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.3, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, microcode 768, 2.0 Process Systems 5/2/85 Fork..
; From file TYPWIN.LISP#> QL.WINDOW; LAD: (119)
(DEFMETHOD (BASIC-MOUSE-SENSITIVE-ITEMS :MOUSE-CLICK) (BUTTON X Y &AUX ITEM)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-166.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-167.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.167
;;; Reason:
;;;  fix make-dispatch-macro-character
;;; Written 18-Sep-85 11:02:19 by GJC,
;;; while running on Lambda Six from band 3
;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental TCP-User 57.0, Experimental TCP-Server 33.0, Experimental Object Lisp 4.0, Experimental vista 2.0, Experimental TCP-Kernel 30.1, Experimental LM-Prolog 1.0, Experimental PAPER-AIRPLANE 4.0, microcode 772, Education 2x2+ good stuff.
; From file READ.LISP#> QL.IO; LAD: (436)
(DEFUN MAKE-DISPATCH-MACRO-CHARACTER (CHAR &OPTIONAL NON-TERMINATING-P
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-167.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-168.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 102.168
;;; Reason:
;;;  Mouse process will no longer hang in command-menu-mixin's :after :mouse-buttons if io-buffer is full.
;;; Reason:
;;;  It will now give io-buffer-put a no-hang-p of t and on a nil return send the menu window a :beep.
;;; Written 18-Sep-85 12:22:45 by PECANN,
;;; while running on Waiting for Godot from band 4
;;; with System 102.162, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.7, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental ObjectLISP 1.0, Experimental vista 1.0, Experimental IRIS 1.0, DOE-Macsyma 9.9, Macsyma-Help-Database 1.1, microcode 778.
; From file MENU-PATCH.LISP#> PECANN; GOD: (1)
(DEFMETHOD (COMMAND-MENU-MIXIN :AFTER :MOUSE-BUTTONS) (BD IGNORE IGNORE)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-168.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-169.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.169
;;; Reason:
;;;  various small edits to fix bugs in a few COMMON-LISP functions.
;;; Written 21-Sep-85 01:44:37 by GJC,
;;; while running on Lambda Six from band 2
;;; with System 102.168, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.5, Experimental TCP-Server 32.2, microcode 768, Official working band for Boris//Natasha -dg.
; From file GENRIC.LISP#> QL.SYS; LAD: (29)
(defun subst-1 (new old-list tree key pred invertp)
; From file TYPES.LISP#> QL.SYS; LAD: (73)
(defun coerce-to-vector (object array-type &optional simplep &aux vector length)
; From file TYPES.LISP#> QL.SYS; LAD: (74)
(deff coerce-to-array-optimized #'coerce-to-vector)  ;Still used by old compiled code.
; From file EVAL.LISP#> QL.SYS; LAD: (94)
(defun proclaim (&rest declarations &aux d)
; From file CLPACK.LISP#> QL.SYS; LAD: (160)
(defun in-package (name &rest options &key use nicknames)
; From file READ.LISP#> QL.IO; LAD: (437)
(DEFUN SET-SYNTAX-FROM-CHAR (TO-CHAR FROM-CHAR &OPTIONAL
; From file READ.LISP#> QL.IO; LAD: (437)
(DEFUN SET-MACRO-CHARACTER (CHAR FUNCTION &OPTIONAL NON-TERMINATING-P
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-169.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-170.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.170
;;; Reason:
;;;  zwei:directory-input-stream now takes &rest options to fs:directory-list-stream
;;; Written 4-Oct-85 14:11:45 by GJC,
;;; while running on Lambda Six from band 2
;;; with System 102.169, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, TCP-Kernel 30.5, TCP-User 57.5, TCP-Server 33.0, microcode 768.
; From file FILES.LISP#> QL.ZWEI; LAD: (198)
(DEFUN DIRECTORY-INPUT-STREAM (DIRECTORY &REST OPTIONS &AUX (DIR DIRECTORY))
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-170.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-171.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.171
;;; Reason:
;;;  terminal-4-q for printing out superior which is a contraint-frame.
;;; Written 5-Nov-85 18:45:03 by GJC,
;;; while running on Lambda Five B from band 1
;;; with System 102.154, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.21, ZMail 57.9, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, microcode 768, 2.0 Process Systems 5/2/85 Fork..
; From file BASSTR.LISP#> QL.WINDOW; LAD: (386)
(DEFUN KBD-ESC-Q (ARG &AUX (PRINTER (OR SI:*DEFAULT-BIT-ARRAY-PRINTER* SI:*DEFAULT-PRINTER*)))
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-171.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-172.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.172
;;; Reason:
;;;  fixed sheet-display-x-y-centered-string which didn't center right
;;; Written 6-Nov-85 11:29:11 by EFH,
;;; while running on Waiting for Godot from band 3
;;; with System 102.170, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.10, KERMIT 26.21, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental ObjectLISP 2.0, Experimental vista 1.0, Experimental IRIS 1.0, microcode 778.
; From file SHWARM.LISP#> QL.WINDOW; LAD: (344)
(DEFUN SHEET-DISPLAY-X-Y-CENTERED-STRING (SHEET STRING
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-172.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-173.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.173
;;; Reason:
;;;  fix misuse of %BIND in FASL-OP-FRAME, subtle bug showed up only during loading of ADA system.
;;; Written 12-Nov-85 15:49:07 by GJC,
;;; while running on McGuffey from band 1
;;; with System 102.170, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.9, KERMIT 26.21, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, TCP-Kernel 30.5, TCP-User 57.7, TCP-Server 33.1, Experimental LMI Laser Printer II 11.2, DOE-Macsyma 9.15, microcode 768, Education 2x2.
; From file QFASL.LISP#> QL.SYS; LAD: (470)
(DEFUN FASL-NEXT-VALUE-BINDING-FASL-LIST-AREA (X)
; From file QFASL.LISP#> QL.SYS; LAD: (470)
(DEFUN FASL-OP-FRAME ()
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-173.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-174.LISP#2"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.174
;;; Reason:
;;;  Now supporting :set-parity :even, :odd, or NIL to the sdu-serial-stream.
;;; Written 23-Nov-85 14:40:00 by GJC,
;;; while running on Lambda Six from band 1
;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Server 33.1, microcode 778, 2.0 Process Systems 5/2/85 Fork..
; From file SDU-SERIAL.LISP#> QL.IO1; LAD: (20)
; From file SDU-SERIAL.LISP#> QL.IO1; LAD: (20)
(defflavor sdu-serial-stream-mixin
; From file SDU-SERIAL.LISP#> QL.IO1; LAD: (20)
(defmethod (sdu-serial-stream-mixin :reset) (&optional (abort-output :abort) (reset-chip t))
; From file SDU-SERIAL.LISP#> QL.IO1; LAD: (20)
(defmethod (sdu-serial-stream-mixin :set-parity) (type)
(defmethod (sdu-serial-stream-mixin :set-char-length) (length)
(defmethod (sdu-serial-stream-mixin :set-stop-bits) (length)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-174.QFASL#2"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-175.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.175
;;; Reason:
;;;  Pre-compile flavor methods for zwei:tag-table-dummy-file so selecting
;;; Reason:
;;;  tag table the first time shouldn't take as long. -mhd
;;; Written 3-Dec-85 21:09:17 by mhd,
;;; while running on Lambda Fifteen B from band 2
;;; with System 102.171, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.10, KERMIT 26.21, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Server 33.1, microcode 768, 2.0 Process Systems 5/2/85 Fork..
; From file SECTIO.LISP#> QL.ZWEI; LAD: (271)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-175.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-176.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.176
;;; Reason:
;;;  Fixed tv:mouse-set-blinker to set offsets if blinker is an instance
;;; Written 4-Dec-85 17:19:41 by EFH,
;;; while running on Lambda Fourteen from band 1
;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.12, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental ObjectLISP 1.0, Experimental vista 1.0, Experimental IRIS 1.0, microcode 773.
; From file MOUSE.LISP#> QL.WINDOW; LAD: (251)
(DEFUN MOUSE-SET-BLINKER (TYPE-OR-BLINKER &OPTIONAL X-OFFSET Y-OFFSET)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-176.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-177.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.177
;;; Reason:
;;;  Use %nubus-write-8 in EXECUTE-IOMSG.
;;; Written 27-Dec-85 20:27:36 by KKRYDA,
;;; while running on Lambda Four from band 2
;;; with System 102.154, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.21, ZMail 57.9, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental NewDraw 21.5, LMI Laser Printer II 3.6, Experimental TCP-Kernel 28.13, Experimental TCP-User 55.15, Experimental TCP-Server 32.5, microcode 768, 102.154 Lam.
; From file IOMSG.LISP#> QL.SYS; LAD: (23)
(defun execute-iomsg (iomsg)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-177.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-178.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.178
;;; Reason:
;;;  sets si:page-rqb-size to 1- number of maps
;;; Written 17-Jan-86 17:10:01 by EFH,
;;; while running on The Importance of Being Earnest from band 4
;;; with System 102.176, Local-File 56.13, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.10, KERMIT 26.25, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental ObjectLISP 2.0, Experimental vista 1.0, Experimental IRIS 1.0, TCP-Kernel 30.12, TCP-User 57.11, TCP-Server 33.5, microcode 783, LAM.
; From file CONFIG.LISP#> QL.SYS; LAD: (35)
(defun find-processor-configuration-structure ()
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-178.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-179.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.179
;;; Reason:
;;;  like 102.178 but with more feeling. bump page-rqb-size down by 2
;;; Written 20-Jan-86 12:13:41 by EFH,
;;; while running on The Importance of Being Earnest from band 4
;;; with System 102.176, Local-File 56.13, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.10, KERMIT 26.25, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental ObjectLISP 2.0, Experimental vista 1.0, Experimental IRIS 1.0, TCP-Kernel 30.12, TCP-User 57.11, TCP-Server 33.5, microcode 783, LAM.
; From file CONFIG.LISP#> QL.SYS; LAD: (35)
(defun find-processor-configuration-structure ()
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-179.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-180.LISP#2"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.180
;;; Reason:
;;;  Patch tv:WINDOW-INITIALIZE to avoid possible reference to GREY before it is initialized.
;;; Reason:
;;;  This can happen with certain beta-test SDU versions.
;;; Written 23-Jan-86 01:22:38 by rg,
;;; while running on Waiting for Godot from band 4
;;; with System 102.176, Local-File 56.13, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.10, KERMIT 26.25, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental ObjectLISP 2.0, Experimental vista 1.0, Experimental IRIS 1.0, TCP-Kernel 30.12, TCP-User 57.11, TCP-Server 33.5, microcode 783, LAM.
; From file SHWARM.LISP#> QL.WINDOW; LAD: (345)
(DEFUN WINDOW-INITIALIZE (&AUX FIRST-TIME)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-180.QFASL#2"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-181.LISP#1"
;;; -*- Mode:LISP; Package:SYSTEM-INTERNALS; Patch-File:T; Base:8; Readtable:T -*-
;;; Patch file for System version 102.181
;;; Reason:
;;;  Add DONT-USE-3COM, so that si:set-processor-owning-ethernet can be told
;;; Reason:
;;;  to leave 3com alone, so that RTIME can use it for raw ethernet.
;;; Written 28-Jan-86 00:58:41 by bobp,
;;; while running on McGuffey from band 4
;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, 102.117a 121985.
; From file CONFIG.LISP#> QL.SYS; LAD: (36)
(defvar dont-use-3com nil
(defun set-processor-owning-ethernet (&optional (operation :find))
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-181.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-182.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.182
;;; Reason:
;;;  New macro, compiler:with-open-fasd-file, and function,
;;; Reason:
;;;  compiler:dump-forms-to-fasd-stream, which can be used together to define
;;; Reason:
;;;  dump-forms-to-file, which they now are.  The main purpose of doing this
;;; Reason:
;;;  was to allow a program to get the truename of the file being written
;;; Reason:
;;;  before and during its writing. -mhd
;;; Written 3-Feb-86 18:32:35 by AGH,
;;; while running on Lambda Fifteen B from band 2
;;; with System 102.180, Local-File 56.13, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.12, TCP-User 57.12, TCP-Server 33.5, microcode 783, 2.0 Process Systems 5/2/85 Fork..
; From file QCFASD.LISP#> QL.SYS; LAD: (251)
(defmacro with-open-fasd-file ((stream-variable filename &optional attribute-list) &body body)
(defun open-fasd-file (filename)
(defun dump-forms-to-fasd-stream (fasd-stream forms-list)
(DEFUN DUMP-FORMS-TO-FILE (FILENAME FORMS-LIST &OPTIONAL ATTRIBUTE-LIST)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-182.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-183.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 102.183
;;; Reason:
;;;  Fix time:read-rtc-register and write-rtc-register to do 8-bit nubus
;;; Reason:
;;;  transfers (as already done for 3.0)
;;; Written 12-Mar-86 21:35:06 by bobp,
;;; while running on Emma Willard from band 1
;;; with System 102.182, Local-File 56.16, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.16, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental LM-Prolog 1.0, microcode 768, 102.117p 012386.
; From file TIME.LISP#> QL.IO1; LAD: (113)
(defun read-rtc-register (adr)
(defun write-rtc-register (adr data)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-183.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-184.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.184
;;; Reason:
;;;  Make sure shared memory size is not bigger that spaced that is mapped for it in the virtual memory.
;;; Written 19-Mar-86 17:05:59 by naha,
;;; while running on TEST LAMBDA A from band 3
;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 782, 102.117.
; From file CONFIG.LISP#> QL.SYS; LAD: (38)
(defun set-up-shared-memory ()
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-184.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-185.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 102.185
;;; Reason:
;;;  fs:network-path-available, in file-access
;;; Written 29-Mar-86 08:39:50 by GJC,
;;; while running on Dan Dare from band 1
;;; with System 102.184, Local-File 56.16, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, TCP-Kernel 30.12, TCP-User 57.12, TCP-Server 33.5, microcode 783.
; From file ACCESS.LISP#> QL.IO.FILE; LAD: (18)
(DEFUN PERMISSIBLE-ACCESS-PATH-FLAVOR-P (HOST ACCESS-D &AUX COND-TYPE COND-ARGS)
; From file ACCESS.LISP#> QL.IO.FILE; LAD: (18)
(DEFUN NETWORK-PATH-AVAILABLE (TYPE HOST)
(DEFUN DEFAULT-NETWORK-PATH-AVAILABLE (HOST)
(DEFUN LOCAL-HOSTP (TO-HOST)
(DEFUN OTHER-BUS-LOCAL-HOSTP (HOST)
(DEFUN (:CHAOS NETWORK-PATH-AVAILABLE) (TO-HOST)
(DEFVAR *NETWORK-FUNCTIONS* NIL)
(DEFMACRO DEFINE-NETWORK-FUNCTION (NAME ARGUMENT-LIST &BODY BODY)
(DEFINE-NETWORK-FUNCTION GET-REMOTE-DISK-UNIT (HOST UNIT USAGE &OPTIONAL INITP WRITEP)
(DEFINE-NETWORK-FUNCTION HOST-STATUS (HOST &REST SIMILAR-HOSTS)
(DEFINE-NETWORK-FUNCTION SEND-TERMINAL-MESSAGE (HOST USER MESSAGE-GENERATOR)
(DEFINE-NETWORK-FUNCTION FINGER-HOST (HOST USER OUTPUT-STREAM STYLE)
(DEFINE-NETWORK-FUNCTION OPEN-REMOTE-TAPE-SERVER (HOST)
(DEFVAR *NETWORK-PROTOCOLS* '(:CHAOS :INTERNET))
(DEFUN INVOKE-CORRECT-NETWORK-FUNCTION (NAME HOST ARGS)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-185.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-186.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.186
;;; Reason:
;;;  print-disk-label et. al. now use generic network function interface.
;;; Written 29-Mar-86 08:52:45 by GJC,
;;; while running on Dan Dare from band 1
;;; with System 102.185, Local-File 56.16, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, TCP-Kernel 30.12, TCP-User 57.12, TCP-Server 33.5, microcode 783.
; From file DISK.LISP#> QL.IO; LAD: (318)
(DEFUN DECODE-UNIT-ARGUMENT (UNIT USE &OPTIONAL (CC-DISK-INIT-P NIL) (WRITE-P NIL)
; From file DISK.LISP#> QL.IO; LAD: (318)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-186.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-187.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 102.187
;;; Reason:
;;;  from release 3.0, fix to describe-file-id for files with unknown creation dates
;;; Written 30-Mar-86 00:08:32 by GJC,
;;; while running on Dan Dare from band 1
;;; with System 102.186, Local-File 56.16, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, TCP-Kernel 30.12, TCP-User 57.14, TCP-Server 33.8, microcode 783.
; From file ZMACS.LISP#> QL.ZWEI; LAD: (530)
(DEFUN DESCRIBE-FILE-ID (FILE-ID)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-187.QFASL#1"

Report on directory of patches: #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57.PATCH-DIRECTORY#23"
;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T -*-
;;; Patch directory for ZMail version 57
;;; Written 15-Jul-85 14:48:07 by gjc,
;;; while running on Bedlam from band 3
;;; with System 102.157, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.22, ZMail 57.9, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental TCP-Kernel 28.11, Experimental TCP-User 55.11, Experimental TCP-Server 32.2, microcode 770, 102.154 TCP.

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-3.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:ZWEI; Base:8; Patch-File:T -*-
;;; Patch file for ZMail version 57.3
;;; Reason:
;;;  More concise buffer names for Move and Select documentation items.
;;; Written 30-Apr-85 17:22:17 by RpK,
;;; while running on Lambda Six from band 3
;;; with System 102.121, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, DOE-Macsyma 9.9, Macsyma-Help-Database 1.1, Experimental NewDraw 15.2, microcode 762.
; From file COMNDS.LISP#> QL.ZMAIL; LAM3: (585)
(DEFINE-COMMAND-WHO-LINE-DOCUMENTATION-UPDATER GET-DEFAULTED-MOVE-ZMAIL-BUFFER
; From file FILTER.LISP#> QL.ZMAIL; LAM3: (357)
(DEFINE-COMMAND-WHO-LINE-DOCUMENTATION-UPDATER COM-ZMAIL-SELECT (STRING)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-3.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-4.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:ZWEI; Base:8; Patch-File:T -*-
;;; Patch file for ZMail version 57.4
;;; Reason:
;;;  Make Zmail Profile editing window work. (Bad Comtab)
;;; Written 8-May-85 20:48:28 by JMTurn,
;;; while running on Dale from band 4
;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768.
; From file PROFIL.LISP#> QL.ZMAIL; LAM3: (124)
(DEFINE-ZMAIL-TOP-LEVEL-COMMAND COM-ZMAIL-PROFILE
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-4.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-5.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:ZWEI; Base:8; Patch-File:T -*-
;;; Patch file for ZMail version 57.5
;;; Reason:
;;;  Fix cretinous lossage in ZMAIL-BUFFER-PREDICATE-QUERY
;;; Reason:
;;;  used when attempting to delete expired messages and in other cases.
;;; Written 17-May-85 10:42:16 by dg,
;;; while running on Boris Badinoff from band 2
;;; with System 102.130, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.19, ZMail 57.4, Tiger 20.5, KERMIT 26.18, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, Official working band for Boris//Natasha -dg.
; From file COMNDS.LISP#> QL.ZMAIL; LAD: (586)
(DEFUN ZMAIL-BUFFER-PREDICATE-QUERY (ZMAIL-BUFFER PREDICATE ACTION ATTRIBUTE &AUX ARRAY)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-5.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-6.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:ZWEI; Base:8; Patch-File:T -*-
;;; Patch file for ZMail version 57.6
;;; Reason:
;;;  Fix handling of new keywords.
;;; Written 22-May-85 14:49:07 by MT,
;;; while running on Boris Badinoff from band 2
;;; with System 102.135, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.19, ZMail 57.4, Tiger 20.5, KERMIT 26.18, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, Official working band for Boris//Natasha -dg.
; From file WINDOW.LISP#> QL.ZMAIL; LAD: (343)
(DEFMETHOD (ZMAIL-MULTIPLE-MENU-MIXIN :MULTIPLE-CHOOSE) (ITEM-LIST CURRENTLY-ACTIVE
; From file COMNDS.LISP#> QL.ZMAIL; LAD: (587)
(DEFUN ZMAIL-KEYWORDS-MSG (MSG &AUX OLD-KEYWORDS NEW-KEYWORDS)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-6.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-7.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:ZWEI; Base:8; Patch-File:T -*-
;;; Patch file for ZMail version 57.7
;;; Reason:
;;;  Make message summary line format option in BABYL files work.
;;; Written 4-Jun-85 14:29:13 by dg,
;;; while running on Boris Badinoff from band 2
;;; with System 102.130, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.19, ZMail 57.4, Tiger 20.5, KERMIT 26.18, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, Official working band for Boris//Natasha -dg.
; From file MFILES.LISP#> QL.ZMAIL; LAD: (326)
(DEFUN CHOOSE-MAIL-FILE-OPTIONS (ZMAIL-BUFFER &AUX OLD-FLAVOR OLD-APPEND-P PATHNAME FLAVOR
; From file WINDOW.LISP#> QL.ZMAIL; LAD: (344)
(DEFUN SET-MSG-SUMMARY-LINE (MSG STATUS &OPTIONAL LINE &AUX TEMPLATE)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-7.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-8.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:ZWEI; Base:8; Patch-File:T -*-
;;; Patch file for ZMail version 57.8
;;; Reason:
;;;  Filter getting window bugs.
;;; Reason:
;;;  Stop ZMail from being too clever about the user's init file.
;;; Reason:
;;;  Include Personal format now uses @; Long format still uses ``at'' and is considered
;;; Reason:
;;;   obsolete.
;;; Written 28-Jun-85 15:48:10 by RpK,
;;; while running on Boris Badinoff from band 2
;;; with System 102.152, Local-File 56.9, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.21, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental BURN-IN 2.4, microcode 770, Boris' Working Band.
; From file TOP.LISP#> QL.ZMAIL; LAD: (554)
(DEFUN RESET-ZMAIL-USER (&AUX (OLD-FRACT *SUMMARY-WINDOW-FRACTION*))
; From file FILTER.LISP#> QL.ZMAIL; LAD: (358)
(DEFUN GET-FILTER-FUNCTION-1 (MAP-FUNCTION MAP-ARG NAME NEAR-MODE
; From file MAIL.LISP#> QL.ZMAIL; LAD: (311)
(DEFUN STRING-FROM-HEADER (HEADER FORMAT &AUX (PLIST (LOCF HEADER)) TEM)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-8.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-9.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:ZWEI; Base:8; Patch-File:T -*-
;;; Patch file for ZMail version 57.9
;;; Reason:
;;;  Make sure to write out full pathname of other mail files.
;;; Written 2-Jul-85 20:30:49 by RpK,
;;; while running on Natasha Nogoodnik from band 2
;;; with System 102.154, Local-File 56.9, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.21, ZMail 57.8, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental BURN-IN 2.4, microcode 770, Boris' Working Band.
; From file PROFIL.LISP#> QL.ZMAIL; LAD: (125)
(DEFUN EDIT-PROFILE-REMEMBERED-MAIL-FILES (NEAR-MODE)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-9.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-10.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:ZWEI; Base:8; Patch-File:T -*-
;;; Patch file for ZMail version 57.10
;;; Reason:
;;;  extensions for SMTP, now have default mail mode of :SMTP and :SMTP-MAIL-SERVER-HOSTS.
;;; Written 15-Jul-85 14:46:12 by gjc,
;;; while running on Bedlam from band 3
;;; with System 102.157, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.22, ZMail 57.9, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental TCP-Kernel 28.11, Experimental TCP-User 55.11, Experimental TCP-Server 32.2, microcode 770, 102.154 TCP.
; From file MAIL.LISP#> QL.ZMAIL; LAD: (313)
(DEFINE-SITE-HOST-LIST *MAIL-SMTP-HOSTS* :SMTP-MAIL-SERVER-HOSTS)
(DEFUN SMTP-SEND-IT (PLIST INTERVAL TEMPLATE)
; From file DEFS.LISP#> QL.ZMAIL; LAD: (274)
(DEFVAR *MAIL-SENDING-MODE-ALIST*
Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-10.QFASL#1"

Report on directory of patches: #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX-PATCH-5.DIRECTORY#15"
;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T -*-
;;; Patch directory for Unix-Interface version 5
;;; Written 22-Jul-85 14:27:36 by mhd,
;;; while running on Lambda Five A from band 2
;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, lmi site info.

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX-PATCH-5-4.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:UNIX; Base:8; Patch-File:T -*-
;;; Patch file for Unix-Interface version 5.4
;;; Reason:
;;;  Make System-U act nicer when it can't find a unix stream.
;;; Written 30-May-85 16:25:21 by dg,
;;; while running on Boris Badinoff from band 2
;;; with System 102.139, Local-File 56.7, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.19, ZMail 57.6, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, Official working band for Boris//Natasha -dg.
; From file LAMTTY.LISP#> QL.UNIX; LAD: (51)
(defun find-unix-stream (with-login-p)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX-PATCH-5-4.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX-PATCH-5-5.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:UNIX; Base:8; Patch-File:T -*-
;;; Patch file for Unix-Interface version 5.5
;;; Reason:
;;;  proper buffer wrapping for lamtty serial streams
;;; Written 22-Jul-85 12:19:36 by pace,
;;; while running on Lambda Five B from band 2
;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, lmi site info.
; From file LAMTTY.LISP#> QL.UNIX; LAD: (53)
(defmethod (unix-stream :space-available) ()
(defmethod (unix-stream :new-output-buffer) ()
Object file for patches is #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX-PATCH-5-5.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX-PATCH-5-6.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:UNIX; Base:8; Patch-File:T -*-
;;; Patch file for Unix-Interface version 5.6
;;; Reason:
;;;  Make :after :describe format numbers with ~S so numbers print out same as in
;;; Reason:
;;;  the primary :describe method. (-mhd)
;;; Written 22-Jul-85 14:25:25 by mhd,
;;; while running on Lambda Five A from band 2
;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, lmi site info.
; From file LAMTTY.LISP#> QL.UNIX; LAD: (54)
(defmethod (unix-stream :after :describe) ()
Object file for patches is #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX-PATCH-5-6.QFASL#1"

Report on directory of patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56.DIRECTORY#37"
;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T -*-
;;; Patch directory for Local-File version 56
;;; Written 27-Feb-86 08:47:37 by mhd,
;;; while running on Lambda Five from band 3
;;; with System 102.180, Local-File 56.13, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.12, TCP-User 57.12, TCP-Server 33.5, microcode 783, 2.0 LMI Site AI-BASE Load.

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-7.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:10; Patch-File:T -*-
;;; Patch file for Local-File version 56.7
;;; Reason:
;;;  :estimated-length option, needed by FTP server
;;; Written 22-May-85 21:27:36 by gjc,
;;; while running on Lambda Six from band 2
;;; with System 102.135, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.19, ZMail 57.6, Tiger 20.5, KERMIT 26.18, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.0, Experimental TCP-Server 32.0, microcode 768, Official working band for Boris//Natasha -dg.
; From file FSGUTS.LISP#> QL.FILE; LAD: (383)
(DEFUN LMFS-OPEN-FILE (PATHNAME DIRECTORY NAME TYPE VERSION
Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-7.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-8.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:10; Patch-File:T -*-
;;; Patch file for Local-File version 56.8
;;; Reason:
;;;  required patch in order to run with two disk units
;;; Written 6-Jun-85 15:00:32 by GJC,
;;; while running on Lambda Six from band 2
;;; with System 102.143, Local-File 56.7, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.5, Experimental TCP-Server 32.2, microcode 768, Official working band for Boris//Natasha -dg.
; From file FSGUTS.LISP#> QL.FILE; LAD: (385)
(DEFUN FIND-LM-BAND ()
Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-8.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-9.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:10; Patch-File:T -*-
;;; Patch file for Local-File version 56.9
;;; Reason:
;;;  dual disk fix
;;; Written 6-Jun-85 18:45:03 by SARAH,
;;; while running on Huh ? [No Chaos Address] from band 1
;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768.
; From file FSGUTS.LISP#> QL.FILE; LAD: (385)
(DEFUN FIND-LM-BAND ()
Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-9.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-10.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:10; Patch-File:T -*-
;;; Patch file for Local-File version 56.10
;;; Reason:
;;;  Add :NOT-BACKED-UP option to LMFS-DIRECTORY-LIST to filter out files
;;; Reason:
;;;  that have been backed up, when desirable.  The test is put
;;; Reason:
;;;  to eliminate unnecessary consing of pathnames.
;;; Written 3-Jul-85 20:30:28 by dg,
;;; while running on Boris Badinoff from band 2
;;; with System 102.145, Local-File 56.9, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental BURN-IN 2.4, microcode 770, Boris' Working Band.
; From file FSGUTS.LISP#> QL.FILE; LAD: (385)
(DEFUN LMFS-DIRECTORY-LIST (PATHNAME HOST DIRECTORY NAME TYPE VERSION OPTIONS
Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-10.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-11.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:10; Patch-File:T -*-
;;; Patch file for Local-File version 56.11
;;; Reason:
;;;  More efficient implementation of the last patch.
;;; Written 3-Jul-85 20:36:35 by dg,
;;; while running on Boris Badinoff from band 2
;;; with System 102.145, Local-File 56.9, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental BURN-IN 2.4, microcode 770, Boris' Working Band.
; From file FSGUTS.LISP#> QL.FILE; LAD: (386)
(DEFUN LMFS-DIRECTORY-LIST (PATHNAME HOST DIRECTORY NAME TYPE VERSION OPTIONS
Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-11.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-12.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:10; Patch-File:T -*-
;;; Patch file for Local-File version 56.12
;;; Reason:
;;;  prevent filesystem death on filenames such as ".FOO"
;;; Written 15-Aug-85 14:25:30 by GJC,
;;; while running on Lambda Six from band 3
;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental TCP-User 57.0, Experimental TCP-Server 33.0, Experimental Object Lisp 4.0, Experimental vista 2.0, Experimental TCP-Kernel 30.1, Experimental LM-Prolog 1.0, microcode 772, Education 2x2+ good stuff.
; From file FSGUTS.LISP#> QL.FILE; LAD: (388)
(DEFUN DIRECTORY-ENTRY-STRING-CHECK (S)
; From file FSGUTS.LISP#> QL.FILE; LAD: (388)
(DEFUN WRITE-DIRECTORY-ENTRY (STREAM FILE)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-12.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-13.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:10; Patch-File:T -*-
;;; Patch file for Local-File version 56.13
;;; Reason:
;;;  Raise FS::PUT-MINIMUM-FREE-PAGES to 256 to increase warning time before
;;; Reason:
;;;  file system runs out of space.  KHS 851218.
;;; Written 18-Dec-85 10:56:50 by mhd,
;;; while running on Lambda Five from band 4
;;; with System 102.122, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.3, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, microcode 768, 2.0 Process Systems 5/2/85 Fork (11/16/85)..
; From file FSDEFS.LISP#> QL.FILE; LAD: (184)
(DEFVAR PUT-MINIMUM-FREE-PAGES 256.)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-13.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-14.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:10; Patch-File:T -*-
;;; Patch file for Local-File version 56.14
;;; Reason:
;;;  Call FS:MAINT-SALVAGE is you have problems with FS:LM-SALVAGE
;;; Written 14-Feb-86 11:44:26 by mrc,
;;; while running on Mary had a little Lambda from band 3
;;; with System 102.176, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.25, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental ObjectLISP 1.0, Experimental vista 1.0, Experimental IRIS 1.0, microcode 768, Last(?) 2.0.
; From file FSGUTS.LISP#> QL.FILE; LAD: (393)
(defun maint-salvage (&optional (shutdown t) &aux bad)
(defun maint-killable-files (&aux bad-boys truename probed)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-14.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-15.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:10; Patch-File:T -*-
;;; Patch file for Local-File version 56.15
;;; Reason:
;;;  Add new function (by GJC, mostly), fs:maint-salvage, which
;;; Reason:
;;;  calls lm-salvage, and then fixes the lossage caused by 2 files
;;; Reason:
;;;  in same locations, which is caused, mostly, I believe, by doing 
;;; Reason:
;;;  deletions from subdirectories. -mhd
;;; Written 19-Feb-86 15:29:56 by JAM,
;;; while running on Lambda Five from band 4
;;; with System 102.122, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.3, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, microcode 768, 2.0 Process Systems 5/2/85 Fork (11/16/85)..
; From file FSGUTS.LISP#> QL.FILE; LAD: (393)
(defun maint-salvage (&optional (shutdown nil) query &aux bad)
(defun maint-killable-files (&optional query &aux bad-boys truename probed)
(defun maint-delete-and-expunge (&optional filename query &aux pathname file)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-15.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-16.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:10; Patch-File:T -*-
;;; Patch file for Local-File version 56.16
;;; Reason:
;;;  Fix bug in maint-salvage that it doesn't write out core file
;;; Reason:
;;;  system onto disk at the end, so that all its fixes are lost at 
;;; Reason:
;;;  each time the file system is booted. -mhd and gjc
;;; Written 27-Feb-86 08:42:08 by mhd,
;;; while running on Lambda Five from band 3
;;; with System 102.180, Local-File 56.13, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.12, TCP-User 57.12, TCP-Server 33.5, microcode 783, 2.0 LMI Site AI-BASE Load.
; From file FSGUTS.LISP#> QL.FILE; LAD: (396)
(defun maint-salvage (&optional (shutdown nil) query &aux bad)
; From file FSGUTS.LISP#> QL.FILE; LAD: (396)
(defun maint-killable-files (&optional query &aux bad-boys truename probed)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-16.QFASL#1"

Report on directory of patches: #FS::LM-PATHNAME "LAD: QL.FILE; SERVER-13.DIRECTORY#11"
;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T -*-
;;; Patch directory for FILE-Server version 13
;;; Written 5-Jun-85 11:01:41 by GJC,
;;; while running on Lambda Six from band 2
;;; with System 102.143, Local-File 56.7, FILE-Server 13.1, Unix-Interface 5.4, MagTape 40.19, ZMail 57.6, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.3, Experimental TCP-Server 32.2, microcode 768, Official working band for Boris//Natasha -dg.

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; SERVER-13-2.LISP#2"
;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:8; Patch-File:T -*-
;;; Patch file for FILE-Server version 13.2
;;; Reason:
;;;  general fies plus *parse-for-server-device-kludge*
;;; Written 5-Jun-85 10:59:04 by GJC,
;;; while running on Lambda Six from band 2
;;; with System 102.143, Local-File 56.7, FILE-Server 13.1, Unix-Interface 5.4, MagTape 40.19, ZMail 57.6, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.3, Experimental TCP-Server 32.2, microcode 768, Official working band for Boris//Natasha -dg.
; From file SERVER.LISP#> QL.FILE; LAD: (163)
(defun cv-time (x) (time:print-universal-time (or x 0) nil nil ':mm//dd//yy))
; From file SERVER.LISP#> QL.FILE; LAD: (163)
(defun rfile-server ()
; From file SERVER.LISP#> QL.FILE; LAD: (163)
(defun open-err (&rest args)
; From file SERVER.LISP#> QL.FILE; LAD: (163)
(defvar *lmfs-parse-for-server-device-kludge* nil
; From file SERVER.LISP#> QL.FILE; LAD: (163)
(defun lmfs-parse-for-server (string)
; From file SERVER.LISP#> QL.FILE; LAD: (163)
(defun file-server-open-for-lispm (fh filename &rest modes
Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; SERVER-13-2.QFASL#2"

Report on directory of patches: #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40.DIRECTORY#49"
;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T -*-
;;; Patch directory for MagTape version 40
;;; Written 24-Oct-85 12:07:10 by FileMan,
;;; while running on Aladdin from band 2
;;; with System 102.171, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.10, KERMIT 26.21, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Mailer 1.2, microcode 768, 2.0 Process Systems 5/2/85 Fork..

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-17.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for MagTape version 40.17
;;; Reason:
;;;  COPY-DIRECTORY isn't so stupid about the destination anymore.
;;; Written 30-Apr-85 22:13:15 by RpK,
;;; while running on Lambda Six from band 3
;;; with System 102.122, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.3, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, DOE-Macsyma 9.9, Macsyma-Help-Database 1.1, Experimental NewDraw 15.2, microcode 762.
; From file COPY.LISP#> QL.TAPE; LAM3: (150)
(DEFUN COPY-DIRECTORY (DIR TO &OPTIONAL &REST OPTIONS
Object file for patches is #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-17.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-18.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for MagTape version 40.18
;;; Reason:
;;;  TOPS20:RESTORE-TAPE now takes :TRANSFORM argument (like FS:RESTORE-MAGTAPE).
;;; Written 8-May-85 17:33:20 by FileMan,
;;; while running on Lambda Three from band 1
;;; with System 102.118, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental Mailer 1.2, Experimental Backup/Restore Facility 1.3, microcode 762, Education 2x2+ 102.92 16m Idle Ucomp.
; From file TOPS20.LISP#> QL.TAPE; LAM3: (11)
(defvar *transform* nil)
(defun open-file-from-tops20-spec (x &aux p1 p2 stream ans)
; From file TOPS20.LISP#> QL.TAPE; LAM3: (11)
(defun restore-tape (&optional &key
Object file for patches is #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-18.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-19.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for MagTape version 40.19
;;; Reason:
;;;  Yet another bug in COPY-DIRECTORY...
;;; Written 8-May-85 18:02:52 by FileMan,
;;; while running on Lambda Three from band 1
;;; with System 102.129, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.18, ZMail 57.3, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental Mailer 1.2, Experimental Backup/Restore Facility 1.3, microcode 762, Education 2x2+ 102.92 16m Idle Ucomp.
; From file COPY.LISP#> QL.TAPE; LAM3: (150)
(DEFUN COPY-DIRECTORY (DIR TO &OPTIONAL &REST OPTIONS
Object file for patches is #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-19.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-20.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for MagTape version 40.20
;;; Reason:
;;;  Add FS:*DEFAULT-DENSITY* global variable and substitiute this in
;;; Reason:
;;;  various functions' lambda lists for the default density.
;;; Written 19-Jun-85 18:31:21 by dg,
;;; while running on Boris Badinoff from band 2
;;; with System 102.145, Local-File 56.9, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental BURN-IN 2.4, microcode 770, Boris' Working Band.
; From file MTDEFS.LISP#> QL.TAPE; LAD: (52)
(DEFVAR *DEFAULT-DENSITY* 0
; From file TMSTR.LISP#> QL.TAPE; LAD: (14)
(DEFFLAVOR TM-MIXIN
; From file MTSTR.LISP#> QL.TAPE; LAD: (125)
(DEFFLAVOR MT-MIXIN
; From file MTSTR.LISP#> QL.TAPE; LAD: (125)
(DEFUN MAKE-MT-STREAM (&OPTIONAL &KEY (DIRECTION :INPUT) (BYTE-SIZE 8) (CHARACTERS T)
; From file MTSTR.LISP#> QL.TAPE; LAD: (125)
(DEFUN MAKE-MT-FILE-STREAM (&OPTIONAL
; From file MTDEFS.LISP#> QL.TAPE; LAD: (52)
(DEFUN MT-RUN (RQB COMMAND
Object file for patches is #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-20.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-21.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for MagTape version 40.21
;;; Reason:
;;;  :version :newest OK in tape property lists
;;; Written 22-Jun-85 14:25:30 by scott,
;;; while running on Lambda Twelve from band 1
;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental NewDraw 21.4, microcode 768.
; From file MTSTR.LISP#> QL.TAPE; LAD: (126)
(defconst tape-file-property-type-plist
Object file for patches is #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-21.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-22.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for MagTape version 40.22
;;; Reason:
;;;  Fix DETERMINE-COPY-DESTINATION to find "MT:" sooner, to avoid
;;; Reason:
;;;  losing SI:PARSE-HOST lookups to host table server (lam3).
;;; Written 9-Jul-85 20:30:05 by dg,
;;; while running on Boris Badinoff from band 2
;;; with System 102.145, Local-File 56.9, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental BURN-IN 2.4, microcode 770, Boris' Working Band.
; From file COPY.LISP#> QL.TAPE; LAD: (151)
(DEFUN DETERMINE-COPY-DESTINATION (TO TRUENAME QFASLP INSTREAM)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-22.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-23.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for MagTape version 40.23
;;; Reason:
;;;  Fix PRINLENGTH lossage for tape file plists. -dg
;;; Written 24-Oct-85 12:06:13 by FileMan,
;;; while running on Aladdin from band 2
;;; with System 102.171, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.10, KERMIT 26.21, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Mailer 1.2, microcode 768, 2.0 Process Systems 5/2/85 Fork..
; From file MTSTR.LISP#> QL.TAPE; LAD: (127)
(DEFUN WRITE-MAGTAPE-HEADER (STREAM PLIST &OPTIONAL (STYLE :MIT))
Object file for patches is #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-23.QFASL#1"

Report on directory of patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20.DIRECTORY#48"
;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T -*-
;;; Patch directory for Tiger version 20
;;; Written 17-Jan-86 22:47:35 by mhd,
;;; while running on Lambda Ten from band 2
;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, LMI Site.

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-6.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for Tiger version 20.6
;;; Reason:
;;;  fix filename default merging problems with respect to tiger-queue directory
;;; Written 28-May-85 15:46:35 by GJC,
;;; while running on Lambda Six from band 2
;;; with System 102.135, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.19, ZMail 57.6, Tiger 20.5, KERMIT 26.18, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.0, Experimental TCP-Server 32.0, microcode 768, Official working band for Boris//Natasha -dg.
; From file USER.LISP#> QL.TIGER; LAD: (73)
(defun make-tiger-queue-directory-filename (host name type)
; From file SERVER.LISP#> QL.TIGER; LAD: (190)
(defun tiger-array-entry-1 (array sender user always-spool-p &rest options &optional &key
; From file USER.LISP#> QL.TIGER; LAD: (73)
(defun-with-arglist tiger-stream tiger-stream-arglist (stream &rest options &aux file)
; From file USER.LISP#> QL.TIGER; LAD: (73)
(defun-with-arglist tiger-array tiger-array-arglist (entry &rest options &optional &key
; From file ARRAY-METHODS.LISP#> QL.TIGER; LAD: (25)
(defun array-to-file-interface (printer array left top right bottom &rest options)
; From file ARRAY-METHODS.LISP#> QL.TIGER; LAD: (25)
(defun array-to-tape-interface (printer array left top right bottom &rest options)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-6.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-7.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for Tiger version 20.7
;;; Reason:
;;;  Make HP Landscape work.
;;; Written 16-Aug-85 13:40:34 by BED,
;;; while running on McGuffey from band 1
;;; with System 102.162, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, TCP-Kernel 30.4, TCP-User 57.2, TCP-Server 33.0, Experimental LMI Laser Printer II 11.2, Experimental Object Lisp 4.0, Experimental vista 2.0, microcode 773, Education Division 2x2+.
; From file LASER1.LISP#> QL.TIGER; LAD: (3)
(defmethod (laser1-stream :bitblt) (width height array x y &aux left-bit right-bit)
(defun column-bit-search (array1 y1 x1 count1)
(defun column-reverse-bit-search (array y x count)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-7.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-8.LISP#3"
;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for Tiger version 20.8
;;; Reason:
;;;  Make landscape graphics and text work.
;;; Written 3-Sep-85 15:38:24 by JMTurn,
;;; while running on McGuffey from band 1
;;; with System 102.164, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.7, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, TCP-Kernel 30.5, TCP-User 57.2, TCP-Server 33.0, Experimental LMI Laser Printer II 11.2, Experimental Object Lisp 4.0, Experimental vista 2.0, microcode 773, Education Division 2x2+.
; From file LASER1.LISP#> QL.TIGER; LAD: (4)
(defmethod (laser1-stream :set-up-for-graphics) (r)
; From file LASER1.LISP#> QL.TIGER; LAD: (4)
(defmethod (laser1-stream :setup-normal) ()
Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-8.QFASL#3"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-9.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for Tiger version 20.9
;;; Reason:
;;;  DEFVAR needed variable
;;; Written  by khh,
;;; while running on Natasha Nogoodnik from band 1
;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 778, LMI Site--mrc 9/12/85.
; From file LASER1.LISP#> QL.TIGER; LAD: (6)
(defvar *laser1-orientation* :PORTRAIT)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-9.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-10.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for Tiger version 20.10
;;; Reason:
;;;  Fencepost Error in bitblt
;;; Written 23-Oct-85 10:04:59 by JMTurn,
;;; while running on Mary had a little Lambda from band 4
;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.9, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental ObjectLISP 1.0, Experimental vista 1.0, Experimental IRIS 1.0, microcode 768.
; From file LASER1.LISP#> QL.TIGER; LAD: (7)
(defmethod (laser1-stream :bitblt) (width height array x y &aux left-bit right-bit)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-10.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-11.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for Tiger version 20.11
;;; Reason:
;;;  Catch errors usually related to fancy code for lispm chars that never was tested or
;;; Reason:
;;;  worked probably. These errors seem trivial compared to not getting any hardcopy.
;;; Reason:
;;;  (Specifically, methods (toshiba-p1451-stream :download-font) and
;;; Reason:
;;;  (basic-printer-stream-mixin :tyo) were hacked.)
;;; Reason:
;;;  -mhd
;;; Written 21-Nov-85 16:45:32 by mhd,
;;; while running on Lambda Ten from band 2
;;; with System 102.154, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.21, ZMail 57.9, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, microcode 768, 2.0 Process Systems 5/2/85 Fork..
; From file STREAM.LISP#> QL.TIGER; LAD: (46)
(defmethod (basic-printer-stream-mixin :tyo) (char)
; From file TOSHIBA.LISP#> QL.TIGER; LAD: (125)
(defmethod (toshiba-p1351-stream :download-font)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-11.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-12.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for Tiger version 20.12
;;; Reason:
;;;  Disable more processing by default in tiger operator window, and fix it so :kill'ing
;;; Reason:
;;;  a window doesn't keep you from getting another one when you start tiger again.
;;; Reason:
;;;  -mhd
;;; Written 21-Nov-85 19:01:19 by mhd,
;;; while running on Lambda Ten from band 2
;;; with System 102.154, Local-File 56.11, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.21, ZMail 57.9, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, microcode 768, 2.0 Process Systems 5/2/85 Fork..
; From file USER.LISP#> QL.TIGER; LAD: (74)
(defflavor tiger-operator-window
(defmethod (tiger-operator-window :after :kill) (&rest ignore)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-12.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-13.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for Tiger version 20.13
;;; Reason:
;;;  Don't expose or select tiger-operator-window when created for the first time, and
;;; Reason:
;;;  don't notify when tiger process started for the first time, but still manage to 
;;; Reason:
;;;  have the tiger operator window created, output to, and selectable. --mhd
;;; Written 16-Jan-86 16:58:25 by mhd,
;;; while running on Lambda Ten from band 2
;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, LMI Site.
; From file USER.LISP#> QL.TIGER; LAD: (75)
(defun make-tiger-operator-window (&aux w)
(defun start-tiger ()
(defun kill-tiger-operator-window ()
Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-13.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-14.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for Tiger version 20.14
;;; Reason:
;;;  (Cleanup last fix)
;;; Written 17-Jan-86 19:45:08 by mhd,
;;; while running on Lambda Five from band 4
;;; with System 102.122, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.3, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, microcode 768, 2.0 Process Systems 5/2/85 Fork (11/16/85)..
; From file USER.LISP#> QL.TIGER; LAD: (76)
(defun make-tiger-operator-window (&aux w)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-14.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-15.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for Tiger version 20.15
;;; Reason:
;;;  Supplement to last two patches
;;; Written 17-Jan-86 20:04:38 by mhd,
;;; while running on Lambda Five from band 4
;;; with System 102.122, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.3, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, microcode 768, 2.0 Process Systems 5/2/85 Fork (11/16/85)..
; From file USER.LISP#> QL.TIGER; LAD: (78)
(defun tiger-operator-process-toplevel (window)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-15.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-16.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for Tiger version 20.16
;;; Reason:
;;;  an addition to the previous three patches
;;; Written 17-Jan-86 22:46:01 by mhd,
;;; while running on Lambda Ten from band 2
;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, LMI Site.
; From file USER.LISP#> QL.TIGER; LAD: (79)
(defun make-tiger-operator-window (&aux w)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-16.QFASL#1"

Report on directory of patches: #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26.PATCH-DIRECTORY#55"
;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T -*-
;;; Patch directory for KERMIT version 26
;;; Written 2-Dec-85 09:09:05 by GJC,
;;; while running on Lambda Six from band 1
;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.24, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.6, TCP-User 57.10, TCP-Server 33.3, microcode 778, 2.0 Process Systems 5/2/85 Fork..

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-16.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for KERMIT version 26.16
;;; Reason:
;;;  Change to DUAL-CONNECT to make the tcp:telnet-h19 work a little better.
;;; Written 3-May-85 16:15:21 by MWT,
;;; while running on Lambda Six from band 3
;;; with System 102.110, Local-File 56.4, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, DOE-Macsyma 9.9, Macsyma-Help-Database 1.1, Experimental NewDraw 15.2, Experimental TCP-Kernel 23.0, Experimental TCP-User 42.0, Experimental TCP-Server 19.0, microcode 768.
; From file TERM.LISP#> QL.KERMIT; LAM3: (32)
(defun dual-connect (*serial-stream* *terminal* state
; From file TERM.LISP#> QL.KERMIT; LAM3: (32)
(defun network-keystroke-handler ()
Object file for patches is #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-16.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-17.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for KERMIT version 26.17
;;; Reason:
;;;  Added NETWORK-W to toggle window-scrolling mode.  
;;; Reason:
;;;  Put in some hooks to improve tcp:telnet-h19
;;; Written 10-May-85 17:24:16 by MWT,
;;; while running on Dale from band 4
;;; with System 102.118, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.16, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental TCP-Kernel 23.3, Experimental TCP-User 44.1, Experimental TCP-Server 22.0, microcode 768.
; From file TERM.LISP#> QL.KERMIT; LAD: (33)
(defconst *wrap-around-instead-of-scrolling-flag* nil)
; From file TERM.LISP#> QL.KERMIT; LAD: (33)
(DEFSUBST TERMINAL-END-OF-PAGE-EXCEPTION ()
; From file TERM.LISP#> QL.KERMIT; LAD: (33)
(DEFSUBST TERMINAL-CR ()
; From file TERM.LISP#> QL.KERMIT; LAD: (33)
(DEFSUBST TERMINAL-LINEFEED ()
; From file TERM.LISP#> QL.KERMIT; LAD: (33)
(defvar *auto-clear-eol-on-linefeed-flag* nil)	; only used by tcp:telnet-h19 - mwt
; From file TERM.LISP#> QL.KERMIT; LAD: (33)
(defvar *snarf-telnet-negotiations* nil)	; ditto
; From file TERM.LISP#> QL.KERMIT; LAD: (33)
(DEFUN READ-CHAR-FROM-SERIAL-STREAM-TO-TERMINAL ()
; From file TERM.LISP#> QL.KERMIT; LAD: (33)
(defun network-keystroke-handler-internal ()
; From file TERM.LISP#> QL.KERMIT; LAD: (33)
(DEFUN TERMINAL-NETWORK-HELP ()
; From file TERM.LISP#> QL.KERMIT; LAD: (33)
(defvar *notify-when-eof-is-read* nil)
; From file TERM.LISP#> QL.KERMIT; LAD: (33)
(defun dual-connect (*serial-stream* *terminal* state
Object file for patches is #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-17.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-18.LISP#2"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for KERMIT version 26.18
;;; Reason:
;;;  fixes for telnet support
;;; Reason:
;;;  Yet another patch to DUAL-CONNECT to make TCP:TELNET-H19 be a little prettier
;;; Written 10-May-85 20:26:34 by MWT,
;;; while running on Dale from band 4
;;; with System 102.118, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.17, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental TCP-Kernel 23.3, Experimental TCP-User 44.1, microcode 768.
; From file TERM.LISP#> QL.KERMIT; LAD: (36)
(defvar *serial-stream-mask* #o177)
; From file TERM.LISP#> QL.KERMIT; LAD: (36)
(defsubst serial-tyi ()
; From file TERM.LISP#> QL.KERMIT; LAD: (36)
(DEFUN READ-CHAR-FROM-SERIAL-STREAM-TO-TERMINAL ()
; From file TERM.LISP#> QL.KERMIT; LAD: (36)
(defvar *notify-when-eof-is-read* nil)
; From file TERM.LISP#> QL.KERMIT; LAD: (36)
(defflavor kterm-state
; From file TERM.LISP#> QL.KERMIT; LAD: (36)
(defun dual-connect (*serial-stream* *terminal* state
; From file TERM.LISP#> QL.KERMIT; LAD: (36)
(DEF-TERMINAL-ESCAPE #/[ T TERMINAL-EAT-TEMP	; this may be wrong
; From file TERM.LISP#> QL.KERMIT; LAD: (36)
(DEF-TERMINAL-ESCAPE #\x T TERMINAL-SET-MODE
; From file TERM.LISP#> QL.KERMIT; LAD: (36)
(DEF-TERMINAL-ESCAPE #\y T TERMINAL-RESET-MODE
; From file TERM.LISP#> QL.KERMIT; LAD: (36)
(DEF-TERMINAL-ESCAPE #\Y T TERMINAL-SET-POS
; From file TERM.LISP#> QL.KERMIT; LAD: (36)
(DEFSUBST ESCAPE-DISPATCH ()
Object file for patches is #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-18.QFASL#2"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-19.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for KERMIT version 26.19
;;; Reason:
;;;  Fix non-scrolling mode in terminal-emulator.  
;;; Reason:
;;;  Make Lisp Machine characters (< #\space) print out instead of just being 
;;; Reason:
;;;  eaten. (Or should this be yet another mode...?)
;;; Written 23-May-85 00:19:28 by mhd,
;;; while running on Lambda Five B from band 2
;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.18, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, lmi site info.
; From file TERM.LISP#> QL.KERMIT; LAD: (36)
(DEFSUBST TERMINAL-END-OF-PAGE-EXCEPTION ()
; From file TERM.LISP#> QL.KERMIT; LAD: (36)
(DEFSUBST TERMINAL-CR ()
; From file TERM.LISP#> QL.KERMIT; LAD: (36)
(DEFSUBST TERMINAL-LINEFEED ()
; From file TERM.LISP#> QL.KERMIT; LAD: (36)
(DEFUN READ-CHAR-FROM-SERIAL-STREAM-TO-TERMINAL ()
Object file for patches is #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-19.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-20.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for KERMIT version 26.20
;;; Reason:
;;;  fix lispm -> ascii mapping for line breaks in file xfer.
;;; Written 23-May-85 10:41:16 by mhd,
;;; while running on Lambda Five B from band 2
;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Interface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, microcode 768, lmi site info.
; From file PROTO.LISP#> QL.KERMIT; LAD: (32)
(defun bufill (buffer)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-20.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-21.LISP#2"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for KERMIT version 26.21
;;; Reason:
;;;  <NETWORK>T now turns on Tektronics 4010 emulation.
;;; Written 21-Oct-85 07:42:41 by hel,
;;; while running on Lambda Six from band 3
;;; with System 102.169, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window-maker 1.0, TCP-Kernel 30.5, TCP-User 57.2, TCP-Server 33.0, DOE-Macsyma 9.15, Macsyma-Help-Database 1.1, microcode 768.
; From file TERM.LISP#> QL.KERMIT; LAD: (49)
(DEFVAR *TEK-EMULATIONP* NIL)
(DEFCONST *TEK-PAD* #o26)		; control-V
(DEFCONST *TEK-GRAPHMODE* #o35)
(DEFCONST *TEK-PRINTMODE* #o37)
(defvar *tek-in-graphics-mode* nil)
(defvar *tek-firstp* t)
(DEFUN READ-CHAR-FROM-SERIAL-STREAM-TO-TERMINAL ()
; From file TERM.LISP#> QL.KERMIT; LAD: (49)
(defun network-keystroke-handler-internal ()
; From file TERM.LISP#> QL.KERMIT; LAD: (49)
(DEFUN TERMINAL-NETWORK-HELP ()
; From file TERM.LISP#> QL.KERMIT; LAD: (49)
(defun terminal-show-status-of-connection ()
; From file TERM.LISP#> QL.KERMIT; LAD: (49)
(defun toggle-tek-emulation ()
; From file TERM.LISP#> QL.KERMIT; LAD: (49)
(defflavor kterm-state
; From file TERM.LISP#> QL.KERMIT; LAD: (49)
(defvar *tek-hi-y* 0)
(defvar *tek-low-y* 0)
(defvar *tek-exlow-yx* 0)
(defvar *tek-hi-x* 0)
(defvar *tek-low-x* 0)
(defvar *tek-x* 0)
(defvar *tek-y* 0)
(DEFVAR *TEK-MIN-X* 0)
(DEFVAR *TEK-MAX-X* 1023)
(DEFVAR *TEK-MIN-Y* 0)
(DEFVAR *TEK-MAX-Y* 779)
(defvar *screen-x-utilization* 0.90 "the fraction of screen size in X utilized")
(defvar *screen-y-utilization* 0.90 "the fraction of screen size in Y utilized")
(defvar *TEK-move-cursorp* t "If T then :SET-CURSORPOS is done to follow MOVE and DRAW")
(defvar *tek-12bit-mode* nil)
(defmacro tek-hi-bitz-p (c)		; for decoding Tek codes
(defmacro tek-low-y-bitz-p (c)
(defmacro tek-low-x-bitz-p (c)
(DEFUN TEK-RESET-MEMORY ()
(defun get-tek-vector ()
(defun TEK-move (x y)
(DEFUN TEK-DRAW (X Y)
(DEFUN LINEAR-MAP (X X0 X1 Y0 Y1)
(DEFUN NICE-EDGES (&AUX (X0 0) (Y0 0))
(DEFUN TDRAWLINE (FROM-X FROM-Y TO-X TO-Y)
(defun tmovecursor (to-x to-y)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-21.QFASL#2"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-22.LISP#2"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for KERMIT version 26.22
;;; Reason:
;;;  SET-BAUD-RATE choice of EXTENDED gives menu to choose Char Length, Parity, etc.
;;; Written 23-Nov-85 16:13:05 by GJC,
;;; while running on Lambda Six from band 1
;;; with System 102.174, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Server 33.1, microcode 778, 2.0 Process Systems 5/2/85 Fork..
; From file WINDOW.LISP#> QL.KERMIT; LAD: (67)
(defconst all-baud-choices-items-alist
; From file WINDOW.LISP#> QL.KERMIT; LAD: (67)
(defun set-baud-rate ()
; From file WINDOW.LISP#> QL.KERMIT; LAD: (67)
(defun extended-set-baud-rate ()
Object file for patches is #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-22.QFASL#2"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-23.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for KERMIT version 26.23
;;; Reason:
;;;  In review-parameters new serial-stream setting TCP TELNET.
;;; Written 25-Nov-85 16:41:25 by GJC,
;;; while running on Lambda Six from band 1
;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Server 33.1, microcode 778, 2.0 Process Systems 5/2/85 Fork..
; From file TERM.LISP#> QL.KERMIT; LAD: (51)
(defun process-wait-listen (&rest streams)
; From file TERM.LISP#> QL.KERMIT; LAD: (51)
(defun connect (*serial-stream* *terminal*
; From file TERM.LISP#> QL.KERMIT; LAD: (51)
(defun read-char-from-keyboard-to-serial-stream ()
; From file CALLS.LISP#> QL.KERMIT; LAD: (40)
(defmethod (kstate :set-params) ()
; From file CALLS.LISP#> QL.KERMIT; LAD: (40)
(defun open-tcp-telnet-serial-stream ()
Object file for patches is #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-23.QFASL#1"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-24.LISP#2"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for KERMIT version 26.24
;;; Reason:
;;;  receive telnet negotiations, although not acting on them yet.
;;; Written 26-Nov-85 17:39:21 by GJC,
;;; while running on Lambda Six from band 1
;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Server 33.1, microcode 778, 2.0 Process Systems 5/2/85 Fork..
; From file TERM.LISP#> QL.KERMIT; LAD: (54)
(DEFUN READ-CHAR-FROM-SERIAL-STREAM-TO-TERMINAL ()
; From file TERM.LISP#> QL.KERMIT; LAD: (54)
(defun enable-telnet-iac ()
(defvar *telsyms*
(defvar *telopts*
(defun get-symbol (number table)
(defun handle-telnet-iac (&aux c sym explain)
(defun (dont telnet-command) ()
(defun (do telnet-command) ()
(defun (wont telnet-command) ()
(defun (will telnet-command) ()
(defun (sb telnet-command) ()
(defun (ga telnet-command) ()
(defun (el telnet-command) ()
(defun (ec telnet-command) ()
(defun (ayt telnet-command) ()
(defun (ao telnet-command) ()
(defun (ip telnet-command) ()
(defun (break telnet-command) ()
(defun (dm telnet-command) ()
(defun (nop telnet-command) ()
(defun (synch telnet-command) ()
(defun (se telnet-command) ()
(defun telnet-command (what &aux c sym explain)
(defun (telopt_binary telnet-option) (how)
(defun (telopt_echo telnet-option) (how)
(defun (TELOPT_RCP telnet-option) (how)
(defun (TELOPT_SGA telnet-option) (how)
(defun (TELOPT_NAMS telnet-option) (how)
(defun (TELOPT_STATUS telnet-option) (how)
(defun (TELOPT_TM telnet-option) (how)
(defun (TELOPT_RCTE telnet-option) (how)
(defun (TELOPT_NAOL telnet-option) (how)
(defun (TELOPT_NAOP telnet-option) (how)
(defun (TELOPT_NAOCRD telnet-option) (how)
(defun (TELOPT_NAOHTS telnet-option) (how)
(defun (TELOPT_NAOHTD telnet-option) (how)
(defun (TELOPT_NAOFFD telnet-option) (how)
(defun (TELOPT_NAOVTS telnet-option) (how)
(defun (TELOPT_NAOVTD telnet-option) (how)
(defun (TELOPT_NAOLFD telnet-option) (how)
(defun (TELOPT_XASCII telnet-option) (how)
(defun (TELOPT_LOGOUT telnet-option) (how)
(defun (TELOPT_BM telnet-option) (how)
(defun (TELOPT_DET telnet-option) (how)
(defun (TELOPT_SUPDUP telnet-option) (how)
(defun (TELOPT_EXOPL telnet-option) (how)
; From file CALLS.LISP#> QL.KERMIT; LAD: (43)
(defun open-tcp-telnet-serial-stream ()
Object file for patches is #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-24.QFASL#2"

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-25.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for KERMIT version 26.25
;;; Reason:
;;;  with this you can actually run KERMIT via TCP TELNET at reasonable performance.
;;; Written 2-Dec-85 09:07:46 by GJC,
;;; while running on Lambda Six from band 1
;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Interface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.24, MEDIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.6, TCP-User 57.10, TCP-Server 33.3, microcode 778, 2.0 Process Systems 5/2/85 Fork..
; From file CALLS.LISP#> QL.KERMIT; LAD: (46)
(defun open-tcp-telnet-serial-stream (&optional auto-force-output)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-25.QFASL#1"

Report on directory of patches: #FS::LM-PATHNAME "LAD: QL.VIDEO-DEVICE; MRC-PATCH-17.DIRECTORY#11"
;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T -*-
;;; Patch directory for MEDIUM-RESOLUTION-COLOR version 17
;;; Written 26-Jun-85 10:19:09 by mpg,
;;; while running on Waiting for Godot from band 2
;;; with System 102.149, Local-File 56.9, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.21, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental Object Lisp 2.0, Experimental vista 1.0, Experimental IRIS 1.0, microcode 770.

Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.VIDEO-DEVICE; MRC-PATCH-17-4.LISP#1"
;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for MEDIUM-RESOLUTION-COLOR version 17.4
;;; Reason:
;;;  Reverses array subscripts for 2.0 compatibility.
;;; Written 26-Jun-85 09:55:20 by mpg,
;;; while running on Waiting for Godot from band 2
;;; with System 102.149, Local-File 56.9, FILE-Server 13.2, Unix-Interface 5.4, MagTape 40.21, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window-maker 1.0, Experimental Object Lisp 2.0, Experimental vista 1.0, Experimental IRIS 1.0, microcode 770.
; From file COLOR.LISP#> QL.VIDEO-DEVICE; LAD: (10)
(DEFUN %COLOR-DRAW-CHAR (FONT CHAR X Y COLOR DEVICE)
; From file COLOR.LISP#> QL.VIDEO-DEVICE; LAD: (10)
(DEFUN PUT-UP-PICT (&OPTIONAL (PICT :10LEAF)
Object file for patches is #FS::LM-PATHNAME "LAD: QL.VIDEO-DEVICE; MRC-PATCH-17-4.QFASL#1"
The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#769 describes a change to the hardware microcode:

LMI Lambda microcode version 769
Produced by "rg", 6/03/85 00:30:28

Has fix to hexa-dec aging bug.

The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#770 describes a change to the hardware microcode:

LMI Lambda microcode version 770
Produced by "GJC", 6/05/85 15:34:57

fix mouse tracking during user disk op bug

The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#771 describes a change to the hardware microcode:

LMI Lambda microcode version 771
Produced by "rg", 6/28/85 12:23:55

Fix to %blt-boole.

The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#772 describes a change to the hardware microcode:

LMI Lambda microcode version 772
Produced by "khs", 7/11/85 15:58:15

%multibus-write-16 didn't pop stack properly.

The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#773 describes a change to the hardware microcode:

LMI Lambda microcode version 773
Produced by "pace", 8/02/85 12:59:17

ricks change for 3d arrays

The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#774 describes a change to the hardware microcode:

LMI Lambda microcode version 774
Produced by "pace", 8/08/85 09:49:41

quad interrupts

The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#775 describes a change to the hardware microcode:

LMI Lambda microcode version 775
Produced by "pace", 8/08/85 14:31:50

quad interrupts

The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#776 describes a change to the hardware microcode:

LMI Lambda microcode version 776
Produced by "pace", 8/08/85 17:18:45

first titn code

The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#777 describes a change to the hardware microcode:

LMI Lambda microcode version 777
Produced by "YOUCEF", 8/09/85 11:01:20

titn ucode fixes

The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#778 describes a change to the hardware microcode:

LMI Lambda microcode version 778
Produced by "pace", 9/02/85 09:30:23

remove %draw-triange to make room for titn code

The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#782 describes a change to the hardware microcode:

LMI Lambda microcode version 782
Produced by "rg", 11/22/86 18:31:14

Fix to %store-conditional-double.

The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#783 describes a change to the hardware microcode:

LMI Lambda microcode version 783
Produced by "GJC", 1/06/86 19:28:56

use 8 bit operations instead of 32 bit (nubus) on SDU registers for serial devices.




A list of all files modified:
 COLOR.LISP#> QL.VIDEO-DEVICE; LAD: (10)
 CALLS.LISP#> QL.KERMIT; LAD: (46)
 CALLS.LISP#> QL.KERMIT; LAD: (43)
 TERM.LISP#> QL.KERMIT; LAD: (54)
 CALLS.LISP#> QL.KERMIT; LAD: (40)
 TERM.LISP#> QL.KERMIT; LAD: (51)
 WINDOW.LISP#> QL.KERMIT; LAD: (67)
 TERM.LISP#> QL.KERMIT; LAD: (49)
 PROTO.LISP#> QL.KERMIT; LAD: (32)
 TERM.LISP#> QL.KERMIT; LAD: (36)
 TERM.LISP#> QL.KERMIT; LAD: (33)
 TERM.LISP#> QL.KERMIT; LAM3: (32)
 USER.LISP#> QL.TIGER; LAD: (79)
 USER.LISP#> QL.TIGER; LAD: (78)
 USER.LISP#> QL.TIGER; LAD: (76)
 USER.LISP#> QL.TIGER; LAD: (75)
 USER.LISP#> QL.TIGER; LAD: (74)
 TOSHIBA.LISP#> QL.TIGER; LAD: (125)
 STREAM.LISP#> QL.TIGER; LAD: (46)
 LASER1.LISP#> QL.TIGER; LAD: (7)
 LASER1.LISP#> QL.TIGER; LAD: (6)
 LASER1.LISP#> QL.TIGER; LAD: (4)
 LASER1.LISP#> QL.TIGER; LAD: (3)
 ARRAY-METHODS.LISP#> QL.TIGER; LAD: (25)
 SERVER.LISP#> QL.TIGER; LAD: (190)
 USER.LISP#> QL.TIGER; LAD: (73)
 MTSTR.LISP#> QL.TAPE; LAD: (127)
 COPY.LISP#> QL.TAPE; LAD: (151)
 MTSTR.LISP#> QL.TAPE; LAD: (126)
 MTSTR.LISP#> QL.TAPE; LAD: (125)
 TMSTR.LISP#> QL.TAPE; LAD: (14)
 MTDEFS.LISP#> QL.TAPE; LAD: (52)
 TOPS20.LISP#> QL.TAPE; LAM3: (11)
 COPY.LISP#> QL.TAPE; LAM3: (150)
 SERVER.LISP#> QL.FILE; LAD: (163)
 FSGUTS.LISP#> QL.FILE; LAD: (396)
 FSGUTS.LISP#> QL.FILE; LAD: (393)
 FSDEFS.LISP#> QL.FILE; LAD: (184)
 FSGUTS.LISP#> QL.FILE; LAD: (388)
 FSGUTS.LISP#> QL.FILE; LAD: (386)
 FSGUTS.LISP#> QL.FILE; LAD: (385)
 FSGUTS.LISP#> QL.FILE; LAD: (383)
 LAMTTY.LISP#> QL.UNIX; LAD: (54)
 LAMTTY.LISP#> QL.UNIX; LAD: (53)
 LAMTTY.LISP#> QL.UNIX; LAD: (51)
 DEFS.LISP#> QL.ZMAIL; LAD: (274)
 MAIL.LISP#> QL.ZMAIL; LAD: (313)
 PROFIL.LISP#> QL.ZMAIL; LAD: (125)
 MAIL.LISP#> QL.ZMAIL; LAD: (311)
 FILTER.LISP#> QL.ZMAIL; LAD: (358)
 TOP.LISP#> QL.ZMAIL; LAD: (554)
 WINDOW.LISP#> QL.ZMAIL; LAD: (344)
 MFILES.LISP#> QL.ZMAIL; LAD: (326)
 COMNDS.LISP#> QL.ZMAIL; LAD: (587)
 WINDOW.LISP#> QL.ZMAIL; LAD: (343)
 COMNDS.LISP#> QL.ZMAIL; LAD: (586)
 PROFIL.LISP#> QL.ZMAIL; LAM3: (124)
 FILTER.LISP#> QL.ZMAIL; LAM3: (357)
 COMNDS.LISP#> QL.ZMAIL; LAM3: (585)
 ZMACS.LISP#> QL.ZWEI; LAD: (530)
 DISK.LISP#> QL.IO; LAD: (318)
 ACCESS.LISP#> QL.IO.FILE; LAD: (18)
 CONFIG.LISP#> QL.SYS; LAD: (38)
 TIME.LISP#> QL.IO1; LAD: (113)
 QCFASD.LISP#> QL.SYS; LAD: (251)
 CONFIG.LISP#> QL.SYS; LAD: (36)
 SHWARM.LISP#> QL.WINDOW; LAD: (345)
 CONFIG.LISP#> QL.SYS; LAD: (35)
 IOMSG.LISP#> QL.SYS; LAD: (23)
 MOUSE.LISP#> QL.WINDOW; LAD: (251)
 SECTIO.LISP#> QL.ZWEI; LAD: (271)
 SDU-SERIAL.LISP#> QL.IO1; LAD: (20)
 QFASL.LISP#> QL.SYS; LAD: (470)
 SHWARM.LISP#> QL.WINDOW; LAD: (344)
 BASSTR.LISP#> QL.WINDOW; LAD: (386)
 FILES.LISP#> QL.ZWEI; LAD: (198)
 READ.LISP#> QL.IO; LAD: (437)
 CLPACK.LISP#> QL.SYS; LAD: (160)
 EVAL.LISP#> QL.SYS; LAD: (94)
 TYPES.LISP#> QL.SYS; LAD: (74)
 GENRIC.LISP#> QL.SYS; LAD: (29)
 MENU-PATCH.LISP#> PECANN; GOD: (1)
 READ.LISP#> QL.IO; LAD: (436)
 TYPWIN.LISP#> QL.WINDOW; LAD: (119)
 SDU-SERIAL.LISP#> QL.IO1; LAD: (19)
 QRAND.LISP#> QL.SYS; LAD: (431)
 PATHNM.LISP#> QL.IO.FILE; LAD: (546)
 SCREEN.LISP#> QL.ZWEI; LAD: (470)
 SHEET.LISP#> QL.WINDOW; LAD: (561)
 FRAME.LISP#> QL.WINDOW; LAD: (167)
 QIO.LISP#> QL.IO; LAD: (216)
 LTOP.LISP#> QL.SYS; LAD: (508)
 METH.LISP#> QL.ZWEI; LAD: (50)
 ZMACS.LISP#> QL.ZWEI; LAD: (529)
 CHSNCP.LISP#> QL.NETWORK.CHAOS; LAD: (315)
 BASSTR.LISP#> QL.WINDOW; LAD: (384)
 METH.LISP#> QL.ZWEI; LAD: (49)
 QRAND.LISP#> QL.SYS; LAD: (430)
 METH.LISP#> QL.ZWEI; LAD: (48)
 CLPACK.LISP#> QL.SYS; LAD: (158)
 BASSTR.LISP#> QL.WINDOW; LAD: (383)
 PATHNM.LISP#> L.IO.FILE; DJ: (547)
 LMPARS.LISP#> L.FILE; DJ: (117)
 PATHST.LISP#> L.IO.FILE; DJ: (196)
 HARDCOPY.LISP#> QL.IO1; LAD: (1)
 ISPELL.LISP#> QL.ZWEI; LAD: (50)
 DOC.LISP#> QL.ZWEI; LAD: (76)
 QIO.LISP#> QL.IO; LAD: (214)
 SYSCONF.LISP#> QL.COLD; LAD: (14)
 PROCES.LISP#> QL.SYS2; LAD: (165)
 LMMAC.LISP#> QL.SYS2; LAD: (380)
 EH.LISP#> QL.SYS2; LAD: (355)
 *Buffer-1*NIL
 TYPES.LISP#> QL.SYS; LAD: (73)
 NPRIM.LISP#> QL.ZWEI; LAD: (35)
 STRUCT.LISP#> QL.SYS2; LAD: (323)
 PATHST.LISP#> QL.IO.FILE; LAD: (194)
 OPEN.LISP#> QL.IO.FILE; LAD: (179)
 QCFILE.LISP#> QL.SYS; LAD: (326)
 QFASL.LISP#> QL.SYS; LAD: (468)
 QCLAP.LISP#> QL.SYS; LAD: (251)
 STREAM.LISP#> QL.WINDOW; LAD: (146)
 SHEET.LISP#> QL.WINDOW; LAD: (560)
 INSPCT.LISP#> QL.WINDOW; LAD: (156)
 PRINT.LISP#> QL.IO; LAD: (182)
 LMPARS.LISP#> QL.FILE; LAD: (115)
 CONFIG-DEFS.LISP#> QL.SYS; LAD: (7)
 SYSCONF.LISP#> QL.COLD; LAD: (12)
 PATHNM.LISP#> QL.IO.FILE; LAD: (545)
 PATHST.LISP#> QL.IO.FILE; LAM3: (192)
 STREAM.LISP#> QL.IO; LAM3: (110)
 MAKSYS.LISP#> QL.SYS2; LAM3: (186)
 READ.LISP#> QL.IO; LAM3: (436)
 CLPACK.LISP#> QL.SYS; LAM3: (157)
 FED.LISP#> QL.WINDOW; LAM3: (201)
 EVAL.LISP#> QL.SYS; LAM3: (93)
 COMF.LISP#> QL.ZWEI; LAM3: (100)
 SCREEN.LISP#> QL.ZWEI; LAM3: (469)
 QMISC.LISP#> QL.SYS; LAM3: (674)
 SHARED-DEVICE.LISP#> QL.SYS; LAM3: (29)
 BASWIN.LISP#> QL.WINDOW; LAM3: (565)
 SUPDUP.LISP#> QL.WINDOW; LAM3: (280)
 DIRED.LISP#> QL.ZWEI; LAM3: (308)
 QFILE.LISP#> QL.NETWORK.CHAOS; LAM3: (363)




A list of all definitions modified:
 DEFUN PUT-UP-PICT (&OPTIONAL (PICT :10LEAF)
 DEFUN %COLOR-DRAW-CHAR (FONT CHAR X Y COLOR DEVICE)
 defun open-tcp-telnet-serial-stream (&optional auto-force-output)
 defun open-tcp-telnet-serial-stream ()
 defun (TELOPT_EXOPL telnet-option) (how)
 defun (TELOPT_SUPDUP telnet-option) (how)
 defun (TELOPT_DET telnet-option) (how)
 defun (TELOPT_BM telnet-option) (how)
 defun (TELOPT_LOGOUT telnet-option) (how)
 defun (TELOPT_XASCII telnet-option) (how)
 defun (TELOPT_NAOLFD telnet-option) (how)
 defun (TELOPT_NAOVTD telnet-option) (how)
 defun (TELOPT_NAOVTS telnet-option) (how)
 defun (TELOPT_NAOFFD telnet-option) (how)
 defun (TELOPT_NAOHTD telnet-option) (how)
 defun (TELOPT_NAOHTS telnet-option) (how)
 defun (TELOPT_NAOCRD telnet-option) (how)
 defun (TELOPT_NAOP telnet-option) (how)
 defun (TELOPT_NAOL telnet-option) (how)
 defun (TELOPT_RCTE telnet-option) (how)
 defun (TELOPT_TM telnet-option) (how)
 defun (TELOPT_STATUS telnet-option) (how)
 defun (TELOPT_NAMS telnet-option) (how)
 defun (TELOPT_SGA telnet-option) (how)
 defun (TELOPT_RCP telnet-option) (how)
 defun (telopt_echo telnet-option) (how)
 defun (telopt_binary telnet-option) (how)
 defun telnet-command (what &aux c sym explain)
 defun (se telnet-command) ()
 defun (synch telnet-command) ()
 defun (nop telnet-command) ()
 defun (dm telnet-command) ()
 defun (break telnet-command) ()
 defun (ip telnet-command) ()
 defun (ao telnet-command) ()
 defun (ayt telnet-command) ()
 defun (ec telnet-command) ()
 defun (el telnet-command) ()
 defun (ga telnet-command) ()
 defun (sb telnet-command) ()
 defun (will telnet-command) ()
 defun (wont telnet-command) ()
 defun (do telnet-command) ()
 defun (dont telnet-command) ()
 defun handle-telnet-iac (&aux c sym explain)
 defun get-symbol (number table)
 defvar *telopts*
 defvar *telsyms*
 defun enable-telnet-iac ()
 DEFUN READ-CHAR-FROM-SERIAL-STREAM-TO-TERMINAL ()
 defun open-tcp-telnet-serial-stream ()
 defmethod (kstate :set-params) ()
 defun read-char-from-keyboard-to-serial-stream ()
 defun connect (*serial-stream* *terminal*
 defun process-wait-listen (&rest streams)
 defun extended-set-baud-rate ()
 defun set-baud-rate ()
 defconst all-baud-choices-items-alist
 defun tmovecursor (to-x to-y)
 DEFUN TDRAWLINE (FROM-X FROM-Y TO-X TO-Y)
 DEFUN NICE-EDGES (&AUX (X0 0) (Y0 0))
 DEFUN LINEAR-MAP (X X0 X1 Y0 Y1)
 DEFUN TEK-DRAW (X Y)
 defun TEK-move (x y)
 defun get-tek-vector ()
 DEFUN TEK-RESET-MEMORY ()
 defmacro tek-low-x-bitz-p (c)
 defmacro tek-low-y-bitz-p (c)
 defmacro tek-hi-bitz-p (c)		; for decoding Tek codes
 defvar *tek-12bit-mode* nil)
 defvar *TEK-move-cursorp* t "If T then :SET-CURSORPOS is done to follow MOVE and DRAW")
 defvar *screen-y-utilization* 0.90 "the fraction of screen size in Y utilized")
 defvar *screen-x-utilization* 0.90 "the fraction of screen size in X utilized")
 DEFVAR *TEK-MAX-Y* 779)
 DEFVAR *TEK-MIN-Y* 0)
 DEFVAR *TEK-MAX-X* 1023)
 DEFVAR *TEK-MIN-X* 0)
 defvar *tek-y* 0)
 defvar *tek-x* 0)
 defvar *tek-low-x* 0)
 defvar *tek-hi-x* 0)
 defvar *tek-exlow-yx* 0)
 defvar *tek-low-y* 0)
 defvar *tek-hi-y* 0)
 defflavor kterm-state
 defun toggle-tek-emulation ()
 defun terminal-show-status-of-connection ()
 DEFUN TERMINAL-NETWORK-HELP ()
 defun network-keystroke-handler-internal ()
 DEFUN READ-CHAR-FROM-SERIAL-STREAM-TO-TERMINAL ()
 defvar *tek-firstp* t)
 defvar *tek-in-graphics-mode* nil)
 DEFCONST *TEK-PRINTMODE* #o37)
 DEFCONST *TEK-GRAPHMODE* #o35)
 DEFCONST *TEK-PAD* #o26)		; control-V
 DEFVAR *TEK-EMULATIONP* NIL)
 defun bufill (buffer)
 DEFUN READ-CHAR-FROM-SERIAL-STREAM-TO-TERMINAL ()
 DEFSUBST TERMINAL-LINEFEED ()
 DEFSUBST TERMINAL-CR ()
 DEFSUBST TERMINAL-END-OF-PAGE-EXCEPTION ()
 DEFSUBST ESCAPE-DISPATCH ()
 DEF-TERMINAL-ESCAPE #\Y T TERMINAL-SET-POS
 DEF-TERMINAL-ESCAPE #\y T TERMINAL-RESET-MODE
 DEF-TERMINAL-ESCAPE #\x T TERMINAL-SET-MODE
 DEF-TERMINAL-ESCAPE #/[ T TERMINAL-EAT-TEMP	; this may be wrong
 defun dual-connect (*serial-stream* *terminal* state
 defflavor kterm-state
 defvar *notify-when-eof-is-read* nil)
 DEFUN READ-CHAR-FROM-SERIAL-STREAM-TO-TERMINAL ()
 defsubst serial-tyi ()
 defvar *serial-stream-mask* #o177)
 defun dual-connect (*serial-stream* *terminal* state
 defvar *notify-when-eof-is-read* nil)
 DEFUN TERMINAL-NETWORK-HELP ()
 defun network-keystroke-handler-internal ()
 DEFUN READ-CHAR-FROM-SERIAL-STREAM-TO-TERMINAL ()
 defvar *snarf-telnet-negotiations* nil)	; ditto
 defvar *auto-clear-eol-on-linefeed-flag* nil)	; only used by tcp:telnet-h19 - mwt
 DEFSUBST TERMINAL-LINEFEED ()
 DEFSUBST TERMINAL-CR ()
 DEFSUBST TERMINAL-END-OF-PAGE-EXCEPTION ()
 defconst *wrap-around-instead-of-scrolling-flag* nil)
 defun network-keystroke-handler ()
 defun dual-connect (*serial-stream* *terminal* state
 defun make-tiger-operator-window (&aux w)
 defun tiger-operator-process-toplevel (window)
 defun make-tiger-operator-window (&aux w)
 defun kill-tiger-operator-window ()
 defun start-tiger ()
 defun make-tiger-operator-window (&aux w)
 defmethod (tiger-operator-window :after :kill) (&rest ignore)
 defflavor tiger-operator-window
 defmethod (toshiba-p1351-stream :download-font)
 defmethod (basic-printer-stream-mixin :tyo) (char)
 defmethod (laser1-stream :bitblt) (width height array x y &aux left-bit right-bit)
 defvar *laser1-orientation* :PORTRAIT)
 defmethod (laser1-stream :setup-normal) ()
 defmethod (laser1-stream :set-up-for-graphics) (r)
 defun column-reverse-bit-search (array y x count)
 defun column-bit-search (array1 y1 x1 count1)
 defmethod (laser1-stream :bitblt) (width height array x y &aux left-bit right-bit)
 defun array-to-tape-interface (printer array left top right bottom &rest options)
 defun array-to-file-interface (printer array left top right bottom &rest options)
 defun-with-arglist tiger-array tiger-array-arglist (entry &rest options &optional &key
 defun-with-arglist tiger-stream tiger-stream-arglist (stream &rest options &aux file)
 defun tiger-array-entry-1 (array sender user always-spool-p &rest options &optional &key
 defun make-tiger-queue-directory-filename (host name type)
 DEFUN WRITE-MAGTAPE-HEADER (STREAM PLIST &OPTIONAL (STYLE :MIT))
 DEFUN DETERMINE-COPY-DESTINATION (TO TRUENAME QFASLP INSTREAM)
 defconst tape-file-property-type-plist
 DEFUN MT-RUN (RQB COMMAND
 DEFUN MAKE-MT-FILE-STREAM (&OPTIONAL
 DEFUN MAKE-MT-STREAM (&OPTIONAL &KEY (DIRECTION :INPUT) (BYTE-SIZE 8) (CHARACTERS T)
 DEFFLAVOR MT-MIXIN
 DEFFLAVOR TM-MIXIN
 DEFVAR *DEFAULT-DENSITY* 0
 DEFUN COPY-DIRECTORY (DIR TO &OPTIONAL &REST OPTIONS
 defun restore-tape (&optional &key
 defun open-file-from-tops20-spec (x &aux p1 p2 stream ans)
 defvar *transform* nil)
 DEFUN COPY-DIRECTORY (DIR TO &OPTIONAL &REST OPTIONS
 defun file-server-open-for-lispm (fh filename &rest modes
 defun lmfs-parse-for-server (string)
 defvar *lmfs-parse-for-server-device-kludge* nil
 defun open-err (&rest args)
 defun rfile-server ()
 defun cv-time (x) (time:print-universal-time (or x 0) nil nil ':mm//dd//yy))
 defun maint-killable-files (&optional query &aux bad-boys truename probed)
 defun maint-salvage (&optional (shutdown nil) query &aux bad)
 defun maint-delete-and-expunge (&optional filename query &aux pathname file)
 defun maint-killable-files (&optional query &aux bad-boys truename probed)
 defun maint-salvage (&optional (shutdown nil) query &aux bad)
 defun maint-killable-files (&aux bad-boys truename probed)
 defun maint-salvage (&optional (shutdown t) &aux bad)
 DEFVAR PUT-MINIMUM-FREE-PAGES 256.)
 DEFUN WRITE-DIRECTORY-ENTRY (STREAM FILE)
 DEFUN DIRECTORY-ENTRY-STRING-CHECK (S)
 DEFUN LMFS-DIRECTORY-LIST (PATHNAME HOST DIRECTORY NAME TYPE VERSION OPTIONS
 DEFUN LMFS-DIRECTORY-LIST (PATHNAME HOST DIRECTORY NAME TYPE VERSION OPTIONS
 DEFUN FIND-LM-BAND ()
 DEFUN FIND-LM-BAND ()
 DEFUN LMFS-OPEN-FILE (PATHNAME DIRECTORY NAME TYPE VERSION
 defmethod (unix-stream :after :describe) ()
 defmethod (unix-stream :new-output-buffer) ()
 defmethod (unix-stream :space-available) ()
 defun find-unix-stream (with-login-p)
 DEFVAR *MAIL-SENDING-MODE-ALIST*
 DEFUN SMTP-SEND-IT (PLIST INTERVAL TEMPLATE)
 DEFINE-SITE-HOST-LIST *MAIL-SMTP-HOSTS* :SMTP-MAIL-SERVER-HOSTS)
 DEFUN EDIT-PROFILE-REMEMBERED-MAIL-FILES (NEAR-MODE)
 DEFUN STRING-FROM-HEADER (HEADER FORMAT &AUX (PLIST (LOCF HEADER)) TEM)
 DEFUN GET-FILTER-FUNCTION-1 (MAP-FUNCTION MAP-ARG NAME NEAR-MODE
 DEFUN RESET-ZMAIL-USER (&AUX (OLD-FRACT *SUMMARY-WINDOW-FRACTION*))
 DEFUN SET-MSG-SUMMARY-LINE (MSG STATUS &OPTIONAL LINE &AUX TEMPLATE)
 DEFUN CHOOSE-MAIL-FILE-OPTIONS (ZMAIL-BUFFER &AUX OLD-FLAVOR OLD-APPEND-P PATHNAME FLAVOR
 DEFUN ZMAIL-KEYWORDS-MSG (MSG &AUX OLD-KEYWORDS NEW-KEYWORDS)
 DEFMETHOD (ZMAIL-MULTIPLE-MENU-MIXIN :MULTIPLE-CHOOSE) (ITEM-LIST CURRENTLY-ACTIVE
 DEFUN ZMAIL-BUFFER-PREDICATE-QUERY (ZMAIL-BUFFER PREDICATE ACTION ATTRIBUTE &AUX ARRAY)
 DEFINE-ZMAIL-TOP-LEVEL-COMMAND COM-ZMAIL-PROFILE
 DEFINE-COMMAND-WHO-LINE-DOCUMENTATION-UPDATER COM-ZMAIL-SELECT (STRING)
 DEFINE-COMMAND-WHO-LINE-DOCUMENTATION-UPDATER GET-DEFAULTED-MOVE-ZMAIL-BUFFER
 DEFUN DESCRIBE-FILE-ID (FILE-ID)
 DEFUN DECODE-UNIT-ARGUMENT (UNIT USE &OPTIONAL (CC-DISK-INIT-P NIL) (WRITE-P NIL)
 DEFUN INVOKE-CORRECT-NETWORK-FUNCTION (NAME HOST ARGS)
 DEFVAR *NETWORK-PROTOCOLS* '(:CHAOS :INTERNET))
 DEFINE-NETWORK-FUNCTION OPEN-REMOTE-TAPE-SERVER (HOST)
 DEFINE-NETWORK-FUNCTION FINGER-HOST (HOST USER OUTPUT-STREAM STYLE)
 DEFINE-NETWORK-FUNCTION SEND-TERMINAL-MESSAGE (HOST USER MESSAGE-GENERATOR)
 DEFINE-NETWORK-FUNCTION HOST-STATUS (HOST &REST SIMILAR-HOSTS)
 DEFINE-NETWORK-FUNCTION GET-REMOTE-DISK-UNIT (HOST UNIT USAGE &OPTIONAL INITP WRITEP)
 DEFMACRO DEFINE-NETWORK-FUNCTION (NAME ARGUMENT-LIST &BODY BODY)
 DEFVAR *NETWORK-FUNCTIONS* NIL)
 DEFUN (:CHAOS NETWORK-PATH-AVAILABLE) (TO-HOST)
 DEFUN OTHER-BUS-LOCAL-HOSTP (HOST)
 DEFUN LOCAL-HOSTP (TO-HOST)
 DEFUN DEFAULT-NETWORK-PATH-AVAILABLE (HOST)
 DEFUN NETWORK-PATH-AVAILABLE (TYPE HOST)
 DEFUN PERMISSIBLE-ACCESS-PATH-FLAVOR-P (HOST ACCESS-D &AUX COND-TYPE COND-ARGS)
 defun set-up-shared-memory ()
 defun write-rtc-register (adr data)
 defun read-rtc-register (adr)
 DEFUN DUMP-FORMS-TO-FILE (FILENAME FORMS-LIST &OPTIONAL ATTRIBUTE-LIST)
 defun dump-forms-to-fasd-stream (fasd-stream forms-list)
 defun open-fasd-file (filename)
 defmacro with-open-fasd-file ((stream-variable filename &optional attribute-list) &body body)
 defun set-processor-owning-ethernet (&optional (operation :find))
 defvar dont-use-3com nil
 DEFUN WINDOW-INITIALIZE (&AUX FIRST-TIME)
 defun find-processor-configuration-structure ()
 defun find-processor-configuration-structure ()
 defun execute-iomsg (iomsg)
 DEFUN MOUSE-SET-BLINKER (TYPE-OR-BLINKER &OPTIONAL X-OFFSET Y-OFFSET)
 defmethod (sdu-serial-stream-mixin :set-stop-bits) (length)
 defmethod (sdu-serial-stream-mixin :set-char-length) (length)
 defmethod (sdu-serial-stream-mixin :set-parity) (type)
 defmethod (sdu-serial-stream-mixin :reset) (&optional (abort-output :abort) (reset-chip t))
 defflavor sdu-serial-stream-mixin
 DEFUN FASL-OP-FRAME ()
 DEFUN FASL-NEXT-VALUE-BINDING-FASL-LIST-AREA (X)
 DEFUN SHEET-DISPLAY-X-Y-CENTERED-STRING (SHEET STRING
 DEFUN KBD-ESC-Q (ARG &AUX (PRINTER (OR SI:*DEFAULT-BIT-ARRAY-PRINTER* SI:*DEFAULT-PRINTER*)))
 DEFUN DIRECTORY-INPUT-STREAM (DIRECTORY &REST OPTIONS &AUX (DIR DIRECTORY))
 DEFUN SET-MACRO-CHARACTER (CHAR FUNCTION &OPTIONAL NON-TERMINATING-P
 DEFUN SET-SYNTAX-FROM-CHAR (TO-CHAR FROM-CHAR &OPTIONAL
 defun in-package (name &rest options &key use nicknames)
 defun proclaim (&rest declarations &aux d)
 deff coerce-to-array-optimized #'coerce-to-vector)  ;Still used by old compiled code.
 defun coerce-to-vector (object array-type &optional simplep &aux vector length)
 defun subst-1 (new old-list tree key pred invertp)
 DEFMETHOD (COMMAND-MENU-MIXIN :AFTER :MOUSE-BUTTONS) (BD IGNORE IGNORE)
 DEFUN MAKE-DISPATCH-MACRO-CHARACTER (CHAR &OPTIONAL NON-TERMINATING-P
 DEFMETHOD (BASIC-MOUSE-SENSITIVE-ITEMS :MOUSE-CLICK) (BUTTON X Y &AUX ITEM)
 defmethod (sdu-serial-stream-mixin :set-char-length) (length)
 DEFUN FUNCTION-SPEC-DEFAULT-HANDLER (FUNCTION FUNCTION-SPEC &OPTIONAL ARG1 ARG2)
 DEFUN SET-HOST-WORKING-DIRECTORY (HOST PATHNAME)
 DEFUN SWITCH-WINDOWS (&OPTIONAL CHANGE-INTERVAL (ONE-TO-SELECT 2))
 DEFMETHOD (BITBLT-BLINKER :BLINK) ()
 DEFFLAVOR SPLIT-SCREEN-FRAME () (scale-inferiors-mixin BASIC-FRAME))
 defun prompt-and-read (option format-string &rest format-args)
 defun purge-quad-video ()
 DEFUN LISP-REINITIALIZE (&OPTIONAL (CALLED-BY-USER T)
 DEFMETHOD (ZMACS-BUFFER :WRITE-FILE-INTERNAL) (PATH)
 DEFUN WRITE-FILE-INTERNAL (PATHNAME &OPTIONAL (BUFFER *INTERVAL*))
 DEFUN LAMBDA-TRANSMIT-INT-PKT (INT-PKT &OPTIONAL HOST SUBNET (broadcast-if-necessary t)
 DEFVAR *ESCAPE-KEYS*
 DEFUN SXHASH (X &OPTIONAL RANDOM-OBJECT-ACTION)
 defmethod (interval-stream :syntax-plist) ()
 defun export (symbols &optional (pkg *package*) force-flag)
 DEFUN KBD-ESC-Q (ARG &AUX (PRINTER (OR SI:*DEFAULT-BIT-ARRAY-PRINTER* SI:*DEFAULT-PRINTER*)))
 DEFVAR *ESCAPE-KEYS*
 DEFUN FIX-SAMPLE-PATHNAMES-SITE ()
 DEFPROP LM-PATHNAME T PATHNAME-FLAVOR-CHANGES)
 DEFPROP LMFS-PATHNAME T PATHNAME-FLAVOR-CHANGES)
 DEFUN (:PROPERTY :LPT PRINT-STREAM) (PRINTER STREAM
 DEFUN (:PROPERTY :LPT PRINT-FILE) (PRINTER FILE-NAME
 DEFUN HARDCOPY-STATUS (&OPTIONAL (PRINTER *DEFAULT-PRINTER*)
 DEFUN HARDCOPY-BIT-ARRAY (ARRAY LEFT TOP RIGHT BOTTOM &REST OPTIONS
 DEFUN HARDCOPY-STREAM (STREAM &REST OPTIONS
 DEFUN HARDCOPY-FILE (FILE-NAME &REST OPTIONS
 DEFUN EXPAND-PRINTER-NAME (PRINTER)
 DEFINE-SITE-VARIABLE *PRINTER-NAMES* :PRINTER-NAMES
 DEFUN alist-of-CHECK-SPELLING-WORDLIST (words &aux checker)
 defun apropos-internal (use-any-extended-command-p)
 defun read-delimited-string (&optional (delimiter #/End) (stream *standard-input*)
 defun readline (&rest read-args)
 defun read-line (&optional (stream *standard-input*) (eof-error-p t) eof-value recursive-p
 define-accessors-for-structure system-configuration-qs)
 defconst system-configuration-qs '(
 DEFUN WITH-TIMEOUT-INTERNAL (DURATION PROCESS)
 DEFMACRO WITH-TIMEOUT ((DURATION . TIMEOUT-FORMS) &BODY BODY)
 DEFUN LOAD-ERROR-TABLE (&aux pathname)
 defun oddp (x)
 defun integer-type-name (type noun article)
 DEFUN REPORT-BP-LOSSAGE ()
 DEFUN DEFSTRUCT-PARSE-ONE-FIELD (IT NUMBER PPSS REST CONC-NAME #+MACLISP-10 CHARS
 DEFMETHOD (LOGICAL-PATHNAME :COMPLETE-STRING) (STRING OPTIONS &AUX STRING1 FOO SUCCESS)
 DEFUN (:READ FILE-ATTRIBUTE-BINDINGS) (FILE IGNORE VAL)
 DEFVAR *NAMED-READER-ALIST* '((:T READ)(NIL READ))
 DEFUN COMPILE-STREAM (INPUT-STREAM GENERIC-PATHNAME FASD-FLAG PROCESS-FN
 DEFUN READFILE-INTERNAL (*STANDARD-INPUT* PKG NO-MSG-P)
 DEFVAR *READFILE-READ-FUNCTION* NIL "If non-nil a function to use instead of READ")
 DEFUN LAP-HEADER (Q-LENGTH UNBOXED-LENGTH)
 DEFMETHOD (STREAM-MIXIN :ANY-TYI-NO-HANG) (&OPTIONAL IGNORE)
 DEFUN WAIT-TILL-SAFE-FOR-ERROR (WINDOW FUNCTION &REST ARGS)
 DEFMETHOD (BASIC-INSPECT :OBJECT-NAMED-STRUCTURE)
 DEFUN PRINT-OBJECT (EXP I-PRINDEPTH STREAM
 DEFUN LM-PRINT-DIRECTORY (DEVICE DIRECTORY S SPACE)
 define-accessors-for-structure system-configuration-qs)
 defconst system-configuration-qs '(
 defun merge-pathname-components
 DEFMETHOD (lmfs-PATHNAME-MIXIN :PARSE-NAMESTRING) (IGNORE NAMESTRING
 DEFMETHOD (FILE-STREAM-MIXIN :GET) (INDICATOR &OPTIONAL DEFAULT)
 DEFMACRO (:PROPERTY :READ-COMPILE-LOAD DEFSYSTEM-MACRO)
 DEFMACRO (:PROPERTY :PROGN DEFSYSTEM-MACRO) (&REST Transformations &AUX Values)
 DEFUN ReadForCompilation (Name &AUX (Source (FUNCALL Name ':NEW-TYPE "LISP"))
 DEFUN ReadForCompilation? (Name &AUX (Source (FUNCALL Name ':NEW-TYPE "LISP"))
 DEFINE-SIMPLE-TRANSFORMATION :READ-FOR-COMPILATION ReadForCompilation ReadForCompilation?
 defun xr-xrtyipeek (&optional peek-type &rest read-args)
 defun defpackage-internal (name alist-of-options)
 defun make-package (name &key &optional nicknames (use '("GLOBAL")) super (size #o200)
 DEFUN DISPLAY-FONT (FONT &OPTIONAL (WINDOW TERMINAL-IO) (CLEAR-FIRST-P T) (FROM-FED NIL))
 defun do (&quote &rest x)
 DEFCOM COM-LONG-DOCUMENTATION "Prints long documentation for the specified symbol or function.
 DEFMETHOD (MENU-COMMAND-MENU-MIXIN :WHO-LINE-DOCUMENTATION-STRING) ()
 DEFUN SET-SYS-HOST (HOST-NAME &OPTIONAL OPERATING-SYSTEM-TYPE HOST-ADDRESS
 defmethod (shared-device-pathname :homedir) (&optional ignore)
 DEFMETHOD (PROCESS-MIXIN :AFTER :INIT) (IGNORE)
 DEFUN PARSE-PATH (PATH CONTACT-NAME ARPA-SOCKET)
 DEFMETHOD (BASIC-NVT :NEW-CONNECTION) (HOST GATEWAY CONTACT CONTACT-P WINDOW
 DEFUN PARSE-BUG-ARG (WHO)
 DEFUN QFILE-LOGIN-HOST-UNIT (UNIT LOGIN-P UNAME-HOST
 DEFVAR CATCH-LOGIN-PROBLEMS-P T