Report of patches to update from DJ: GJC.UPDATE; RELEASE-3P0-PATCH-STATUS#> Created by GJC from LMI-MOE on Wednesday the twenty-sixth of February, 1986; 5:35:09 pm Report on directory of patches: #FS::LM-PATHNAME "DJ: L.FILE; SERVER-18.DIRECTORY#3" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:Common-Lisp; Patch-File:T -*- ;;; Patch directory for FILE-Server version 18 ;;; Written 30-Jan-86 16:57:15 by GJC (George Carrette) at site LMI Cambridge ;;; while running on Djinn from band 2 ;;; with Experimental System 110.12, Experimental Local-File 66.0, Experimental FILE-Server 18.0, Experimental MagTape 4.0, Experimental ZMail 65.1, Experimental Unix-Interface 9.0, microcode 1363. Report on source containing patches: #FS::LM-PATHNAME "DJ: L.FILE; SERVER-18-1.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:FILE-SYSTEM; Base:8; Patch-File:T -*- ;;; Patch file for FILE-Server version 18.1 ;;; Reason: ;;; (fs:start-disk-space-warner-process) new feature. ;;; Written 30-Jan-86 16:56:22 by GJC (George Carrette) at site LMI Cambridge ;;; while running on Djinn from band 2 ;;; with Experimental System 110.12, Experimental Local-File 66.0, Experimental FILE-Server 18.0, Experimental MagTape 4.0, Experimental ZMail 65.1, Experimental Unix-Interface 9.0, microcode 1363. ; From file DJ: L.FILE; SERVER.LISP#180 at 30-Jan-86 16:56:23 (defvar *disk-space-warner-interval* 10. "Interval for warning, in minutes") (defvar *disk-space-warner-threshold* 800. "Warning level for disk space") (defvar *disk-space-warner-process* () "The actual process doing the work") (defun disk-space-warner-function () (defun start-disk-space-warner-process () Object file for patches is #FS::LM-PATHNAME "DJ: L.FILE; SERVER-18-1.QFASL#1" Report on directory of patches: #FS::LM-PATHNAME "DJ: L.NETWORK.EDIT; PATCH-1.DIRECTORY#3" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:Common-Lisp; Patch-File:T -*- ;;; Patch directory for Site-Editor version 1 ;;; Written 6-Feb-86 01:29:56 by dg (Dave Goodine) at site LMI Cambridge ;;; while running on Maurice Ravel from band 3 ;;; with Don't-dump-a-band! Experimental System 110.28, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.0, Experimental Gateway 2.0, Inconsistent (unreleased patches loaded) Tape 1.4, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.0, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1365, Alpha-1 Release. Report on source containing patches: #FS::LM-PATHNAME "DJ: L.NETWORK.EDIT; PATCH-1-1.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:SITE-EDITOR; Base:8; Patch-File:T -*- ;;; Patch file for Site-Editor version 1.1 ;;; Reason: ;;; Avoid bombout reading printer specs in site files. Still needs lots of work. --rg ;;; Written 6-Feb-86 01:28:06 by dg (Dave Goodine) at site LMI Cambridge ;;; while running on Maurice Ravel from band 3 ;;; with Don't-dump-a-band! Experimental System 110.28, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.0, Experimental Gateway 2.0, Inconsistent (unreleased patches loaded) Tape 1.4, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.0, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1365, Alpha-1 Release. ; From file DJ: L.NETWORK.EDIT; LOADING-AND-SAVING-SITE-FILES.LISP#43 at 6-Feb-86 01:28:08 (defun get-site-information (NAME SITE-OPTION-ALIST) Object file for patches is #FS::LM-PATHNAME "DJ: L.NETWORK.EDIT; PATCH-1-1.QFASL#1" Report on directory of patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110.PATCH-DIRECTORY#174" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:Common-Lisp; Patch-File:T -*- ;;; Patch directory for System version 110 ;;; Written 26-Feb-86 14:19:26 by GJC at site LMI Cambridge ;;; while running on Guinea Pig from band 2 ;;; with Experimental System 110.54, Experimental TCP-Kernel 39.4, Experimental TCP-User 62.2, Experimental TCP-Server 45.5, Experimental KERMIT 31.1, Experimental ZMail 65.3, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental Tape 1.6, Experimental Lambda-Diag 6.0, microcode 1408. Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-1.LISP#2" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.1 ;;; Reason: ;;; Initial fixes. ;;; Written 25-Jan-86 21:55:29 by rg at site LMI Cambridge ;;; while running on Guinea Pig from band 1 ;;; with Experimental System 110.0, microcode 1345. ; From file DJ: L.IO; DISK.LISP#366 at 25-Jan-86 21:55:30 (DEFVAR *RELEASE-MAJOR-VERSION* 3) (DEFVAR *RELEASE-MINOR-VERSION* 0) (DEFVAR *RELEASE-STATUS* :ALPHA) ; From file DJ: L.SYS2; METH.LISP#64 at 25-Jan-86 21:55:42 (DEFUN PUTMETHOD (CLASS-SYMBOL CLASS-METHOD-SYMBOL MESSAGE &REST BODY) (defun reclaim-oldspace (&optional (reclaim-mode :batch)) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-1.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-2.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.2 ;;; Reason: ;;; Add zwei switch HISTORY-BUFFER-LISTS-PER-WINDOW. Default is T, which is unchanged ;;; from recent behavior. ;;; Written 26-Jan-86 11:35:14 by rg at site LMI Cambridge ;;; while running on Guinea Pig from band 1 ;;; with Experimental System 110.0, microcode 1345. (defvariable *history-buffer-lists-per-window* T :boolean (DEFUN ROTATE-BUFFER-HISTORY (N) (DEFCOM COM-LIST-BUFFERS "Print a list of the all buffers and their files (or sizes)." () (defun buffer-list-as-selected () (DEFUN PREVIOUS-BUFFER (&REST NOT-THESE-BUFFERS) (DEFUN EDIT-BUFFERS-REVERT (BUFFER &OPTIONAL IGNORE IGNORE SELECT-P) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-2.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-3.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.3 ;;; Reason: ;;; fix to CHAOS:CHAOS-UNKNOWN-HOST-FUNCTION ;;; Written 26-Jan-86 13:51:49 by rg at site LMI Cambridge ;;; while running on Guinea Pig from band 1 ;;; with Experimental System 110.2, microcode 1345. ; From file DJ: L.NETWORK.CHAOS; CHUSE.LISP#21 at 26-Jan-86 13:51:51 (DEFUN CHAOS-UNKNOWN-HOST-FUNCTION (NAME) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-3.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-4.LISP#2" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.4 ;;; Reason: ;;; (open "burr-brown-debug-master-1:") or (open "burr-brown-debug-master-2:") -gjc ;;; Written 27-Jan-86 16:19:44 by rg (Richard Greenblatt) at site LMI Cambridge ;;; while running on Guinea Pig from band 1 ;;; with Experimental System 110.3, microcode 1345. ; From file DJ: L.SYS; SHARED-DEVICE.LISP#38 at 27-Jan-86 16:19:45 (defflavor burr-brown-debug-master-shared-device (defflavor burr-brown-debug-master Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-4.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-5.LISP#3" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.5 ;;; Reason: ;;; Fix to Rubout handler which caused an error for C-Sh-A unless ;;; a space away from the function being called. ;;; Written 27-Jan-86 20:12:57 by DG at site LMI Cambridge ;;; while running on Maurice Ravel from band 1 ;;; with Experimental System 110.0, Experimental TCP-User 61.0, Experimental TCP-Server 42.0, Experimental TCP-Kernel 37.0, microcode 1345. ; From file DJ: L.WINDOW; RH.LISP#168 at 27-Jan-86 21:13:26 (DEFUN-RH RH-GET-FUNCTION (&OPTIONAL (POS (RH-TYPEIN-POINTER)) &AUX MOVED END) ; From file DJ: L.WINDOW; RH.LISP#168 at 27-Jan-86 21:13:33 (DEFUN MAKE-SEQUENCE-STREAM (SEQUENCE &OPTIONAL START END &AUX STREAM (INDEX (OR START 0)) (LIMIT (OR END (LENGTH SEQUENCE)))) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-5.QFASL#3" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-7.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.7 ;;; Reason: ;;; SET-CONSOLE-SIZE now sets MAIN-SCREEN-WIDTH in addition to MAIN-SCREEN-HEIGHT ;;; Written 28-Jan-86 11:38:52 by GJC at site LMI Cambridge ;;; while running on Maurice Ravel from band 1 ;;; with Experimental System 110.5, Experimental TCP-Kernel 37.0, Experimental TCP-User 61.0, Experimental TCP-Server 42.0, microcode 1345. ; From file DJ: L.WINDOW; SHWARM.LISP#359 at 28-Jan-86 11:38:53 (DEFUN SET-CONSOLE-SIZE (WIDTH HEIGHT) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-7.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-8.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.8 ;;; Reason: ;;; my TERMINAL-4-Q hack from release 2.0 ;;; Written 28-Jan-86 14:03:14 by GJC at site LMI Cambridge ;;; while running on Maurice Ravel from band 1 ;;; with Experimental System 110.7, Experimental TCP-Kernel 37.0, Experimental TCP-User 61.0, Experimental TCP-Server 42.0, microcode 1345. (DEFUN KBD-ESC-Q (ARG &AUX (PRINTER (OR SI:*DEFAULT-BIT-ARRAY-PRINTER* SI:*DEFAULT-PRINTER*))) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-8.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-9.LISP#2" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for System version 110.9 ;;; Reason: ;;; rework of FILE-ACCESS functions to use new function NET:NETWORK-PATH-AVAILABLE ;;; Reason: ;;; DEFINE-FILE-ACCESS related functions generalized for work to come ;;; Written 28-Jan-86 18:05:07 by GJC at site LMI Cambridge ;;; while running on Maurice Ravel from band 1 ;;; with Experimental System 110.7, Experimental TCP-Kernel 37.0, Experimental TCP-User 61.0, Experimental TCP-Server 42.0, Experimental Local-File 66.0, microcode 1345. ; From file DJ: L.IO.FILE; ACCESS.LISP#31 at 28-Jan-86 18:05:08 (DEFUN PERMISSIBLE-ACCESS-PATH-FLAVOR-P (HOST ACCESS-D) (DEFUN DETERMINE-FILE-ACCESS-FLAVORS (HOST) (DEFUN DEFAULT-FILE-ACCESS-CONDITION-CHECK (HOST ITEM) (DEFUN (:LOCAL FILE-ACCESS-CONDITION) (HOST IGNORE) (DEFUN (:FILE-SYSTEM-TYPE FILE-ACCESS-CONDITION) (HOST ITEM) ; From file DJ: L.IO.FILE; ACCESS.LISP#32 at 28-Jan-86 18:16:59 (DEFUN (:NETWORK FILE-ACCESS-CONDITION) (HOST ITEM) (DEFUN NETWORK-PATH-AVAILABLE (TYPE HOST) (DEFUN DEFAULT-NETWORK-PATH-AVAILABLE (HOST) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-9.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-10.LISP#3" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for System version 110.10 ;;; Reason: ;;; new macro NETWORK:DEFINE-NETWORK-FUNCTION, and make file access and print-disk-label use it. ;;; Written 29-Jan-86 11:38:29 by GJC at site LMI Cambridge ;;; while running on Lambda Two from band 1 ;;; with Experimental System 110.6, microcode 1363. ; From file DJ: L.NETWORK; TRANSPARENT.LISP#8 at 29-Jan-86 11:38:31 (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) (DEFVAR *NETWORK-PROTOCOLS* '(:CHAOS :INTERNET)) (DEFUN INVOKE-CORRECT-NETWORK-FUNCTION (NAME HOST ARGS) ; From file DJ: L.IO; DISK.LISP#369 at 29-Jan-86 11:38:44 (DEFUN DECODE-UNIT-ARGUMENT (UNIT USE &OPTIONAL (DISK-INIT-P NIL) (WRITE-P NIL) ; From file DJ: L.IO.FILE; ACCESS.LISP#32 at 29-Jan-86 11:39:07 (DEFUN PERMISSIBLE-ACCESS-PATH-FLAVOR-P (HOST ACCESS-D) (DEFUN DETERMINE-FILE-ACCESS-FLAVORS (HOST) (DEFUN DEFAULT-FILE-ACCESS-CONDITION-CHECK (HOST ITEM) (DEFUN (:LOCAL FILE-ACCESS-CONDITION) (HOST IGNORE) (DEFUN (:FILE-SYSTEM-TYPE FILE-ACCESS-CONDITION) (HOST ITEM) (DEFUN (:NETWORK FILE-ACCESS-CONDITION) (HOST ITEM) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-10.QFASL#3" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-11.LISP#2" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.11 ;;; Reason: ;;; use dispose-of-unit at the correct time. ;;; Reason: ;;; Fix for my `fix' to print disk label in 109 for PRINT-DISK-LABEL, ;;; disposing of the unit correctly. ;;; Written 30-Jan-86 11:12:58 by dg (Dave Goodine) at site LMI Cambridge ;;; while running on Maurice Ravel from band 2 ;;; with Experimental System 110.10, Experimental Local-File 66.0, Experimental Unix-Interface 9.0, Experimental ZMail 65.1, Experimental TCP-Kernel 39.0, Experimental TCP-User 62.0, Experimental TCP-Server 45.0, microcode 1345, Working band. ; From file DJ: L.IO; DLEDIT.LISP#79 at 30-Jan-86 12:51:59 (DEFUN PRINT-DISK-LABEL (&OPTIONAL (UNIT 0) (STREAM STANDARD-OUTPUT) &aux decoded-unit dont-dispose) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-11.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-12.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.12 ;;; Reason: ;;; Fix a format string to look nicer. ;;; Written 30-Jan-86 14:22:27 by JRM at site LMI Cambridge ;;; while running on Lambda Two from band 2 ;;; with Experimental System 110.11, Experimental Local-File 66.0, Experimental FILE-Server 18.0, Experimental MagTape 4.0, Experimental ZMail 65.1, Experimental Unix-Interface 9.0, microcode 1365. (DEFUN LIST-ZMACS-CALLERS-TO-BE-EDITED (TYPE FUNCTION JUST-EDIT CALLERS) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-12.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-13.LISP#1" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for System version 110.13 ;;; Reason: ;;; Idle scavenger now quits when page fault occurs. ;;; Written 30-Jan-86 16:45:10 by JRM at site LMI Cambridge ;;; while running on Lambda Two from band 2 ;;; with Experimental System 110.11, Experimental Local-File 66.0, Experimental FILE-Server 18.0, Experimental MagTape 4.0, Experimental ZMail 65.1, Experimental Unix-Interface 9.0, microcode 1365. (defun reclaim-oldspace (&optional (reclaim-mode :batch)) (defun scavenge (units idle-scavenge-p) ; From file DJ: L.SYS2; PROCES.LISP#186 at 30-Jan-86 16:50:57 (DEFUN PROCESS-SCHEDULER-IDLE-FUNCTION () Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-13.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-14.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.14 ;;; Reason: ;;; HOSTAB server. ;;; Written 30-Jan-86 17:21:02 by GJC (George Carrette) at site LMI Cambridge ;;; while running on Djinn from band 2 ;;; with Experimental System 110.12, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental MagTape 4.0, Experimental ZMail 65.1, Experimental Unix-Interface 9.0, microcode 1363. ; From file DJ: L.NETWORK.CHAOS; CHSAUX.LISP#382 at 30-Jan-86 17:21:08 (defun output-host-other-attributes (stream attlist &aux format-fun) (defun output-one-host-attribute (stream name attribute &functional string-function) (defun hostab-server (&aux conn) (defun hostab-server-to-stream (stream host-name? &aux host) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-14.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-15.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.15 ;;; Reason: ;;; Fix problem in DIRED that can result in stale buffer when #> file "E"ed. ;;; Written 31-Jan-86 14:13:23 by rg at site LMI Cambridge ;;; while running on Guinea Pig from band 1 ;;; with Experimental System 110.10, Experimental MagTape 4.0, microcode 1345. (DEFUN NEED-TO-REVERT-BUFFER (PATHNAME) (DEFCOM COM-DIRED-EDIT-FILE "Edit the current file; or DIRED it if it's a directory" () (defun select-buffer-pathname (pathname &optional version-we-want) (DEFCOM COM-DIRED-EDIT-FILE-TWO-WINDOWS (defun buffer-file-version-if-known (buffer) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-15.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-16.LISP#2" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.16 ;;; Reason: ;;; Add error check to MAKE-STACK-GROUP. ;;; Written 31-Jan-86 23:24:18 by rg at site LMI Cambridge ;;; while running on Guinea Pig from band 1 ;;; with Experimental System 110.15, microcode 1365. ; From file DJ: L.SYS; SGFCTN.LISP#68 at 31-Jan-86 23:24:19 (DEFUN MAKE-STACK-GROUP (NAME &REST OPTIONS &KEY &OPTIONAL Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-16.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-17.LISP#2" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for System version 110.17 ;;; Reason: ;;; Grossly speed up ALLOCATE-RESOURCE and DEALLOCATE-RESOURCE. Fix :FREE-LIST-CELL option ;;; to DEFRESOURCE. Cause FORMAT-PARAMS to use :FREE-LIST-CELL option, futher speeding up ;;; FORMAT. Among other things, LIST-BUFFERs in ZWEI is noticably faster! ;;; Written 1-Feb-86 02:26:18 by rg at site LMI Cambridge ;;; while running on Guinea Pig from band 1 ;;; with Experimental System 110.16, microcode 1365. ; From file DJ: L.SYS2; RESOUR.LISP#46 at 1-Feb-86 02:26:20 (DEFUN ALLOCATE-RESOURCE (RESOURCE-NAME &REST PARAMETERS ; From file DJ: L.SYS2; RESOUR.LISP#46 at 1-Feb-86 02:27:45 (DEFUN DEALLOCATE-RESOURCE (RESOURCE-NAME OBJECT &AUX RESOURCE) ; From file DJ: L.IO; FORMAT.LISP#261 at 1-Feb-86 02:28:02 (DEFRESOURCE FORMAT-PARAMS () Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-17.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-18.LISP#2" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.18 ;;; Reason: ;;; Fix to constraint parsing for constraint frames. ;;; Written 1-Feb-86 14:08:59 by dg (Dave Goodine) at site LMI Cambridge ;;; while running on Maurice Ravel from band 2 ;;; with Experimental System 110.14, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental Unix-Interface 9.0, Experimental ZMail 65.1, Experimental TCP-Kernel 39.0, Experimental TCP-User 62.0, Experimental TCP-Server 45.0, microcode 1365, DG's Working band. (DEFUNP PARSE-CONSTRAINT (CONSTR PANES WINDOW LG-P EVEN-P &AUX (MIN -1) (MAX 1_15.)) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-18.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-20.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.20 ;;; Reason: ;;; SI:MAKE-DUMMY-HOST ;;; Written 1-Feb-86 17:07:55 by GJC at site LMI Cambridge ;;; while running on Lambda Two from band 2 ;;; with Experimental System 110.17, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental MagTape 4.0, Experimental ZMail 65.1, Experimental Unix-Interface 9.0, microcode 1365. ; From file DJ: L.NETWORK; HOST.LISP#152 at 1-Feb-86 17:07:56 (DEFUN MAKE-DUMMY-HOST (TYPE) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-20.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-21.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.21 ;;; Reason: ;;; :TYI-BUSY-WAIT and :TYI-WITH-TIMEOUT now implemented properly in new SDU-SERIAL-STREAM stuff ;;; Written 2-Feb-86 17:27:08 by GJC at site LMI Cambridge ;;; while running on Lambda Two from band 2 ;;; with Experimental System 110.17, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental MagTape 4.0, Experimental ZMail 65.1, Experimental Unix-Interface 9.0, microcode 1365. ; From file DJ: L.IO1; SDU-SERIAL.LISP#27 at 2-Feb-86 17:27:08 (defun sdu-serial-stream-mixin-default-input-wait (unibus-channel) (defun sdu-serial-stream-mixin-busy-input-wait (unibus-channel) (defvar *sdu-serial-stream-mixin-input-wait* 'sdu-serial-stream-mixin-default-input-wait) (defmethod (sdu-serial-stream-mixin :tyi-busy-wait) (&optional ignore) (defvar *sdu-serial-stream-mixin-timeout-input-wait*) (defun sdu-serial-stream-mixin-timeout-input-wait (unibus-channel) (DEFMETHOD (SI:SDU-SERIAL-STREAM-MIXIN :TYI-WITH-TIMEOUT) (TIMEOUT) ; From file DJ: L.IO1; SDU-SERIAL.LISP#28 at 2-Feb-86 17:28:31 (defmethod (sdu-serial-stream-mixin :next-input-buffer) (&optional no-hang-p) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-21.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-22.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.22 ;;; Reason: ;;; SETF property for PLANE-AREF ;;; Written 2-Feb-86 23:29:24 by GJC at site LMI Cambridge ;;; while running on Guinea Pig from band 1 ;;; with Experimental System 110.20, microcode 1365. ; From file DJ: L.SYS2; PLANE.LISP#34 at 2-Feb-86 23:29:24 (DEFSETF PLANE-AREF SET-PLANE-AREF) ; From file DJ: L.SYS2; PLANE.LISP#34 at 2-Feb-86 23:29:31 (DEFMACRO SET-PLANE-AREF (PLANE &REST L) ; From file DJ: L.SYS2; PLANE.LISP#34 at 2-Feb-86 23:29:35 (DEFUN SET-PLANE-AREF-1 (PLANE X VALUE) ; From file DJ: L.SYS2; PLANE.LISP#34 at 2-Feb-86 23:29:38 (DEFUN SET-PLANE-AREF-2 (PLANE X Y VALUE) ; From file DJ: L.SYS2; PLANE.LISP#34 at 2-Feb-86 23:29:42 (DEFUN SET-PLANE-AREF-3 (PLANE X Y Z VALUE) ; From file DJ: L.SYS2; PLANE.LISP#34 at 2-Feb-86 23:29:45 (DEFUN SET-PLANE-AREF-4 (PLANE X Y Z S VALUE) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-22.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-23.LISP#1" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for System version 110.23 ;;; Reason: ;;; Fix store to be MACLISP compatible again. ;;; Written 3-Feb-86 00:30:18 by GJC at site LMI Cambridge ;;; while running on Lambda Six from band 1 ;;; with Experimental System 110.15, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental MagTape 4.0, Experimental ZMail 65.1, Experimental Unix-Interface 9.0, Experimental TCP-Kernel 39.0, Experimental TCP-User 62.0, Experimental TCP-Server 45.0, Experimental KERMIT 31.0, microcode 1365. ; From file DJ: L.SYS2; MACARRAY.LISP#7 at 3-Feb-86 00:30:19 (DEFMACRO STORE (ARRAY-REFERENCE VALUE) ; From file DJ: L.SYS2; MACARRAY.LISP#7 at 3-Feb-86 00:30:36 (DEFUN STORE-MEDIATION-ROUTINE-INTERNAL (X) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-23.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-24.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.24 ;;; Reason: ;;; Minor change to LAM:UA-DO-DEFMIC. ;;; Written 3-Feb-86 15:01:51 by DG at site LMI Cambridge ;;; while running on Guinea Pig from band 1 ;;; with Experimental System 110.17, microcode 1366. ; From file DJ: L.ULAMBDA; USYMLD.LISP#5 at 3-Feb-86 15:01:54 (DEFUN UA-DO-DEFMIC (NAME OPCODE ARGLIST LISP-FUNCTION-P NO-QINTCMP Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-24.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-25.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.25 ;;; Reason: ;;; Don't bother to get unknown hosts in CHAOS::RESET-SAVED-HOST-LISTS. ;;; Fix HOSTAB server (unparser property was moved to SI package). ;;; Written 3-Feb-86 21:13:01 by RpK at site LMI Cambridge ;;; while running on Test Lambda A from band 4 ;;; with Experimental System 110.3, Experimental ZMail 65.1, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, microcode 1365. (DEFUN RESET-SAVED-HOST-LISTS (&OPTIONAL (DO-ALL-HOSTS T) DO-LOCAL-LISPMS DO-ALL-LISPMS) (defun output-host-other-attributes (stream attlist &aux format-fun) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-25.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-26.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.26 ;;; Reason: ;;; Fix SI:EDIT-DISK-LABEL to dispose of units properly. ;;; Written 4-Feb-86 10:41:24 by DG at site LMI Cambridge ;;; while running on Maurice Ravel from band 2 ;;; with Experimental System 110.24, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental MagTape 4.1, Experimental ZMail 65.1, Experimental Unix-Interface 9.0, microcode 1365, Pre-Alpha GC Band. (DEFUN EDIT-DISK-LABEL (&OPTIONAL (LE-UNIT 0) (INIT-P NIL) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-26.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-27.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.27 ;;; Reason: ;;; Make End in ZMacs c-x M mail work again (same as 109 patch). ;;; Written 4-Feb-86 14:14:03 by RpK (Robert P. Krajewski) at site LMI Cambridge ;;; while running on Laurie Anderson from band 2 ;;; with Experimental System 110.26, Experimental ZMail 65.2, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, microcode 1365, Nifty. ; From file DJ: L.ZWEI; DIRED.LISP#320 at 4-Feb-86 14:14:05 (DEFCOM COM-EXIT-COM-MAIL "Actually transmits the mail." () Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-27.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-28.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.28 ;;; Reason: ;;; Don't make "xxx cold-booted" message for who line until ;;; initializations are finished. ;;; Written 5-Feb-86 14:57:21 by pace (Pace Willisson) at site LMI Cambridge ;;; while running on Lene Lovich from band 2 ;;; with Experimental System 110.27, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, microcode 1365, Nifty. (DEFMETHOD (WHO-LINE-FILE-SHEET :UPDATE) (&AUX (MAX-CHARS (TRUNCATE (SHEET-INSIDE-WIDTH) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-28.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-29.LISP#3" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for System version 110.29 ;;; Reason: ;;; Fix to evaluator, reload SYS:SYS;EVAL. Requires ucode >=1368. ;;; Written 5-Feb-86 21:18:25 by dg (Dave Goodine) at site LMI Cambridge ;;; while running on Guinea Pig from band 1 ;;; with Experimental System 110.27, microcode 1366. ; From file DJ: L.PATCH; SYSTEM-110-13.LISP#1 at 5-Feb-86 21:18:26 Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-29.QFASL#3" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-30.LISP#1" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for System version 110.30 ;;; Reason: ;;; remove the :before-cold stuff re analyze changed files. ;;; Written 6-Feb-86 09:38:57 by DG at site LMI Cambridge ;;; while running on Djinn from band 2 ;;; with Don't-dump-a-band! Experimental System 110.27, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental MagTape 4.1, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Inconsistent (unreleased patches loaded) Tape 1.4, microcode 1365. ; From file DJ: L.SYS2; ANALYZE.LISP#40 at 6-Feb-86 09:38:58 ; From file DJ: L.SYS2; ANALYZE.LISP#40 at 6-Feb-86 09:39:21 Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-30.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-31.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.31 ;;; Reason: ;;; Eliminate a pointer to previous version of LET. ;;; Written 6-Feb-86 13:58:37 by rg at site LMI Cambridge ;;; while running on Guinea Pig from band 1 ;;; with Experimental System 110.27, microcode 1366. ; From file DJ: L.SYS2; ENCAPS.LISP#32 at 6-Feb-86 13:58:38 (deff encapsulation-let #'let) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-31.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-32.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.32 ;;; Reason: ;;; From 109.98: Fix some system type expanders to fix subtypep bugs ;;; From 109.99: Fix signalling of eh:number-array-not-allowed ;;; Fix peek of areas with no regions ;;; (Mly) ;;; Written 7-Feb-86 15:02:49 by RpK (Robert P. Krajewski) at site LMI Cambridge ;;; while running on David Byrne from band 1 ;;; with Experimental System 110.31, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, microcode 1368, Nifty. (defmacro define-system-type (name &body cruft) (define-system-type sequence (define-system-type string-char (define-system-type bignum (define-system-type bit (def-ucode-error number-array-not-allowed number-array-not-allowed (defflavor number-array-not-allowed (referencing-function) (bad-array-trap) (defmethod (number-array-not-allowed :report) (stream) (defun peek-areas-region-display (item) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-32.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-33.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.33 ;;; Reason: ;;; Fix to TV:INSPECT-REAL-VALUE. ;;; Written 8-Feb-86 17:16:58 by jrm at site LMI Cambridge ;;; while running on Lambda Two from band 2 ;;; with Experimental System 110.31, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental MagTape 4.1, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, microcode 1368. (DEFUN INSPECT-REAL-VALUE (SLOT &AUX FUN) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-33.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-34.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.34 ;;; Reason: ;;; Make Common Lisp pathname accessors convert argument to pathname. ;;; Written 8-Feb-86 17:42:04 by RpK (Robert P. Krajewski) at site LMI Cambridge ;;; while running on David Byrne from band 1 ;;; with Experimental System 110.33, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, microcode 1368, Nifty. (DEFUN PATHNAME-HOST (P) (DEFSUBST PATHNAME-DEVICE (P) (DEFSUBST PATHNAME-DIRECTORY (P) (DEFSUBST PATHNAME-NAME (P) (DEFSUBST PATHNAME-TYPE (P) (DEFSUBST PATHNAME-VERSION (P) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-34.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-35.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.35 ;;; Reason: ;;; Add some defensive code to ZWEI. ;;; Written 8-Feb-86 21:32:10 by rg at site LMI Cambridge ;;; while running on Curley from band 3 ;;; with Experimental System 110.29, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.0, Experimental Gateway 2.0, Experimental Tape 1.5, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.0, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1368, Alpha-2 Release. (DEFUN RECENTER-WINDOW (WINDOW RECENTER-TYPE &OPTIONAL RC1 RC2 &AUX TOP-LINE TOP-INDEX (defun-method window-redisplay-dis-text window (now point-pline top-line top-index (DEFMETHOD (WINDOW :PUT-POINT-AT-PLINE) (POINT-LINE POINT-INDEX POINT-PLINE FIRST-BP LAST-BP Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-35.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-36.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.36 ;;; Reason: ;;; *make-condition-default-restrictive* is T ;;; Written 9-Feb-86 14:26:05 by GJC at site LMI Cambridge ;;; while running on Djinn from band 2 ;;; with Experimental System 110.12, Experimental Local-File 66.0, Experimental FILE-Server 18.0, Experimental MagTape 4.0, Experimental ZMail 65.1, Experimental Unix-Interface 9.0, microcode 1365. ; From file DJ: L.DEBUGGER; EHF.LISP#285 at 9-Feb-86 14:26:06 (defvar *make-condition-default-restrictive* T) ; From file DJ: L.DEBUGGER; EHF.LISP#285 at 9-Feb-86 14:26:11 (defun make-condition-default (signal-name format-string &rest args) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-36.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-37.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.37 ;;; Reason: ;;; Control-T now works in the rubout handler. ;;; Written 10-Feb-86 14:58:40 by JRM at site LMI Cambridge ;;; while running on Lambda Two from band 2 ;;; with Experimental System 110.36, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental MagTape 4.1, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, microcode 1371. (defun array-int->array-char (int-array) (defun array-int->string (int-array) (DEFINE-RH-COMMAND RH-COM-TWIDDLE-CHARACTERS (#/CONTROL-T) (IGNORE &AUX DELETE-POINTER STRING) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-37.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-38.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.38 ;;; Reason: ;;; Fix printing of bit vectors. ;;; Fix weird screw cases of symbol printing. ;;; Written 11-Feb-86 12:18:04 by RpK (Robert P. Krajewski) at site LMI Cambridge ;;; while running on David Byrne from band 1 ;;; with Experimental System 110.37, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, Experimental Lambda-Diag 3.0, microcode 1368, Nifty. (DEFUN PRINT-BIT-VECTOR (EXP STREAM) (defun print-symbol (symbol stream &optional (rdtbl (current-readtable))) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-38.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-39.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.39 ;;; Reason: ;;; -Really- fix c-t in bletcherous rubout handler ;;; Fix c-q on weird chars ;;; Written 12-Feb-86 11:46:24 by RpK (Robert P. Krajewski) at site LMI Cambridge ;;; while running on David Byrne from band 1 ;;; with Experimental System 110.38, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, Experimental Lambda-Diag 3.0, microcode 1368, Nifty. (DEFINE-RH-COMMAND RH-COM-QUOTE-CHARACTER (#/CONTROL-Q) (N) (DEFINE-RH-COMMAND RH-COM-TWIDDLE-CHARACTERS (#/CONTROL-T) (IGNORE) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-39.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-40.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.40 ;;; Reason: ;;; 109.100: Fix compilation of multiple-value-bind's last form ;;; Written 12-Feb-86 11:52:57 by RpK (Robert P. Krajewski) at site LMI Cambridge ;;; while running on David Byrne from band 1 ;;; with Experimental System 110.38, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, Experimental Lambda-Diag 3.0, microcode 1368, Nifty. ; From file DJ: L.PATCH; SYSTEM-109-100.LISP#1 at 12-Feb-86 11:52:57 (DEFUN (:PROPERTY MULTIPLE-VALUE-BIND P1) (FORM) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-40.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-41.LISP#1" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for System version 110.41 ;;; Reason: ;;; 109.101: ;;; Fix compilation of (typep x '(signed-byte/unsigned-byte n)) ;;; Improve error messages for invalid numeric type specifier ranges ;;; Fix number of values hashtables :print-self as having ;;; Written 12-Feb-86 11:55:13 by RpK (Robert P. Krajewski) at site LMI Cambridge ;;; while running on David Byrne from band 1 ;;; with Experimental System 110.38, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, Experimental Lambda-Diag 3.0, microcode 1368, Nifty. ; From file DJ: L.PATCH; SYSTEM-109-101.LISP#1 at 12-Feb-86 11:55:14 (defmacro define-system-type (name &body cruft) (define-system-type unsigned-byte (define-system-type signed-byte (defun print-hash-array (harry stream as-hash-table-p testp) (defun optimize-numeric-type-test (predicate expression low high) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-41.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-42.LISP#2" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.42 ;;; Reason: ;;; Now that there are no losing temporary areas, cons compile-file lap crud in compiler area ;;; Written 12-Feb-86 15:00:51 by RpK (Robert P. Krajewski) at site LMI Cambridge ;;; while running on David Byrne from band 1 ;;; with Experimental System 110.41, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, Experimental Lambda-Diag 3.0, microcode 1368, Nifty. (DEFUN QLAPP (FCTN LAP-MODE) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-42.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-43.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.43 ;;; Reason: ;;; The correct fix for and/or for effect/predicate ;;; Written 12-Feb-86 15:14:10 by RpK (Robert P. Krajewski) at site LMI Cambridge ;;; while running on David Byrne from band 1 ;;; with Experimental System 110.41, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, Experimental Lambda-Diag 3.0, microcode 1368, Nifty. (DEFUN P2ANDOR (ARGL DEST) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-43.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-44.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.44 ;;; Reason: ;;; Add site option :DEFAULT-INITIAL-FORM. ;;; If present, then after the initializations for a cold boot are finished, ;;; the form is printed out, and the user is asked whether to execute it. ;;; If YES, or after a one minute timeout, the form is evaluated. ;;; For example, I will put (login "pace") on this option for my machine ;;; in LMLOCS. ;;; Written 13-Feb-86 09:41:15 by pace at site LMI Cambridge ;;; while running on Lene Lovich from band 2 ;;; with Experimental System 110.25, Experimental ZMail 65.1, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, microcode 1371, Nifty. (DEFUN LISP-REINITIALIZE (&OPTIONAL (CALLED-BY-USER T) (defun maybe-execute-default-initial-form () Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-44.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-45.LISP#1" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for System version 110.45 ;;; Reason: ;;; Offer to do a level 2 flip before disk save. This avoids booted band having lots of ;;; level 2 and (particularily) 3 stuff which will have to be paged in on first flip. ;;; Written 14-Feb-86 09:40:57 by gjc at site LMI Cambridge ;;; while running on Maurice Ravel from band 2 ;;; with Experimental System 110.30, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.5, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.0, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1368, Alpha-1 Release. ; From file DJ: L.SYS2; GC.LISP#297 at 14-Feb-86 09:40:59 (defun maybe-flip-level-2 () Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-45.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-46.LISP#1" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for System version 110.46 ;;; Reason: ;;; Separate gc::scavenge into gc::scavenge and gc::idle-scavenge ;;; Fix reporting in gc::status when (aref *level-control* ...) is t ;;; Written 14-Feb-86 10:27:44 by rpk at site LMI Cambridge ;;; while running on David Byrne from band 1 ;;; with Experimental System 110.44, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, microcode 1368, Nifty. (defun reclaim-oldspace (&optional (reclaim-mode :batch)) (defun scavenge (units) (defun idle-scavenge (units) (DEFUN PROCESS-SCHEDULER-IDLE-FUNCTION () (defun status (&optional (stream *standard-output*)) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-46.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-47.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.47 ;;; Reason: ;;; SETQ TV:MAIN-SCREEN-WIDTH, surgery to fix embriological problem. ;;; Written 14-Feb-86 10:52:11 by GJC at site LMI Cambridge ;;; while running on Djinn from band 1 ;;; with Experimental System 110.36, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.5, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.2, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1368, Alpha-1 Release. ; From file DJ: L.WINDOW; SHWARM.LISP#359 at 14-Feb-86 10:52:13 Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-47.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-48.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.48 ;;; Reason: ;;; makes the following functions network generic: FINGER, SHOUT, QSEND, HOSTAT. ;;; Written 14-Feb-86 18:09:04 by gjc at site LMI Cambridge ;;; while running on James Brown from band 4 ;;; with Experimental System 110.30, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.5, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.0, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1368, Alpha-1 Release. ; From file DJ: L.IO1; CONVER.LISP#149 at 14-Feb-86 18:09:05 (defun send-msg (destination message &aux host (person "anyone")) ; From file DJ: L.NETWORK; TRANSPARENT.LISP#9 at 14-Feb-86 18:13:21 (DEFINE-NETWORK-FUNCTION SEND-TERMINAL-MESSAGE (HOST USER MESSAGE-GENERATOR) ; From file DJ: L.NETWORK; TRANSPARENT.LISP#9 at 14-Feb-86 18:13:26 (DEFINE-NETWORK-FUNCTION FINGER-HOST (HOST USER OUTPUT-STREAM STYLE) (DEFUN CREATE-HOSTAT-CONNECTION-LIST (HOSTS &AUX LIST) (DEFUN SHOUT (&AUX MSG-TEXT HOST PERSON) (DEFUN FINGER (&OPTIONAL SPEC (STREAM *STANDARD-OUTPUT*) HACK-BRACKETS-P (DEFUN CHAOS-PROTOCOL-HOSTS-FILTER (HOSTS) (DEFUN ALL-LOCAL-LISPMS (&OPTIONAL RESET) (DEFUN ALL-LISPMS (&OPTIONAL RESET) (DEFUN ALL-CHAOS-HOSTS (&OPTIONAL RESET) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-48.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-49.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.49 ;;; Reason: ;;; Random clicks to unselectable windows whose superior is a screen don't throw ;;; users into the cold load stream. ;;; Stop using TV::SCROLL-LIST-AREA (will shrink to 0 after next full GC). ;;; Written 14-Feb-86 19:16:15 by RpK (Robert P. Krajewski) at site LMI Cambridge ;;; while running on David Byrne from band 1 ;;; with Experimental System 110.47, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, microcode 1368, Nifty. (defmethod (sheet :default :self-or-substitute-selected-p) () ; From file DJ: L.WINDOW; SCROLL.LISP#182 at 14-Feb-86 19:19:30 (defvar scroll-list-area working-storage-area) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-49.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-50.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.50 ;;; Reason: ;;; Disable and make-obsolete RETURN-STORAGE and RETURN-ARRAY. ;;; Now they call SI:WIPE-STRUCTURE. Also print more info ;;; for DTP-U-ENTRYs that aren't really microcoded. ;;; Written 18-Feb-86 12:21:16 by pace at site LMI Cambridge ;;; while running on Lene Lovich from band 3 ;;; with Experimental System 110.44, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, microcode 1371, Nifty+. (defun int-pkt-in-correct-area-p (int-pkt) (defun create-chaosnet-buffers (n-buffers) (defvar big-chaosnet-buffers nil) (defun create-bigger-chaosnet-buffers (n-buffers) (defun find-chaos-buffers-for-patch () (defun return-storage (object) (deff return-array 'return-storage) ; From file DJ: L.IO; PRINT.LISP#215 at 18-Feb-86 12:45:20 (DEFUN PRINT-TRULY-RANDOM-OBJECT (EXP STREAM I-PRINDEPTH) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-50.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-51.LISP#1" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.51 ;;; Reason: ;;; minor fencepost in %deallocate-end-of-region, ;;; create newspace regions with scavenge enable off, like the ;;; cold load builder does. ;;; Written 18-Feb-86 13:05:34 by pace at site LMI Cambridge ;;; while running on Lene Lovich from band 3 ;;; with Experimental System 110.44, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, microcode 1371, Nifty+. (defun %deallocate-end-of-region (region) (defun make-area (&key name Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-51.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-52.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.52 ;;; Reason: ;;; no-op assure-free-space in debugger since it depends on return-storage ;;; Written 18-Feb-86 17:00:33 by pace (Pace Willisson) at site LMI Cambridge ;;; while running on Lene Lovich from band 3 ;;; with Experimental System 110.51, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, microcode 1371, Nifty+. (defun assure-free-space () Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-52.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-53.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.53 ;;; Reason: ;;; Shared IO buffer frames handle :IO-BUFFER message now. ;;; (Was causing problems on warm boot.) ;;; Written 18-Feb-86 17:22:51 by RpK (Robert P. Krajewski) at site LMI Cambridge ;;; while running on David Byrne from band 1 ;;; with Don't-dump-a-band! Experimental System 110.51, Inconsistent (unreleased patches loaded) ZMail 65.4, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, microcode 1368, Nifty. ; From file DJ: L.WINDOW; FRAME.LISP#171 at 18-Feb-86 17:22:51 (DEFFLAVOR CONSTRAINT-FRAME-WITH-SHARED-IO-BUFFER ((IO-BUFFER NIL)) (BASIC-CONSTRAINT-FRAME) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-53.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-54.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.54 ;;; Reason: ;;; Extension to DEFSTRUCT allowing multiple names for an included slot. The slot in question ;;; is specified by the first name. The new names are in "format 3" and may have byte-specs. ;;; Written 19-Feb-86 01:52:43 by rg at site LMI Cambridge ;;; while running on Curley from band 3 ;;; with Don't-dump-a-band! Experimental System 110.49, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.6, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.4, Experimental TCP-User 62.2, Experimental TCP-Server 45.5, Experimental Unix-Interface 9.0, Inconsistent (unreleased patches loaded) ZMail 65.4, Experimental Window-Maker 1.0, microcode 1380, Alpha-2 Release. (DEFUN DEFSTRUCT-PARSE-ITEMS (ITEMS DESCRIPTION) (DEFUN DEFSTRUCT-PARSE-ONE-FIELD (IT NUMBER PPSS REST CONC-NAME #+MACLISP-10 CHARS Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-54.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-55.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.55 ;;; Reason: ;;; Fix cruddy input editor meta-t ;;; Record name of input histories ;;; Written 19-Feb-86 09:38:54 by RpK at site LMI Cambridge ;;; while running on David Bowie from band 1 ;;; with Don't-dump-a-band! Experimental System 110.54, Inconsistent (unreleased patches loaded) ZMail 65.4, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, microcode 1368, Nifty. (DEFUN-RH RH-EXCHANGE-WORDS (TYPE) (DEFUN RH-MAKE-INPUT-HISTORY (&OPTIONAL NAME) (DEFUN-RH ALTERNATE-RUBOUT-HANDLER () Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-55.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-56.LISP#2" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.56 ;;; Reason: ;;; Warn about obsolete (non-&key) calls to string-equal ;;; Written 19-Feb-86 11:45:32 by RpK (Robert P Krajewski) at site LMI Cambridge ;;; while running on David Bowie from band 1 ;;; with Don't-dump-a-band! Experimental System 110.54, Inconsistent (unreleased patches loaded) ZMail 65.4, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, microcode 1368, Nifty. (DEFUN CHECK-NUMBER-OF-ARGS (FORM &OPTIONAL FUNCTION) (defun string-equal-style-kludge (s1 s2 &key start1 start2 end1 end2) (defun (:property string-equal style-checker) (form) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-56.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-57.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for System version 110.57 ;;; Reason: ;;; new version of copy-disk-partition ;;; Written 19-Feb-86 16:39:18 by GJC at site LMI Cambridge ;;; while running on Guinea Pig from band 2 ;;; with Experimental System 110.54, Experimental TCP-Kernel 39.4, Experimental TCP-User 62.2, Experimental TCP-Server 45.5, Experimental KERMIT 31.1, Experimental ZMail 65.3, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental Tape 1.6, Experimental Lambda-Diag 6.0, microcode 1383. ; From file DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:45:34 (defmacro with-decoded-disk-unit ((decoded encoded use . options) &body body) ; From file DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:45:39 (DEFMACRO WITH-DISK-RQB ((RQB . OPTIONS) &BODY BODY) ; From file DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:45:42 (DEFUN MAYBE-GET-DISK-RQB (&REST L) ; From file DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:48:04 (DEFUN PRINT-AVAILABLE-BANDS (&OPTIONAL (WHICH "LOD") ; From file DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:48:25 (DEFUN MEASURED-SIZE-OF-PARTITION (PART &OPTIONAL (UNIT 0)) ; From file DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:49:17 (DEFUN COPY-DISK-PARTITION (FROM-UNIT FROM-PART TO-UNIT TO-PART &OPTIONAL &KEY ; From file DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:49:22 (DEFUN COMPARE-DISK-PARTITION (FROM-UNIT FROM-PART TO-UNIT TO-PART &OPTIONAL &KEY ; From file DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:49:29 (DEFUN COPY-DISK-PARTITION-BACKGROUND (FROM-UNIT FROM-PART TO-UNIT TO-PART ; From file DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:49:35 (DEFUN SERVICE-DISK-PARTITION (FROM-UNIT FROM-PART TO-UNIT TO-PART &OPTIONAL &KEY ; From file DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:49:41 (DEFUN MAGTAPE-UNIT-P (FROM-UNIT) ; From file DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:49:44 (DEFUN MEASURED-FROM-PART-SIZE (FROM-UNIT FROM-PART FROM-PART-BASE FROM-PART-SIZE) ; From file DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:49:50 (DEFUN READ-LMC-WORD (WORD-ADDRESS RQB UNIT LMC-FORMATP) ; From file DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:49:55 (DEFUN COPY-DISK-PORTION (FROM-UNIT FROM-START FROM-END TO-UNIT TO-START TO-END &OPTIONAL &KEY ; From file DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:50:00 (DEFUN COMPARE-DISK-DATA (RQB1 RQB2 AMT BLOCK) ; From file DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:50:05 (DEFUN MAKE-SEQUENCE-PRINTER (&OPTIONAL (N 1) &AUX LAST) ; From file DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:50:09 (DEFUN ANTICIPATE-DISK-OPERATIONS (UNIT OPERATION ADDRESS N-OPERATIONS RQB-NPAGES) ; From file DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:50:14 (defun MT-UNIT-MAGTAPE-UNIT (from-unit &AUX WIN) ; From file DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:50:19 (DEFUN COPY-DISK-PORTION-NEXT-READ-TAPE-VOLUME (UNIT EXPECT-INDEX) ; From file DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:50:25 (DEFVAR *NEXT-WRITE-VOLUME-BACKUP-PAGES* 20.) ; From file DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:50:28 (defun COPY-DISK-PORTION-NEXT-WRITE-TAPE-VOLUME (UNIT INDEX &AUX RECORD-SIZE) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-57.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-58.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.58 ;;; Reason: ;;; %inhibit-read-only for rename-within encapsulations ;;; Written 19-Feb-86 13:14:02 by RpK (Robert P. Krajewski) at site LMI Cambridge ;;; while running on David Byrne from band 1 ;;; with Don't-dump-a-band! Experimental System 110.55, Inconsistent (unreleased patches loaded) ZMail 65.4, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, microcode 1368, Nifty. ; From file DJ: L.SYS2; ENCAPS.LISP#33 at 19-Feb-86 13:14:04 (defun rename-within-add (within-function function-to-rename (defun rename-within-delete (within-function original renamed-name) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-58.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-59.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.59 ;;; Reason: ;;; Avoid bombout when listing buffers in narrow editor windows. ;;; Written 19-Feb-86 18:20:24 by rich at site LMI Cambridge ;;; while running on Guinea Pig from band 2 ;;; with Experimental System 110.54, Experimental TCP-Kernel 39.4, Experimental TCP-User 62.2, Experimental TCP-Server 45.5, Experimental KERMIT 31.1, Experimental ZMail 65.3, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental Tape 1.6, Experimental Lambda-Diag 6.0, microcode 1383. ; From file DJ: L.ZWEI; ZMACS.LISP#554 at 19-Feb-86 18:20:25 (DEFUN NAME-FOR-DISPLAY (BUFFER MAX-SIZE &AUX (NAME (BUFFER-NAME BUFFER))) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-59.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-60.LISP#2" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.60 ;;; Reason: ;;; Avoid bombout on YES-OR-NO-P or Y-OR-N-P of null string. ;;; Written 19-Feb-86 22:30:13 by rich at site LMI Cambridge ;;; while running on Guinea Pig from band 2 ;;; with Don't-dump-a-band! Experimental System 110.59, Experimental TCP-Kernel 39.4, Experimental TCP-User 62.2, Experimental TCP-Server 45.5, Experimental KERMIT 31.1, Inconsistent (unreleased patches loaded) ZMail 65.4, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Inconsistent (unreleased patches loaded) Tape 1.7, Experimental Lambda-Diag 6.0, microcode 1383. ; From file DJ: L.IO1; FQUERY.LISP#46 at 19-Feb-86 22:30:14 (DEFUN Y-OR-N-P (&OPTIONAL FORMAT-STRING &REST FORMAT-ARGS) ; From file DJ: L.IO1; FQUERY.LISP#46 at 19-Feb-86 22:30:30 (DEFUN YES-OR-NO-P (&OPTIONAL FORMAT-STRING &REST FORMAT-ARGS) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-60.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-61.LISP#2" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.61 ;;; Reason: ;;; LOAD-FILE in ZWEI offers to save associated buffer if it is modified. Also offers to ;;; compile, if it seems to be needed. ;;; Written 20-Feb-86 01:41:16 by rich at site LMI Cambridge ;;; while running on Guinea Pig from band 2 ;;; with Don't-dump-a-band! Experimental System 110.60, Experimental TCP-Kernel 39.4, Experimental TCP-User 62.2, Experimental TCP-Server 45.5, Experimental KERMIT 31.1, Inconsistent (unreleased patches loaded) ZMail 65.4, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Inconsistent (unreleased patches loaded) Tape 1.7, Experimental Lambda-Diag 6.0, microcode 1383. ; From file DJ: L.ZWEI; FILES.LISP#207 at 20-Feb-86 01:41:17 (DEFCOM COM-LOAD-FILE "Load a file. With arg, compile if necessary." () Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-61.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-62.LISP#3" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for System version 110.62 ;;; Reason: ;;; Add SDU Boot Tape and ROM versions to SYSTEM-VERSION-INFO and DESCRIBE-SYSTEM-VERSIONS, ;;; so that they appear in the herald and in bug reports. ;;; Reason: ;;; Add Newboot and SDU ROM version numbers to SYSTEM-VERSION-INFO ;;; and DESCRIBE-SYSTEM-VERSIONS, so that they appear in the herald ;;; and in bug reports. ;;; Written 20-Feb-86 18:30:05 by bobp (Bob Powell) at site LMI Cambridge ;;; while running on Poindexter from band 2 ;;; with Experimental System 110.54, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, microcode 1371, SDU Newboot 227, SDU ROM 103, Nifty+. ; From file DJ: L.SYS2; PATCH.LISP#172 at 20-Feb-86 18:30:05 (DEFUN SYSTEM-VERSION-INFO (&OPTIONAL (BRIEF-P NIL) &AUX (FIRST T) TEM) (DEFUN DESCRIBE-SYSTEM-VERSIONS (&OPTIONAL (S *STANDARD-OUTPUT*) (defun get-boot-tape-version-number () (defun get-sdu-rom-version-number () Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-62.QFASL#3" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-63.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.63 ;;; Reason: ;;; Define :HOST and :HOST-OR-NIL keywords for choose variable values. ;;; Random hosts are not :FILE-HOST-P. (RpK) ;;; Written 20-Feb-86 18:40:53 by DEXTER at site LMI Cambridge ;;; while running on Laurie Anderson from band 3 ;;; with Experimental System 110.44, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, Experimental ObjectLISP 2.0, Experimental Window-Maker 1.0, microcode 1371, Nifty+. (defun read-host-name (stream) (defun read-host-name-or-nil (stream) (defprop :host (princ read-host-name) choose-variable-values-keyword) (defprop :host-or-nil (princ read-host-name-or-nil) (defmethod (host :file-host-p) () nil) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-63.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-64.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.64 ;;; Reason: ;;; fix COMPILE-FILE to have common-lisp compatible argument names ;;; Written 21-Feb-86 11:21:42 by kollar at site LMI Cambridge ;;; while running on Maurice Ravel from band 3 ;;; with Experimental System 110.47, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.6, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.2, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1380, Alpha-1 Release. (DEFUN COMPILE-FILE (INPUT-FILE Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-64.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-65.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.65 ;;; Reason: ;;; fix in the make-system system to not bomb out writing new qfasl files ;;; (with different default binary file types). -mhd ;;; Written 21-Feb-86 14:57:26 by mhd (Mark Henry David) at site LMI Cambridge ;;; while running on Guinea Pig from band 2 ;;; with Don't-dump-a-band! Experimental System 110.64, Experimental TCP-Kernel 39.4, Experimental TCP-User 62.2, Experimental TCP-Server 45.5, Experimental KERMIT 31.1, Inconsistent (unreleased patches loaded) ZMail 65.5, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental Tape 1.8, Experimental Lambda-Diag 6.0, microcode 1368, SDU Newboot 223, SDU ROM 102. (DEFUN QC-FILE-1 (INFILE OUTFILE) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-65.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-66.LISP#2" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.66 ;;; Reason: ;;; For common lisp compatability, RETURN takes one (1) optional argument, the ;;; RESULT, whose value defaults to NIL. For compatibility between common lisp ;;; and zetalisp, RETURN with 2 or more arguments is changed (by the compiler) to be ;;; (RETURN (VALUES . 2-OR-MORE-ARGUMENTS)) and a warning is given. Since ;;; calling RETURN with no arguments is legal and dandy according to common ;;; lisp, no warning is given for this case. However, traditional zetalisp ;;; defined this to mean (RETURN (VALUES)), rather than (RETURN NIL) -- we ;;; leave this problem as an exercise to the release notes writers (RpK?). ;;; Note that all the above applies analogously for RETURN-FROM. ;;; -- MHD and GJC ;;; Written 21-Feb-86 16:23:27 by mhd (Mark Henry David) at site LMI Cambridge ;;; while running on Guinea Pig from band 2 ;;; with Don't-dump-a-band! Experimental System 110.65, Experimental TCP-Kernel 39.4, Experimental TCP-User 62.2, Experimental TCP-Server 45.5, Experimental KERMIT 31.1, Inconsistent (unreleased patches loaded) ZMail 65.5, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental Tape 1.8, Experimental Lambda-Diag 6.0, microcode 1368, SDU Newboot 223, SDU ROM 102. (DEFUN P1RETURN-FROM (FORM) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-66.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-67.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.67 ;;; Reason: ;;; change micro-code-entry-area to be a "structured" area ;;; Written 21-Feb-86 17:12:44 by pace (Pace Willisson) at site LMI Cambridge ;;; while running on Lene Lovich from band 2 ;;; with Experimental System 110.64, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, Experimental ObjectLISP 2.0, Experimental IMicro 1.0, microcode 1371, SDU Newboot 227, SDU ROM 102, paint/obl. Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-67.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-68.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.68 ;;; Reason: ;;; Load DISK QFASL 379, and DLEDIT QFASL 82 which are cleaned up versions with some new functionality ;;; Written 21-Feb-86 17:35:30 by GJC at site LMI Cambridge ;;; while running on Curley from band 3 ;;; with Experimental System 110.67, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.8, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.0, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1404, SDU ROM 103, Alpha-2 Release. Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-68.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-69.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for System version 110.69 ;;; Reason: ;;; make CATCH be a special form instead of #@&^!%^!$$%@^%!!!! ;;; Written 21-Feb-86 20:40:05 by GJC at site LMI Cambridge ;;; while running on Curley from band 3 ;;; with Experimental System 110.68, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.8, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.0, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1404, SDU ROM 103, Alpha-2 Release. (defun eval1 (form &optional nohook) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-69.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-70.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.70 ;;; Reason: ;;; make compile-file accept the old keyword so programs that call ;;; it will still work ;;; Written 21-Feb-86 22:21:48 by pace (Pace Willisson) at site LMI Cambridge ;;; while running on Lene Lovich from band 2 ;;; with Experimental System 110.64, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, Experimental ObjectLISP 2.0, Experimental IMicro 2.0, microcode 1371, SDU Newboot 227, SDU ROM 102, paint/obl. (DEFUN COMPILE-FILE (INPUT-FILE Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-70.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-71.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.71 ;;; Reason: ;;; new version of GENTEMP that doesnt call FORMAT. -GJC ;;; Written 22-Feb-86 16:36:56 by rg (Richard Greenblatt) at site LMI Cambridge ;;; while running on Curley from band 3 ;;; with Experimental System 110.69, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.8, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.0, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, Experimental IMicro 2.0, microcode 1404, SDU ROM 103, Alpha-2 Release. (DEFVAR *GENTEMP-COUNTER* (MAKE-ARRAY 10 :TYPE 'ART-STRING :INITIAL-ELEMENT #\0 :FILL-POINTER 1)) (DEFUN GENTEMP (&OPTIONAL (PREFIX "T") (PKG PACKAGE)) (DEFUN INCREMENT-DECIMAL-STRING (S) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-71.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-72.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.72 ;;; Reason: ;;; stuff to support dynamically linked MISC instructions ;;; Written 23-Feb-86 04:30:28 by pace (Pace Willisson) at site LMI Cambridge ;;; while running on Lene Lovich from band 2 ;;; with Experimental System 110.71, Experimental ZMail 65.4, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, Experimental ObjectLISP 2.0, Experimental IMicro 3.0, microcode 1371, SDU Newboot 227, SDU ROM 102, paint/obl. (defvar *placeholder-function-number*) (defun assign-placeholder (name) (defun placeholder-p1 (form) (defun placeholder-p2 (argl dest) (DEFUN QCOMPILE0 (EXP FUNCTION-TO-BE-DEFINED GENERATING-MICRO-COMPILER-INPUT-P ; From file DJ: L.DEBUGGER; EH.LISP#387 at 23-Feb-86 04:32:03 (DEFUN PREPARE-TO-SIGNAL-MICROCODE-CONDITION (SG ETE &OPTIONAL (IGNORE T) &AUX Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-72.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-74.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.74 ;;; Reason: ;;; Fix bug in si:compare-disk-partition. ;;; Written 23-Feb-86 10:39:25 by rg at site LMI Cambridge ;;; while running on Djinn from band 1 ;;; with Experimental System 110.71, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.10, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.4, Experimental TCP-User 62.2, Experimental TCP-Server 45.5, Experimental Unix-Interface 9.0, Experimental ZMail 65.4, Experimental Window-Maker 1.0, microcode 1368, SDU ROM 8, Alpha-1 Release. ; From file DJ: L.IO; DISK.LISP#380 at 23-Feb-86 10:39:28 (DEFUN SERVICE-DISK-PARTITION (FROM-UNIT FROM-PART TO-UNIT TO-PART &OPTIONAL &KEY Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-74.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-75.LISP#1" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for System version 110.75 ;;; Reason: ;;; Better host table dumper for :HOSTS2. ;;; Written 26-Feb-86 06:39:17 by RpK (Robert P. Krajewski) at site LMI Cambridge ;;; while running on David Byrne from band 1 ;;; with Experimental System 110.74, Experimental ZMail 65.4, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, microcode 1368, SDU ROM 102, Nifty. (DEFUN DUMP-HOST-TABLE-FILE (FILE FORMAT &REST KEYS) (defun unparse-address (address network-type) (defconstant default-hosts2-network-numbers '((:chaos . 7))) (define-site-variable *hosts2-network-numbers* :hosts2-network-numbers (defun write-hosts2-preamble (stream) (defprop :hosts2 write-hosts2-preamble preamble-handler) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-75.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-76.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.76 ;;; Reason: ;;; pass along DISK-INIT-P argument to NET:GET-REMOTE-DISK-UNIT as documented. ;;; Written 26-Feb-86 07:49:22 by GJC at site LMI Cambridge ;;; while running on Moe from band 3 ;;; with Experimental System 110.75, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.0, Experimental Gateway 2.0, Experimental Tape 1.11, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.0, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1368, SDU ROM 103, Alpha-2 Release. ; From file DJ: L.IO; DISK.LISP#381 at 26-Feb-86 07:49:23 (DEFUN DECODE-UNIT-ARGUMENT (UNIT USE &OPTIONAL (DISK-INIT-P NIL) (WRITE-P NIL) ; From file DJ: L.IO; DISK.LISP#381 at 26-Feb-86 07:49:44 Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-76.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-77.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.77 ;;; Reason: ;;; cleanup of partition-list that i forgot before ;;; Written 26-Feb-86 07:58:12 by GJC at site LMI Cambridge ;;; while running on Moe from band 3 ;;; with Experimental System 110.75, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.0, Experimental Gateway 2.0, Experimental Tape 1.11, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.0, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1368, SDU ROM 103, Alpha-2 Release. ; From file DJ: L.IO; DISK.LISP#382 at 26-Feb-86 07:58:14 (DEFUN PARTITION-LIST (&OPTIONAL RQB (UNIT 0) ALREADY-READ-P) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-77.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-78.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.78 ;;; Reason: ;;; :CALLABLE-CONSTRUCTORS (DEFAULT IN COMMON-LISP) WILL NEW GENERATE REASONABLE EFFICIENT CODE ;;; Written 26-Feb-86 09:49:40 by GJC at site LMI Cambridge ;;; while running on Guinea Pig from band 2 ;;; with Experimental System 110.54, Experimental TCP-Kernel 39.4, Experimental TCP-User 62.2, Experimental TCP-Server 45.5, Experimental KERMIT 31.1, Experimental ZMail 65.3, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental Tape 1.6, Experimental Lambda-Diag 6.0, microcode 1408. ; From file DJ: L.SYS2; STRUCT.LISP#330 at 26-Feb-86 09:49:41 (defun defstruct-expand-cons-macro (x) ; From file DJ: L.SYS2; STRUCT.LISP#330 at 26-Feb-86 09:49:50 (DEFUN DEFSTRUCT-EXPAND-CONS-MACRO-1 (MACRO-NAME DEFSTRUCT-NAME CONSTRUCTOR-DESCRIPTION BODY) ; From file DJ: L.SYS2; STRUCT.LISP#330 at 26-Feb-86 09:49:58 (DEFUN DEFSTRUCT-DEFINE-CONSTRUCTORS (DESCRIPTION) ; From file DJ: L.SYS2; STRUCT.LISP#330 at 26-Feb-86 09:50:04 (DEFUN DEFSTRUCT-DEFINE-CALLABLE-CONSTRUCTOR (DESCRIPTION SPEC) ; From file DJ: L.SYS2; STRUCT.LISP#330 at 26-Feb-86 09:50:09 (DEFUN DEFSTRUCT-SLOT-DEFAULT-CONSTANT-VALUE (DESCRIPTION SLOT-DESCRIPTION) ; From file DJ: L.SYS2; STRUCT.LISP#330 at 26-Feb-86 09:50:15 (DEFMACRO DEFSTRUCT-EXPAND-WITH-CONS-MACRO (NAME &REST BODY) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-78.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-79.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for System version 110.79 ;;; Reason: ;;; had to change the order of some defstruct expansion forms to get callable constructor to work ;;; Written 26-Feb-86 14:17:23 by GJC at site LMI Cambridge ;;; while running on Guinea Pig from band 2 ;;; with Experimental System 110.54, Experimental TCP-Kernel 39.4, Experimental TCP-User 62.2, Experimental TCP-Server 45.5, Experimental KERMIT 31.1, Experimental ZMail 65.3, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental Tape 1.6, Experimental Lambda-Diag 6.0, microcode 1408. ; From file DJ: L.SYS2; STRUCT.LISP#331 at 26-Feb-86 14:17:25 (DEFUN DEFSTRUCT-1 (OPTIONS ITEMS CLIP) ;CLIP means "common lisp, incompatible"-p Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; SYSTEM-110-79.QFASL#1" Report on directory of patches: #FS::LM-PATHNAME "DJ: L.PATCH; ZMAIL-65.PATCH-DIRECTORY#15" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:Common-Lisp; Patch-File:T -*- ;;; Patch directory for ZMail version 65 ;;; Written 26-Feb-86 05:11:17 by RpK (Robert P. Krajewski) at site LMI Cambridge ;;; while running on David Byrne from band 1 ;;; with Don't-dump-a-band! Experimental System 110.74, Inconsistent (unreleased patches loaded) ZMail 65.5, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, microcode 1368, SDU ROM 102, Nifty. Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; ZMAIL-65-1.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for ZMail version 65.1 ;;; Reason: ;;; site variables for :SMTP mail sending mode ;;; Written 29-Jan-86 18:38:18 by GJC at site LMI Cambridge ;;; while running on Lambda Two from band 2 ;;; with Experimental System 110.10, Experimental Local-File 66.0, Experimental FILE-Server 18.0, Experimental MagTape 4.0, Experimental ZMail 65.0, Experimental Unix-Interface 9.0, Experimental TCP-Kernel 38.0, Experimental TCP-Server 42.0, Experimental TCP-User 62.0, microcode 1363. ; From file DJ: L.ZMAIL; DEFS.LISP#280 at 29-Jan-86 18:38:19 (DEFVAR *MAIL-SENDING-MODE-ALIST* ; From file DJ: L.ZMAIL; MAIL.LISP#317 at 29-Jan-86 18:38:49 (DEFINE-SITE-HOST-LIST *MAIL-SMTP-HOSTS* :SMTP-MAIL-SERVER-HOSTS) (DEFUN SMTP-SEND-IT (PLIST INTERVAL TEMPLATE) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; ZMAIL-65-1.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; ZMAIL-65-2.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for ZMail version 65.2 ;;; Reason: ;;; Look in /usr/mail for unix mail (for system 5). ;;; Written 4-Feb-86 13:22:23 by pace (Pace Willisson) at site LMI Cambridge ;;; while running on Lene Lovich from band 2 ;;; with Experimental System 110.25, Experimental ZMail 65.1, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, microcode 1365, Nifty. (DEFMETHOD (UNIX-MAIL-FILE-MIXIN :INBOX-BUFFER) (&OPTIONAL NEW-PATHNAME DELETE-P) Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; ZMAIL-65-2.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; ZMAIL-65-3.LISP#2" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for ZMail version 65.3 ;;; Reason: ;;; make *from-user-id* and *from-host* be user options ;;; Reason: ;;; make *from-user-id* and *from-host* be user options ;;; Written 4-Feb-86 14:14:37 by pace (Pace Willisson) at site LMI Cambridge ;;; while running on Lene Lovich from band 2 ;;; with Experimental System 110.25, Experimental ZMail 65.2, Experimental Unix-Interface 9.0, Experimental Local-File 66.0, Experimental MagTape 4.1, Experimental FILE-Server 18.1, microcode 1365, Nifty. (define-zmail-user-option *from-user-id* nil :string-or-nil (define-zmail-user-option *FROM-HOST* NIL :string-or-nil Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; ZMAIL-65-3.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.PATCH; ZMAIL-65-4.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for ZMail version 65.4 ;;; Reason: ;;; Make *WINDOW-CONFIGURATION* get set in INITIALIZE-ZMAIL-FRAME-EDITOR-CLOSURE. ;;; It used to initally be NIL which caused problems switching between configurations. ;;; Written 18-Feb-86 14:19:44 by rg (Richard Greenblatt) at site LMI Cambridge ;;; while running on Larry from band 3 ;;; with Experimental System 110.36, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.5, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.2, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, Experimental DOE-Macsyma 1.0, microcode 1368, Alpha-2 Release. (DEFUN INITIALIZE-ZMAIL-FRAME-EDITOR-CLOSURE (ZMAIL-FRAME Object file for patches is #FS::LM-PATHNAME "DJ: L.PATCH; ZMAIL-65-4.QFASL#1" Report on directory of patches: #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1.DIRECTORY#31" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:Common-Lisp; Patch-File:T -*- ;;; Patch directory for Tape version 1 ;;; Written 26-Feb-86 02:13:13 by jrm at site LMI Cambridge ;;; while running on Djinn from band 1 ;;; with Experimental System 110.36, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.10, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.2, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1368, Alpha-1 Release. Report on source containing patches: #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-1.LISP#1" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for Tape version 1.1 ;;; Reason: ;;; Initial fixes. ;;; Written 4-Feb-86 17:23:30 by dg at site LMI Cambridge ;;; while running on Maurice Ravel from band 1 ;;; with Experimental System 110.27, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental Tape 1.0, microcode 1365. (defmethod (lmfl-format :write-file) (device file &key (end-of-tape-action :continue) silent) (defmethod (lmfl-format :compare-file) (device &key transform silent (error-action :return)) (defmethod (lmfl-format :open-file) (device &key (defmethod (lmfl-format :list-files) (device &key (stream *standard-output*) (number-of-files -1)) (defmethod (lmfl-input-mixin :close) (&optional abort-p) (defmethod (lmfl-output-mixin :close) (&optional abort-p) (defun determine-restore-file-pathname (plist transform overwrite query create-directory silent) (defmethod (tape-stream-mixin :discard-input-buffer) (&rest ignore) (defmethod (tape-stream-mixin :next-input-buffer) (&rest ignore) (defmethod (tape-stream-mixin :discard-output-buffer) (&rest ignore) (defmethod (raw-input-mixin :close) (&optional abort-p) (defmethod (raw-output-mixin :close) (&optional abort-p) ; From file DJ: L.TAPE; USER.LISP#81 at 4-Feb-86 17:24:00 (defun parse-device-string (string) ; From file DJ: L.TAPE; USER.LISP#81 at 4-Feb-86 17:24:03 (defun parse-format (format-spec &rest init-options) ; From file DJ: L.TAPE; USER.LISP#81 at 4-Feb-86 17:24:05 (defun write-files (files &key ; From file DJ: L.TAPE; BACKUP.LISP#13 at 4-Feb-86 17:24:08 (defun update-log-info (&optional force-p) ; From file DJ: L.TAPE; TFRAME-COMS.LISP#19 at 4-Feb-86 17:24:22 (defun backup-file-info-generator (&rest ignore) ; From file DJ: L.TAPE; TFRAME-COMS.LISP#19 at 4-Feb-86 17:24:28 (define-command BACKUP-FILESYSTEM backup Object file for patches is #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-1.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-2.LISP#1" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for Tape version 1.2 ;;; Reason: ;;; Various fixes and additional commands. ;;; Written 4-Feb-86 22:15:56 by DG at site LMI Cambridge ;;; while running on Djinn from band 2 ;;; with Experimental System 110.27, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental MagTape 4.1, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Experimental Tape 1.1, microcode 1365. (define-option *verify-transform* dump "Verify Transform" (define-command WRITE-FILES dump (define-command VERIFY-TAPE dump (define-option *transform* retrieve "File restore transform" (define-option *query* retrieve "Query to restore each file" (define-option *overwrite* retrieve "Overwrite mode" (define-option *create-directory* retrieve "Create directory" (define-option *number-of-files-to-restore* retrieve "Number of files to restore at once" (define-option *silent* retrieve "Silent" (define-command FIND-FILE retrieve (define-command RESTORE-FILES retrieve (defmethod (lmfl-format :space-to-end-of-this-file) (device plist records-passed) (defmethod (lmfl-format :restore-file) (device &key transform (defmethod (lmfl-format :write-file) (device file &key (end-of-tape-action :continue) silent) (defmethod (lmfl-format :compare-file) (device &key transform silent (error-action :return)) (defmethod (lmfl-format :open-file) (device &key (defmethod (lmfl-format :list-files) (device &key (stream *standard-output*) (number-of-files -1)) (defun full-directory-list (path &key (inferiors t) (stream *standard-output*) filter-keywords) (defun determine-pathname-byte-size (pathname) (defun file-byte-size (thing) (defun tframe-toplevel-1-loop () ;stolen from SI:LISP-TOP-LEVEL1 (defun process-menu-select (blip) ; From file DJ: L.TAPE; RAW-FORMAT.LISP#7 at 4-Feb-86 22:17:33 (defmethod (raw-format :open-file) (device &key (defun backup-files (file-list host &key (defun log-files (file-list host log-file place format user universal-time) Object file for patches is #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-2.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-3.LISP#2" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for Tape version 1.3 ;;; Reason: ;;; Make FS:MAKE-MT-FILE-STREAM smarter about file byte size. ;;; Reason: ;;; ;;; Written 4-Feb-86 22:26:19 by DG at site LMI Cambridge ;;; while running on Djinn from band 2 ;;; with Experimental System 110.27, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental MagTape 4.1, Experimental ZMail 65.3, Experimental Unix-Interface 9.0, Experimental Tape 1.1, microcode 1365. (DEFUN MAKE-MT-FILE-STREAM (&OPTIONAL Object file for patches is #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-3.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-4.LISP#1" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for Tape version 1.4 ;;; Reason: ;;; Fix to :WRITE-FILE. ;;; Written 5-Feb-86 01:56:03 by dg (Dave Goodine) at site LMI Cambridge ;;; while running on Maurice Ravel from band 3 ;;; with Don't-dump-a-band! Experimental System 110.27, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.0, Experimental Gateway 2.0, Inconsistent (unreleased patches loaded) Tape 1.3, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.0, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1365, Alpha-1 Release. (defmethod (lmfl-format :write-file) (device file &key (end-of-tape-action :continue) silent) Object file for patches is #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-4.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-5.LISP#2" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for Tape version 1.5 ;;; Reason: ;;; More initial fixes... ;;; Written 5-Feb-86 05:48:53 by dg (Dave Goodine) at site LMI Cambridge ;;; while running on Maurice Ravel from band 3 ;;; with Don't-dump-a-band! Experimental System 110.27, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.0, Experimental Gateway 2.0, Inconsistent (unreleased patches loaded) Tape 1.4, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.0, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1365, Alpha-1 Release. (defun set-attributes (slot-list attribute-alist) (defun recursive-file-list-local (&key (defun backup-file-info-generator (&rest ignore) (define-command BACKUP-FILESYSTEM backup (defun backup-files (file-list host &key (defflavor compare-source-changed (source-plist file-plist) (format-error) (defun process-filter-keywords (filter-keywords file-plist) Object file for patches is #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-5.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-6.LISP#1" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for Tape version 1.6 ;;; Reason: ;;; remove :plist from raw-format :open call to make-instance ;;; Written 12-Feb-86 14:26:55 by GJC at site LMI Cambridge ;;; while running on Djinn from band 1 ;;; with Experimental System 110.36, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.5, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.2, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1368, Alpha-1 Release. (defmethod (raw-format :open-file) (device &key Object file for patches is #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-6.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-7.LISP#3" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for Tape version 1.7 ;;; Reason: ;;; Fix :REQUIRED-INSTANCE-VARIABLES for COMPARE-ERROR. ;;; Add bad tape block handling for TAPEMASTER-DEVICE and new device option ;;; SKIP-BAD-BLOCKS. ;;; Written 18-Feb-86 16:39:45 by DG at site LMI Cambridge ;;; while running on Mary had a little Lambda from band 4 ;;; with Experimental System 110.28, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.0, Experimental Gateway 2.0, Experimental Tape 1.6, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.0, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1365, Alpha-1 Release. (defvar *skip-bad-blocks* nil) (defun check-for-error (&key no-signal (error-code (tpb-error *tpb*))) (defun direct-read (dma-buffer record-size unit density (defun direct-write (dma-buffer record-size unit density (defflavor compare-error (source-file file-plist) (format-error) (defun set-attributes (slot-list attribute-alist) (defun %streaming-write (buffer number-of-pages unit density &optional function &rest args) (defun %streaming-read (buffer number-of-pages unit density &optional function &rest args) (defflavor tapemaster-device ((unit 0) (defmethod (tapemaster-device :set-options) (&rest options) (defmethod (tapemaster-device :write-block) (dma-buffer record-size) (defmethod (tapemaster-device :write-array) (array number-of-records record-size) (defmethod (tapemaster-device :write-from-disk) Object file for patches is #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-7.QFASL#3" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-8.LISP#1" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for Tape version 1.8 ;;; Reason: ;;; Fix compare file to get length of files from remote hosts ;;; correctly (locally it's :LENGTH-IN-BYTES, file server calls ;;; it :LENGTH). ;;; ;;; -dg ;;; Written 21-Feb-86 13:14:25 by ALEX at site LMI Cambridge ;;; while running on Aladdin from band 1 ;;; with Experimental System 110.36, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.7, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.2, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1368, Alpha-1 Release. (defmethod (lmfl-format :space-to-end-of-this-file) (device plist records-passed) (defmethod (lmfl-format :compare-file) (device &key transform silent (error-action :return)) Object file for patches is #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-8.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-9.LISP#1" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for Tape version 1.9 ;;; Reason: ;;; Re-initialize default device allowing the recent error recovery ;;; patch to work. ;;; Written 22-Feb-86 18:41:32 by GJC at site LMI Cambridge ;;; while running on Maurice Ravel from band 3 ;;; with Experimental System 110.64, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.8, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.4, Experimental TCP-User 62.2, Experimental TCP-Server 45.5, Experimental Unix-Interface 9.0, Experimental ZMail 65.4, Experimental Window-Maker 1.0, microcode 1380, SDU ROM 102, Alpha-1 Release. ; From file DJ: L.TAPE; INITIALIZATIONS.LISP#2 at 22-Feb-86 18:41:33 Object file for patches is #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-9.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-10.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for Tape version 1.10 ;;; Reason: ;;; Add FS:TM-(INIT/REWIND/UNLOAD) to the compatability package ;;; for people that got used to using them, with obsolete warnings. ;;; Written 22-Feb-86 19:14:32 by dg (Dave Goodine) at site LMI Cambridge ;;; while running on Maurice Ravel from band 3 ;;; with Experimental System 110.71, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.9, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.4, Experimental TCP-User 62.2, Experimental TCP-Server 45.5, Experimental Unix-Interface 9.0, Experimental ZMail 65.4, Experimental Window-Maker 1.0, microcode 1380, SDU ROM 102, Alpha-1 Release. (defun tm-init () (defun tm-rewind () (defun tm-unload () Object file for patches is #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-10.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-11.LISP#2" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for Tape version 1.11 ;;; Reason: ;;; Fix end of tape handling for partitions in LMFL-FORMAT. ;;; Fix timout times for read/write operations in TAPEMASTER-DRIVER. ;;; Other things. ;;; Written 26-Feb-86 02:05:59 by jrm at site LMI Cambridge ;;; while running on Djinn from band 1 ;;; with Experimental System 110.36, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.10, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.2, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1368, Alpha-1 Release. (defmethod (lmfl-format :restore-partition) (plist device silent) (defmethod (lmfl-format :write-partition) (partition-name device unit-arg &key (defmethod (lmfl-format :compare-partition) (device plist silent) (defmethod (lmfl-format :compare-file) (device &key transform silent (error-action :return)) (def-op %direct-read #x2c "[TM] Direct Read" 20) (def-op %direct-write #x30 "[TM] Direct Write" 20) (def-op %streaming-read #x60 "[TM] Streaming Read" 20) (def-op %streaming-write #x64 "[TM] Streaming Write" 20) (def-error #x07 blank-tape (defun check-for-error (&key no-signal (error-code (tpb-error *tpb*))) (defun %streaming-read (buffer number-of-pages unit density &optional function &rest args) (defun streaming-compare-to-disk Object file for patches is #FS::LM-PATHNAME "DJ: L.TAPE; PATCH-1-11.QFASL#2" Report on directory of patches: #FS::LM-PATHNAME "DJ: L.NETWORK.KERMIT; KERMIT-31.PATCH-DIRECTORY#3" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:Common-Lisp; Patch-File:T -*- ;;; Patch directory for KERMIT version 31 ;;; Written 1-Feb-86 09:29:17 by GJC (George Carrette) at site LMI Cambridge ;;; while running on Djinn from band 2 ;;; with Experimental System 110.12, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental MagTape 4.0, Experimental ZMail 65.1, Experimental Unix-Interface 9.0, Experimental KERMIT 31.0, microcode 1363. Report on source containing patches: #FS::LM-PATHNAME "DJ: L.NETWORK.KERMIT; KERMIT-31-1.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for KERMIT version 31.1 ;;; Reason: ;;; CHAOS TELNET now an option in review parameters. ;;; Written 1-Feb-86 09:27:45 by GJC (George Carrette) at site LMI Cambridge ;;; while running on Djinn from band 2 ;;; with Experimental System 110.12, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental MagTape 4.0, Experimental ZMail 65.1, Experimental Unix-Interface 9.0, Experimental KERMIT 31.0, microcode 1363. ; From file DJ: L.NETWORK.KERMIT; CALLS.LISP#51 at 1-Feb-86 09:27:47 (defmethod (kstate :set-params) () ; From file DJ: L.NETWORK.KERMIT; CALLS.LISP#51 at 1-Feb-86 09:28:03 (defun open-chaos-telnet-stream (&OPTIONAL (CONTACT "TELNET")) ; From file DJ: L.NETWORK.KERMIT; CALLS.LISP#51 at 1-Feb-86 09:28:08 (defun make-input-force-output-stream (substream &aux stream need-forcep) Object file for patches is #FS::LM-PATHNAME "DJ: L.NETWORK.KERMIT; KERMIT-31-1.QFASL#1" Report on directory of patches: #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; KERNEL-39.DIRECTORY#11" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:Common-Lisp; Patch-File:T -*- ;;; Patch directory for TCP-Kernel version 39 ;;; Written 17-Feb-86 08:58:09 by GJC at site LMI Cambridge ;;; while running on Maurice Ravel from band 3 ;;; with Experimental System 110.49, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.6, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.3, Experimental TCP-User 62.1, Experimental TCP-Server 45.5, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1380, Alpha-1 Release. Report on source containing patches: #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; KERNEL-39-1.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for TCP-Kernel version 39.1 ;;; Reason: ;;; Set *tcp-abortionp* back to NIL later in the START-INTERNAL sequence. ;;; Written 31-Jan-86 17:04:41 by GJC at site LMI Cambridge ;;; while running on Lambda Two B from band 2 ;;; with Experimental System 110.14, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental MagTape 4.0, Experimental ZMail 65.1, Experimental Unix-Interface 9.0, Experimental KERMIT 31.0, Experimental TCP-Kernel 39.0, Experimental TCP-User 62.0, Experimental TCP-Server 45.0, microcode 1365. ; From file DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-DLOAD.LISP#109 at 31-Jan-86 17:04:42 (DEFUN START-INTERNAL (&KEY &OPTIONAL (MY-INTERNET-ADDRESS Object file for patches is #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; KERNEL-39-1.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; KERNEL-39-2.LISP#2" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for TCP-Kernel version 39.2 ;;; Reason: ;;; new version of exintr wait background process, do a (tcp:start) to install ;;; Reason: ;;; NEW EXINTR, YOU MUST TCP:START AFTER THIS PATCH IF TCP IS ENABLED ;;; Written 16-Feb-86 15:37:00 by GJC at site LMI Cambridge ;;; while running on Maurice Ravel from band 3 ;;; with Experimental System 110.49, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.6, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.3, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, Experimental MagTape 4.1, microcode 1380, Alpha-1 Release. ; From file DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-LISPM.LISP#50 at 17-Feb-86 08:04:04 (DEFVAR *EXINTR-IN-PROCESS* NIL) ; From file DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-LISPM.LISP#51 at 17-Feb-86 08:04:44 (DEFUN EXINTR-MESSAGE-READYP () ; From file DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-LISPM.LISP#51 at 17-Feb-86 08:04:49 (DEFUN EXINTR-WAIT () ; From file DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-LISPM.LISP#51 at 17-Feb-86 08:04:54 (DEFUN EX-QPOLL () ; quick version of ex-poll Object file for patches is #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; KERNEL-39-2.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; KERNEL-39-3.LISP#3" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for TCP-Kernel version 39.3 ;;; Reason: ;;; new version of ex-send-wait to take advantage of last patch ;;; Reason: ;;; optimization to avoid process switch overhead in board<->host communication ;;; Written 16-Feb-86 16:41:09 by GJC at site LMI Cambridge ;;; while running on Maurice Ravel from band 3 ;;; with Experimental System 110.49, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.6, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.3, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, Experimental MagTape 4.1, microcode 1380, Alpha-1 Release. ; From file DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-SUBR.LISP#54 at 17-Feb-86 08:08:12 (DEFUN KP-READYP (KP) ; From file DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-LISPM.LISP#51 at 17-Feb-86 08:08:51 (DEFVAR *HANDLE-OWN-EXINTR-WINS* 0) (DEFVAR *HANDLE-OWN-EXINTR-CALLS* 0) (DEFVAR *HANDLE-OWN-EXINTR-BUSY* NIL) (DEFUN HANDLE-OWN-EXINTR (KP) (DEFUN HANDLE-OWN-EXINTR-STATS (&OPTIONAL RESETP) (DEFUN BUSY-TIME-TEST-1 () (DEFUN BUSY-TIME-TEST-2 () (DEFUN BUSY-TIME-TEST () ; From file DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-SUBR.LISP#54 at 17-Feb-86 08:09:00 (DEFUN EX-SEND-WAIT (KP &OPTIONAL TIMEOUT &AUX RESULT) Object file for patches is #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; KERNEL-39-3.QFASL#3" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; KERNEL-39-4.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for TCP-Kernel version 39.4 ;;; Reason: ;;; enable busy loop count of 100 ;;; Written 17-Feb-86 08:57:26 by GJC at site LMI Cambridge ;;; while running on Maurice Ravel from band 3 ;;; with Experimental System 110.49, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.6, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.3, Experimental TCP-User 62.1, Experimental TCP-Server 45.5, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1380, Alpha-1 Release. ; From file DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-LISPM.LISP#53 at 17-Feb-86 08:57:27 (DEFVAR *HANDLE-OWN-EXINTR-BUSY* 100) Object file for patches is #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; KERNEL-39-4.QFASL#1" Report on directory of patches: #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; USER-62.DIRECTORY#5" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:Common-Lisp; Patch-File:T -*- ;;; Patch directory for TCP-User version 62 ;;; Written 15-Feb-86 15:34:38 by GJC at site LMI Cambridge ;;; while running on Maurice Ravel from band 3 ;;; with Experimental System 110.49, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.6, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.3, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, Experimental MagTape 4.1, microcode 1380, Alpha-1 Release. Report on source containing patches: #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; USER-62-1.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for TCP-User version 62.1 ;;; Reason: ;;; more informative chaos:reject message in CHAOS TCP SERVER ;;; Written 31-Jan-86 17:06:16 by GJC at site LMI Cambridge ;;; while running on Lambda Two B from band 2 ;;; with Experimental System 110.14, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental MagTape 4.0, Experimental ZMail 65.1, Experimental Unix-Interface 9.0, Experimental KERMIT 31.0, Experimental TCP-Kernel 39.0, Experimental TCP-User 62.0, Experimental TCP-Server 45.0, microcode 1365. ; From file DJ: L.NETWORK.IP-TCP.USER; CHAOS-SERVER.LISP#20 at 31-Jan-86 17:06:17 (DEFUN TCP-SERVER-FUNCTION () Object file for patches is #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; USER-62-1.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; USER-62-2.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for TCP-User version 62.2 ;;; Reason: ;;; QSEND interface via SMTP ;;; Written 15-Feb-86 15:30:47 by GJC at site LMI Cambridge ;;; while running on Maurice Ravel from band 3 ;;; with Experimental System 110.49, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.6, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.3, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, Experimental MagTape 4.1, microcode 1380, Alpha-1 Release. (DEFUN MERROR (FORMAT-STRING &REST ARGUMENTS) (DEFUN SEND-TERMINAL-MESSAGE (HOST FROM TO MESSAGE-GENERATOR) Object file for patches is #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; USER-62-2.QFASL#1" Report on directory of patches: #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; SERVER-45.DIRECTORY#11" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:Common-Lisp; Patch-File:T -*- ;;; Patch directory for TCP-Server version 45 ;;; Written 15-Feb-86 15:43:53 by GJC at site LMI Cambridge ;;; while running on Maurice Ravel from band 3 ;;; with Experimental System 110.49, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.6, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.3, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, Experimental MagTape 4.1, microcode 1380, Alpha-1 Release. Report on source containing patches: #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; SERVER-45-1.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for TCP-Server version 45.1 ;;; Reason: ;;; sequential read/write optimization to disk server ;;; Written 7-Feb-86 09:01:28 by GJC at site LMI Cambridge ;;; while running on James Brown from band 4 ;;; with Experimental System 110.30, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.5, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.0, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1368, Alpha-1 Release. ; From file DJ: L.NETWORK.IP-TCP.SERVER; DISK.LISP#10 at 7-Feb-86 09:01:30 (defflavor serial-stream-disk-unit (DEFMETHOD (SERIAL-STREAM-DISK-UNIT :READ) (RQB ADDRESS) (defmethod (serial-stream-disk-unit :write) (rqb address) (defmethod (serial-stream-disk-unit :ANTICIPATE-OPERATIONS) (KIND START-ADDRESS N-OPERATIONS RQB-NPAGES) (DEFMETHOD (serial-stream-disk-unit :ANTICIPATION-PROTOCOL-VIOLATION) (OP RQB ADDRESS) (defun serial-stream-disk-server (stream) (DEFUN serial-stream-disk-server-INTERNAL (stream &aux rqb) Object file for patches is #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; SERVER-45-1.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; SERVER-45-2.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for TCP-Server version 45.2 ;;; Reason: ;;; DEFINE-TCP-SERVER WILL NOW START THE PROCESS TOO IF NETWORK MASTERSHIP IS ENABLED. ;;; Written 8-Feb-86 18:40:32 by GJC at site LMI Cambridge ;;; while running on Maurice Ravel from band 2 ;;; with Experimental System 110.34, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.5, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.1, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1368, Alpha-1 Release. (defun *define-tcp-server (name documentation &KEY TOPLEVEL-FUNCTION LISTEN-PORT (DEFUN START-ONE-TCP-SERVER (S) Object file for patches is #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; SERVER-45-2.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; SERVER-45-3.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for TCP-Server version 45.3 ;;; Reason: ;;; support for RFC 742. FINGER! ;;; Written 14-Feb-86 18:53:52 by gjc at site LMI Cambridge ;;; while running on James Brown from band 4 ;;; with Experimental System 110.30, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.5, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.2, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, microcode 1368, Alpha-1 Release. ; From file DJ: L.NETWORK.IP-TCP.SERVER; FINGER.LISP#7 at 14-Feb-86 18:53:54 (DEFINE-TCP-SERVER FINGER "RFC 742" ; From file DJ: L.NETWORK.IP-TCP.SERVER; FINGER.LISP#7 at 14-Feb-86 18:54:06 (DEFUN FINGER-SERVER-FUNCTION (STREAM) ; From file DJ: L.NETWORK.IP-TCP.SERVER; FINGER.LISP#7 at 14-Feb-86 18:54:11 (DEFUN FINGER-SERVER-INFO (&OPTIONAL (STREAM STANDARD-OUTPUT)) ; From file DJ: L.NETWORK.IP-TCP.SERVER; FINGER.LISP#7 at 14-Feb-86 18:54:14 ; From file DJ: L.NETWORK.IP-TCP.SERVER; FINGER.LISP#7 at 14-Feb-86 18:54:18 (DEFUN FINGER-INTERNET-HOST (HOST USER &OPTIONAL (OSTREAM STANDARD-OUTPUT) STYLE) ; From file DJ: L.NETWORK.IP-TCP.SERVER; FINGER.LISP#7 at 14-Feb-86 18:54:23 (defun make-simple-lispm<-ascii-stream (s) Object file for patches is #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; SERVER-45-3.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; SERVER-45-4.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for TCP-Server version 45.4 ;;; Reason: ;;; SMTP server support for SEND (direct terminal message to user) for CONVERSE/QSEND ;;; Written 15-Feb-86 15:13:23 by GJC at site LMI Cambridge ;;; while running on Maurice Ravel from band 3 ;;; with Experimental System 110.49, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.6, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.3, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, Experimental MagTape 4.1, microcode 1380, Alpha-1 Release. (defun smtp-server-function (stream) (defun (mail smtp-command) (string stream) (DEFUN SMTP-MAIL-CMD (STRING STREAM TERMINAL-MODEP) (defun (SEND smtp-command) (string stream) (defun (rcpt smtp-command) (string stream &aux addr mb) (defun smtp-lookup-mailbox (address) (defun smtp-lookup-mailbox-1 (address &aux f) (defun smtp-mailbox-probe (mb) (defun (data smtp-command) (IGNORE stream &aux data) (defun smtp-send-one-message (desc from to data) (defun smtp-send-one-message-to-mailbox (desc from to data) (defun smtp-send-one-message-to-terminal (desc from to data) Object file for patches is #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; SERVER-45-4.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; SERVER-45-5.LISP#1" ;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for TCP-Server version 45.5 ;;; Reason: ;;; minor change to format of telnet server control-t message ;;; Written 15-Feb-86 15:40:31 by GJC at site LMI Cambridge ;;; while running on Maurice Ravel from band 3 ;;; with Experimental System 110.49, Experimental Local-File 66.0, Experimental FILE-Server 18.1, Experimental ObjectLISP 1.0, Experimental Site-Editor 1.1, Experimental Gateway 2.0, Experimental Tape 1.6, Experimental Tiger 23.0, Experimental Lambda-Diag 3.0, Experimental KERMIT 31.1, Experimental TCP-Kernel 39.1, Experimental TCP-User 62.1, Experimental TCP-Server 45.3, Experimental Unix-Interface 9.0, Experimental ZMail 65.3, Experimental Window-Maker 1.0, Experimental MagTape 4.1, microcode 1380, Alpha-1 Release. ; From file DJ: L.NETWORK.IP-TCP.SERVER; TELNET-UTILITIES.LISP#3 at 15-Feb-86 15:40:32 (DEFUN TELNET-USER:STATUS-INTERRUPT (S) Object file for patches is #FS::LM-PATHNAME "DJ: L.NETWORK.IP-TCP.PATCH; SERVER-45-5.QFASL#1" A list of all files modified: DJ: L.NETWORK.IP-TCP.SERVER; TELNET-UTILITIES.LISP#3 at 15-Feb-86 15:40:32 DJ: L.NETWORK.IP-TCP.SERVER; FINGER.LISP#7 at 14-Feb-86 18:54:23 DJ: L.NETWORK.IP-TCP.SERVER; FINGER.LISP#7 at 14-Feb-86 18:54:18 DJ: L.NETWORK.IP-TCP.SERVER; FINGER.LISP#7 at 14-Feb-86 18:54:14 DJ: L.NETWORK.IP-TCP.SERVER; FINGER.LISP#7 at 14-Feb-86 18:54:11 DJ: L.NETWORK.IP-TCP.SERVER; FINGER.LISP#7 at 14-Feb-86 18:54:06 DJ: L.NETWORK.IP-TCP.SERVER; FINGER.LISP#7 at 14-Feb-86 18:53:54 DJ: L.NETWORK.IP-TCP.SERVER; DISK.LISP#10 at 7-Feb-86 09:01:30 DJ: L.NETWORK.IP-TCP.USER; CHAOS-SERVER.LISP#20 at 31-Jan-86 17:06:17 DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-LISPM.LISP#53 at 17-Feb-86 08:57:27 DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-SUBR.LISP#54 at 17-Feb-86 08:09:00 DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-LISPM.LISP#51 at 17-Feb-86 08:08:51 DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-SUBR.LISP#54 at 17-Feb-86 08:08:12 DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-LISPM.LISP#51 at 17-Feb-86 08:04:54 DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-LISPM.LISP#51 at 17-Feb-86 08:04:49 DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-LISPM.LISP#51 at 17-Feb-86 08:04:44 DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-LISPM.LISP#50 at 17-Feb-86 08:04:04 DJ: L.NETWORK.IP-TCP.KERNEL; DRIVER-DLOAD.LISP#109 at 31-Jan-86 17:04:42 DJ: L.NETWORK.KERMIT; CALLS.LISP#51 at 1-Feb-86 09:28:08 DJ: L.NETWORK.KERMIT; CALLS.LISP#51 at 1-Feb-86 09:28:03 DJ: L.NETWORK.KERMIT; CALLS.LISP#51 at 1-Feb-86 09:27:47 DJ: L.TAPE; INITIALIZATIONS.LISP#2 at 22-Feb-86 18:41:33 DJ: L.TAPE; RAW-FORMAT.LISP#7 at 4-Feb-86 22:17:33 DJ: L.TAPE; TFRAME-COMS.LISP#19 at 4-Feb-86 17:24:28 DJ: L.TAPE; TFRAME-COMS.LISP#19 at 4-Feb-86 17:24:22 DJ: L.TAPE; BACKUP.LISP#13 at 4-Feb-86 17:24:08 DJ: L.TAPE; USER.LISP#81 at 4-Feb-86 17:24:05 DJ: L.TAPE; USER.LISP#81 at 4-Feb-86 17:24:03 DJ: L.TAPE; USER.LISP#81 at 4-Feb-86 17:24:00 DJ: L.ZMAIL; MAIL.LISP#317 at 29-Jan-86 18:38:49 DJ: L.ZMAIL; DEFS.LISP#280 at 29-Jan-86 18:38:19 DJ: L.SYS2; STRUCT.LISP#331 at 26-Feb-86 14:17:25 DJ: L.SYS2; STRUCT.LISP#330 at 26-Feb-86 09:50:15 DJ: L.SYS2; STRUCT.LISP#330 at 26-Feb-86 09:50:09 DJ: L.SYS2; STRUCT.LISP#330 at 26-Feb-86 09:50:04 DJ: L.SYS2; STRUCT.LISP#330 at 26-Feb-86 09:49:58 DJ: L.SYS2; STRUCT.LISP#330 at 26-Feb-86 09:49:50 DJ: L.SYS2; STRUCT.LISP#330 at 26-Feb-86 09:49:41 DJ: L.IO; DISK.LISP#382 at 26-Feb-86 07:58:14 DJ: L.IO; DISK.LISP#381 at 26-Feb-86 07:49:44 DJ: L.IO; DISK.LISP#381 at 26-Feb-86 07:49:23 DJ: L.IO; DISK.LISP#380 at 23-Feb-86 10:39:28 DJ: L.DEBUGGER; EH.LISP#387 at 23-Feb-86 04:32:03 DJ: L.SYS2; PATCH.LISP#172 at 20-Feb-86 18:30:05 DJ: L.ZWEI; FILES.LISP#207 at 20-Feb-86 01:41:17 DJ: L.IO1; FQUERY.LISP#46 at 19-Feb-86 22:30:30 DJ: L.IO1; FQUERY.LISP#46 at 19-Feb-86 22:30:14 DJ: L.ZWEI; ZMACS.LISP#554 at 19-Feb-86 18:20:25 DJ: L.SYS2; ENCAPS.LISP#33 at 19-Feb-86 13:14:04 DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:50:28 DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:50:25 DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:50:19 DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:50:14 DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:50:09 DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:50:05 DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:50:00 DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:49:55 DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:49:50 DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:49:44 DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:49:41 DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:49:35 DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:49:29 DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:49:22 DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:49:17 DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:48:25 DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:48:04 DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:45:42 DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:45:39 DJ: L.IO; DISK.LISP#375 at 19-Feb-86 16:45:34 DJ: L.WINDOW; FRAME.LISP#171 at 18-Feb-86 17:22:51 DJ: L.IO; PRINT.LISP#215 at 18-Feb-86 12:45:20 DJ: L.WINDOW; SCROLL.LISP#182 at 14-Feb-86 19:19:30 DJ: L.NETWORK; TRANSPARENT.LISP#9 at 14-Feb-86 18:13:26 DJ: L.NETWORK; TRANSPARENT.LISP#9 at 14-Feb-86 18:13:21 DJ: L.IO1; CONVER.LISP#149 at 14-Feb-86 18:09:05 DJ: L.WINDOW; SHWARM.LISP#359 at 14-Feb-86 10:52:13 DJ: L.SYS2; GC.LISP#297 at 14-Feb-86 09:40:59 DJ: L.PATCH; SYSTEM-109-101.LISP#1 at 12-Feb-86 11:55:14 DJ: L.PATCH; SYSTEM-109-100.LISP#1 at 12-Feb-86 11:52:57 DJ: L.DEBUGGER; EHF.LISP#285 at 9-Feb-86 14:26:11 DJ: L.DEBUGGER; EHF.LISP#285 at 9-Feb-86 14:26:06 DJ: L.SYS2; ENCAPS.LISP#32 at 6-Feb-86 13:58:38 DJ: L.SYS2; ANALYZE.LISP#40 at 6-Feb-86 09:39:21 DJ: L.SYS2; ANALYZE.LISP#40 at 6-Feb-86 09:38:58 DJ: L.PATCH; SYSTEM-110-13.LISP#1 at 5-Feb-86 21:18:26 DJ: L.ZWEI; DIRED.LISP#320 at 4-Feb-86 14:14:05 DJ: L.ULAMBDA; USYMLD.LISP#5 at 3-Feb-86 15:01:54 DJ: L.SYS2; MACARRAY.LISP#7 at 3-Feb-86 00:30:36 DJ: L.SYS2; MACARRAY.LISP#7 at 3-Feb-86 00:30:19 DJ: L.SYS2; PLANE.LISP#34 at 2-Feb-86 23:29:45 DJ: L.SYS2; PLANE.LISP#34 at 2-Feb-86 23:29:42 DJ: L.SYS2; PLANE.LISP#34 at 2-Feb-86 23:29:38 DJ: L.SYS2; PLANE.LISP#34 at 2-Feb-86 23:29:35 DJ: L.SYS2; PLANE.LISP#34 at 2-Feb-86 23:29:31 DJ: L.SYS2; PLANE.LISP#34 at 2-Feb-86 23:29:24 DJ: L.IO1; SDU-SERIAL.LISP#28 at 2-Feb-86 17:28:31 DJ: L.IO1; SDU-SERIAL.LISP#27 at 2-Feb-86 17:27:08 DJ: L.NETWORK; HOST.LISP#152 at 1-Feb-86 17:07:56 DJ: L.IO; FORMAT.LISP#261 at 1-Feb-86 02:28:02 DJ: L.SYS2; RESOUR.LISP#46 at 1-Feb-86 02:27:45 DJ: L.SYS2; RESOUR.LISP#46 at 1-Feb-86 02:26:20 DJ: L.SYS; SGFCTN.LISP#68 at 31-Jan-86 23:24:19 DJ: L.NETWORK.CHAOS; CHSAUX.LISP#382 at 30-Jan-86 17:21:08 DJ: L.SYS2; PROCES.LISP#186 at 30-Jan-86 16:50:57 DJ: L.IO; DLEDIT.LISP#79 at 30-Jan-86 12:51:59 DJ: L.IO.FILE; ACCESS.LISP#32 at 29-Jan-86 11:39:07 DJ: L.IO; DISK.LISP#369 at 29-Jan-86 11:38:44 DJ: L.NETWORK; TRANSPARENT.LISP#8 at 29-Jan-86 11:38:31 DJ: L.IO.FILE; ACCESS.LISP#32 at 28-Jan-86 18:16:59 DJ: L.IO.FILE; ACCESS.LISP#31 at 28-Jan-86 18:05:08 DJ: L.WINDOW; SHWARM.LISP#359 at 28-Jan-86 11:38:53 DJ: L.WINDOW; RH.LISP#168 at 27-Jan-86 21:13:33 DJ: L.WINDOW; RH.LISP#168 at 27-Jan-86 21:13:26 DJ: L.SYS; SHARED-DEVICE.LISP#38 at 27-Jan-86 16:19:45 DJ: L.NETWORK.CHAOS; CHUSE.LISP#21 at 26-Jan-86 13:51:51 DJ: L.SYS2; METH.LISP#64 at 25-Jan-86 21:55:42 DJ: L.IO; DISK.LISP#366 at 25-Jan-86 21:55:30 DJ: L.NETWORK.EDIT; LOADING-AND-SAVING-SITE-FILES.LISP#43 at 6-Feb-86 01:28:08 DJ: L.FILE; SERVER.LISP#180 at 30-Jan-86 16:56:23 A list of all definitions modified: DEFUN TELNET-USER:STATUS-INTERRUPT (S) defun smtp-send-one-message-to-terminal (desc from to data) defun smtp-send-one-message-to-mailbox (desc from to data) defun smtp-send-one-message (desc from to data) defun (data smtp-command) (IGNORE stream &aux data) defun smtp-mailbox-probe (mb) defun smtp-lookup-mailbox-1 (address &aux f) defun smtp-lookup-mailbox (address) defun (rcpt smtp-command) (string stream &aux addr mb) defun (SEND smtp-command) (string stream) DEFUN SMTP-MAIL-CMD (STRING STREAM TERMINAL-MODEP) defun (mail smtp-command) (string stream) defun smtp-server-function (stream) defun make-simple-lispm<-ascii-stream (s) DEFUN FINGER-INTERNET-HOST (HOST USER &OPTIONAL (OSTREAM STANDARD-OUTPUT) STYLE) DEFUN FINGER-SERVER-INFO (&OPTIONAL (STREAM STANDARD-OUTPUT)) DEFUN FINGER-SERVER-FUNCTION (STREAM) DEFINE-TCP-SERVER FINGER "RFC 742" DEFUN START-ONE-TCP-SERVER (S) defun *define-tcp-server (name documentation &KEY TOPLEVEL-FUNCTION LISTEN-PORT DEFUN serial-stream-disk-server-INTERNAL (stream &aux rqb) defun serial-stream-disk-server (stream) DEFMETHOD (serial-stream-disk-unit :ANTICIPATION-PROTOCOL-VIOLATION) (OP RQB ADDRESS) defmethod (serial-stream-disk-unit :ANTICIPATE-OPERATIONS) (KIND START-ADDRESS N-OPERATIONS RQB-NPAGES) defmethod (serial-stream-disk-unit :write) (rqb address) DEFMETHOD (SERIAL-STREAM-DISK-UNIT :READ) (RQB ADDRESS) defflavor serial-stream-disk-unit DEFUN SEND-TERMINAL-MESSAGE (HOST FROM TO MESSAGE-GENERATOR) DEFUN MERROR (FORMAT-STRING &REST ARGUMENTS) DEFUN TCP-SERVER-FUNCTION () DEFVAR *HANDLE-OWN-EXINTR-BUSY* 100) DEFUN EX-SEND-WAIT (KP &OPTIONAL TIMEOUT &AUX RESULT) DEFUN BUSY-TIME-TEST () DEFUN BUSY-TIME-TEST-2 () DEFUN BUSY-TIME-TEST-1 () DEFUN HANDLE-OWN-EXINTR-STATS (&OPTIONAL RESETP) DEFUN HANDLE-OWN-EXINTR (KP) DEFVAR *HANDLE-OWN-EXINTR-BUSY* NIL) DEFVAR *HANDLE-OWN-EXINTR-CALLS* 0) DEFVAR *HANDLE-OWN-EXINTR-WINS* 0) DEFUN KP-READYP (KP) DEFUN EX-QPOLL () ; quick version of ex-poll DEFUN EXINTR-WAIT () DEFUN EXINTR-MESSAGE-READYP () DEFVAR *EXINTR-IN-PROCESS* NIL) DEFUN START-INTERNAL (&KEY &OPTIONAL (MY-INTERNET-ADDRESS defun make-input-force-output-stream (substream &aux stream need-forcep) defun open-chaos-telnet-stream (&OPTIONAL (CONTACT "TELNET")) defmethod (kstate :set-params) () defun streaming-compare-to-disk defun %streaming-read (buffer number-of-pages unit density &optional function &rest args) defun check-for-error (&key no-signal (error-code (tpb-error *tpb*))) def-error #x07 blank-tape def-op %streaming-write #x64 "[TM] Streaming Write" 20) def-op %streaming-read #x60 "[TM] Streaming Read" 20) def-op %direct-write #x30 "[TM] Direct Write" 20) def-op %direct-read #x2c "[TM] Direct Read" 20) defmethod (lmfl-format :compare-file) (device &key transform silent (error-action :return)) defmethod (lmfl-format :compare-partition) (device plist silent) defmethod (lmfl-format :write-partition) (partition-name device unit-arg &key defmethod (lmfl-format :restore-partition) (plist device silent) defun tm-unload () defun tm-rewind () defun tm-init () defmethod (lmfl-format :compare-file) (device &key transform silent (error-action :return)) defmethod (lmfl-format :space-to-end-of-this-file) (device plist records-passed) defmethod (tapemaster-device :write-from-disk) defmethod (tapemaster-device :write-array) (array number-of-records record-size) defmethod (tapemaster-device :write-block) (dma-buffer record-size) defmethod (tapemaster-device :set-options) (&rest options) defflavor tapemaster-device ((unit 0) defun %streaming-read (buffer number-of-pages unit density &optional function &rest args) defun %streaming-write (buffer number-of-pages unit density &optional function &rest args) defun set-attributes (slot-list attribute-alist) defflavor compare-error (source-file file-plist) (format-error) defun direct-write (dma-buffer record-size unit density defun direct-read (dma-buffer record-size unit density defun check-for-error (&key no-signal (error-code (tpb-error *tpb*))) defvar *skip-bad-blocks* nil) defmethod (raw-format :open-file) (device &key defun process-filter-keywords (filter-keywords file-plist) defflavor compare-source-changed (source-plist file-plist) (format-error) defun backup-files (file-list host &key define-command BACKUP-FILESYSTEM backup defun backup-file-info-generator (&rest ignore) defun recursive-file-list-local (&key defun set-attributes (slot-list attribute-alist) defmethod (lmfl-format :write-file) (device file &key (end-of-tape-action :continue) silent) DEFUN MAKE-MT-FILE-STREAM (&OPTIONAL defun log-files (file-list host log-file place format user universal-time) defun backup-files (file-list host &key defmethod (raw-format :open-file) (device &key defun process-menu-select (blip) defun tframe-toplevel-1-loop () ;stolen from SI:LISP-TOP-LEVEL1 defun file-byte-size (thing) defun determine-pathname-byte-size (pathname) defun full-directory-list (path &key (inferiors t) (stream *standard-output*) filter-keywords) defmethod (lmfl-format :list-files) (device &key (stream *standard-output*) (number-of-files -1)) defmethod (lmfl-format :open-file) (device &key defmethod (lmfl-format :compare-file) (device &key transform silent (error-action :return)) defmethod (lmfl-format :write-file) (device file &key (end-of-tape-action :continue) silent) defmethod (lmfl-format :restore-file) (device &key transform defmethod (lmfl-format :space-to-end-of-this-file) (device plist records-passed) define-command RESTORE-FILES retrieve define-command FIND-FILE retrieve define-option *silent* retrieve "Silent" define-option *number-of-files-to-restore* retrieve "Number of files to restore at once" define-option *create-directory* retrieve "Create directory" define-option *overwrite* retrieve "Overwrite mode" define-option *query* retrieve "Query to restore each file" define-option *transform* retrieve "File restore transform" define-command VERIFY-TAPE dump define-command WRITE-FILES dump define-option *verify-transform* dump "Verify Transform" define-command BACKUP-FILESYSTEM backup defun backup-file-info-generator (&rest ignore) defun update-log-info (&optional force-p) defun write-files (files &key defun parse-format (format-spec &rest init-options) defun parse-device-string (string) defmethod (raw-output-mixin :close) (&optional abort-p) defmethod (raw-input-mixin :close) (&optional abort-p) defmethod (tape-stream-mixin :discard-output-buffer) (&rest ignore) defmethod (tape-stream-mixin :next-input-buffer) (&rest ignore) defmethod (tape-stream-mixin :discard-input-buffer) (&rest ignore) defun determine-restore-file-pathname (plist transform overwrite query create-directory silent) defmethod (lmfl-output-mixin :close) (&optional abort-p) defmethod (lmfl-input-mixin :close) (&optional abort-p) defmethod (lmfl-format :list-files) (device &key (stream *standard-output*) (number-of-files -1)) defmethod (lmfl-format :open-file) (device &key defmethod (lmfl-format :compare-file) (device &key transform silent (error-action :return)) defmethod (lmfl-format :write-file) (device file &key (end-of-tape-action :continue) silent) DEFUN INITIALIZE-ZMAIL-FRAME-EDITOR-CLOSURE (ZMAIL-FRAME define-zmail-user-option *FROM-HOST* NIL :string-or-nil define-zmail-user-option *from-user-id* nil :string-or-nil DEFMETHOD (UNIX-MAIL-FILE-MIXIN :INBOX-BUFFER) (&OPTIONAL NEW-PATHNAME DELETE-P) DEFUN SMTP-SEND-IT (PLIST INTERVAL TEMPLATE) DEFINE-SITE-HOST-LIST *MAIL-SMTP-HOSTS* :SMTP-MAIL-SERVER-HOSTS) DEFVAR *MAIL-SENDING-MODE-ALIST* DEFUN DEFSTRUCT-1 (OPTIONS ITEMS CLIP) ;CLIP means "common lisp, incompatible"-p DEFMACRO DEFSTRUCT-EXPAND-WITH-CONS-MACRO (NAME &REST BODY) DEFUN DEFSTRUCT-SLOT-DEFAULT-CONSTANT-VALUE (DESCRIPTION SLOT-DESCRIPTION) DEFUN DEFSTRUCT-DEFINE-CALLABLE-CONSTRUCTOR (DESCRIPTION SPEC) DEFUN DEFSTRUCT-DEFINE-CONSTRUCTORS (DESCRIPTION) DEFUN DEFSTRUCT-EXPAND-CONS-MACRO-1 (MACRO-NAME DEFSTRUCT-NAME CONSTRUCTOR-DESCRIPTION BODY) defun defstruct-expand-cons-macro (x) DEFUN PARTITION-LIST (&OPTIONAL RQB (UNIT 0) ALREADY-READ-P) DEFUN DECODE-UNIT-ARGUMENT (UNIT USE &OPTIONAL (DISK-INIT-P NIL) (WRITE-P NIL) defprop :hosts2 write-hosts2-preamble preamble-handler) defun write-hosts2-preamble (stream) define-site-variable *hosts2-network-numbers* :hosts2-network-numbers defconstant default-hosts2-network-numbers '((:chaos . 7))) defun unparse-address (address network-type) DEFUN DUMP-HOST-TABLE-FILE (FILE FORMAT &REST KEYS) DEFUN SERVICE-DISK-PARTITION (FROM-UNIT FROM-PART TO-UNIT TO-PART &OPTIONAL &KEY DEFUN PREPARE-TO-SIGNAL-MICROCODE-CONDITION (SG ETE &OPTIONAL (IGNORE T) &AUX DEFUN QCOMPILE0 (EXP FUNCTION-TO-BE-DEFINED GENERATING-MICRO-COMPILER-INPUT-P defun placeholder-p2 (argl dest) defun placeholder-p1 (form) defun assign-placeholder (name) defvar *placeholder-function-number*) DEFUN INCREMENT-DECIMAL-STRING (S) DEFUN GENTEMP (&OPTIONAL (PREFIX "T") (PKG PACKAGE)) DEFVAR *GENTEMP-COUNTER* (MAKE-ARRAY 10 :TYPE 'ART-STRING :INITIAL-ELEMENT #\0 :FILL-POINTER 1)) DEFUN COMPILE-FILE (INPUT-FILE defun eval1 (form &optional nohook) DEFUN P1RETURN-FROM (FORM) DEFUN QC-FILE-1 (INFILE OUTFILE) DEFUN COMPILE-FILE (INPUT-FILE defmethod (host :file-host-p) () nil) defprop :host-or-nil (princ read-host-name-or-nil) defprop :host (princ read-host-name) choose-variable-values-keyword) defun read-host-name-or-nil (stream) defun read-host-name (stream) defun get-sdu-rom-version-number () defun get-boot-tape-version-number () DEFUN DESCRIBE-SYSTEM-VERSIONS (&OPTIONAL (S *STANDARD-OUTPUT*) DEFUN SYSTEM-VERSION-INFO (&OPTIONAL (BRIEF-P NIL) &AUX (FIRST T) TEM) DEFCOM COM-LOAD-FILE "Load a file. With arg, compile if necessary." () DEFUN YES-OR-NO-P (&OPTIONAL FORMAT-STRING &REST FORMAT-ARGS) DEFUN Y-OR-N-P (&OPTIONAL FORMAT-STRING &REST FORMAT-ARGS) DEFUN NAME-FOR-DISPLAY (BUFFER MAX-SIZE &AUX (NAME (BUFFER-NAME BUFFER))) defun rename-within-delete (within-function original renamed-name) defun rename-within-add (within-function function-to-rename defun COPY-DISK-PORTION-NEXT-WRITE-TAPE-VOLUME (UNIT INDEX &AUX RECORD-SIZE) DEFVAR *NEXT-WRITE-VOLUME-BACKUP-PAGES* 20.) DEFUN COPY-DISK-PORTION-NEXT-READ-TAPE-VOLUME (UNIT EXPECT-INDEX) defun MT-UNIT-MAGTAPE-UNIT (from-unit &AUX WIN) DEFUN ANTICIPATE-DISK-OPERATIONS (UNIT OPERATION ADDRESS N-OPERATIONS RQB-NPAGES) DEFUN MAKE-SEQUENCE-PRINTER (&OPTIONAL (N 1) &AUX LAST) DEFUN COMPARE-DISK-DATA (RQB1 RQB2 AMT BLOCK) DEFUN COPY-DISK-PORTION (FROM-UNIT FROM-START FROM-END TO-UNIT TO-START TO-END &OPTIONAL &KEY DEFUN READ-LMC-WORD (WORD-ADDRESS RQB UNIT LMC-FORMATP) DEFUN MEASURED-FROM-PART-SIZE (FROM-UNIT FROM-PART FROM-PART-BASE FROM-PART-SIZE) DEFUN MAGTAPE-UNIT-P (FROM-UNIT) DEFUN SERVICE-DISK-PARTITION (FROM-UNIT FROM-PART TO-UNIT TO-PART &OPTIONAL &KEY DEFUN COPY-DISK-PARTITION-BACKGROUND (FROM-UNIT FROM-PART TO-UNIT TO-PART DEFUN COMPARE-DISK-PARTITION (FROM-UNIT FROM-PART TO-UNIT TO-PART &OPTIONAL &KEY DEFUN COPY-DISK-PARTITION (FROM-UNIT FROM-PART TO-UNIT TO-PART &OPTIONAL &KEY DEFUN MEASURED-SIZE-OF-PARTITION (PART &OPTIONAL (UNIT 0)) DEFUN PRINT-AVAILABLE-BANDS (&OPTIONAL (WHICH "LOD") DEFUN MAYBE-GET-DISK-RQB (&REST L) DEFMACRO WITH-DISK-RQB ((RQB . OPTIONS) &BODY BODY) defmacro with-decoded-disk-unit ((decoded encoded use . options) &body body) defun (:property string-equal style-checker) (form) defun string-equal-style-kludge (s1 s2 &key start1 start2 end1 end2) DEFUN CHECK-NUMBER-OF-ARGS (FORM &OPTIONAL FUNCTION) DEFUN-RH ALTERNATE-RUBOUT-HANDLER () DEFUN RH-MAKE-INPUT-HISTORY (&OPTIONAL NAME) DEFUN-RH RH-EXCHANGE-WORDS (TYPE) DEFUN DEFSTRUCT-PARSE-ONE-FIELD (IT NUMBER PPSS REST CONC-NAME #+MACLISP-10 CHARS DEFUN DEFSTRUCT-PARSE-ITEMS (ITEMS DESCRIPTION) DEFFLAVOR CONSTRAINT-FRAME-WITH-SHARED-IO-BUFFER ((IO-BUFFER NIL)) (BASIC-CONSTRAINT-FRAME) defun assure-free-space () defun make-area (&key name defun %deallocate-end-of-region (region) DEFUN PRINT-TRULY-RANDOM-OBJECT (EXP STREAM I-PRINDEPTH) deff return-array 'return-storage) defun return-storage (object) defun find-chaos-buffers-for-patch () defun create-bigger-chaosnet-buffers (n-buffers) defvar big-chaosnet-buffers nil) defun create-chaosnet-buffers (n-buffers) defun int-pkt-in-correct-area-p (int-pkt) defvar scroll-list-area working-storage-area) defmethod (sheet :default :self-or-substitute-selected-p) () DEFUN ALL-CHAOS-HOSTS (&OPTIONAL RESET) DEFUN ALL-LISPMS (&OPTIONAL RESET) DEFUN ALL-LOCAL-LISPMS (&OPTIONAL RESET) DEFUN CHAOS-PROTOCOL-HOSTS-FILTER (HOSTS) DEFUN FINGER (&OPTIONAL SPEC (STREAM *STANDARD-OUTPUT*) HACK-BRACKETS-P DEFUN SHOUT (&AUX MSG-TEXT HOST PERSON) DEFUN CREATE-HOSTAT-CONNECTION-LIST (HOSTS &AUX LIST) DEFINE-NETWORK-FUNCTION FINGER-HOST (HOST USER OUTPUT-STREAM STYLE) DEFINE-NETWORK-FUNCTION SEND-TERMINAL-MESSAGE (HOST USER MESSAGE-GENERATOR) defun send-msg (destination message &aux host (person "anyone")) defun status (&optional (stream *standard-output*)) DEFUN PROCESS-SCHEDULER-IDLE-FUNCTION () defun idle-scavenge (units) defun scavenge (units) defun reclaim-oldspace (&optional (reclaim-mode :batch)) defun maybe-flip-level-2 () defun maybe-execute-default-initial-form () DEFUN LISP-REINITIALIZE (&OPTIONAL (CALLED-BY-USER T) DEFUN P2ANDOR (ARGL DEST) DEFUN QLAPP (FCTN LAP-MODE) defun optimize-numeric-type-test (predicate expression low high) defun print-hash-array (harry stream as-hash-table-p testp) define-system-type signed-byte define-system-type unsigned-byte defmacro define-system-type (name &body cruft) DEFUN (:PROPERTY MULTIPLE-VALUE-BIND P1) (FORM) DEFINE-RH-COMMAND RH-COM-TWIDDLE-CHARACTERS (#/CONTROL-T) (IGNORE) DEFINE-RH-COMMAND RH-COM-QUOTE-CHARACTER (#/CONTROL-Q) (N) defun print-symbol (symbol stream &optional (rdtbl (current-readtable))) DEFUN PRINT-BIT-VECTOR (EXP STREAM) DEFINE-RH-COMMAND RH-COM-TWIDDLE-CHARACTERS (#/CONTROL-T) (IGNORE &AUX DELETE-POINTER STRING) defun array-int->string (int-array) defun array-int->array-char (int-array) defun make-condition-default (signal-name format-string &rest args) defvar *make-condition-default-restrictive* T) DEFMETHOD (WINDOW :PUT-POINT-AT-PLINE) (POINT-LINE POINT-INDEX POINT-PLINE FIRST-BP LAST-BP defun-method window-redisplay-dis-text window (now point-pline top-line top-index DEFUN RECENTER-WINDOW (WINDOW RECENTER-TYPE &OPTIONAL RC1 RC2 &AUX TOP-LINE TOP-INDEX DEFSUBST PATHNAME-VERSION (P) DEFSUBST PATHNAME-TYPE (P) DEFSUBST PATHNAME-NAME (P) DEFSUBST PATHNAME-DIRECTORY (P) DEFSUBST PATHNAME-DEVICE (P) DEFUN PATHNAME-HOST (P) DEFUN INSPECT-REAL-VALUE (SLOT &AUX FUN) defun peek-areas-region-display (item) defmethod (number-array-not-allowed :report) (stream) defflavor number-array-not-allowed (referencing-function) (bad-array-trap) def-ucode-error number-array-not-allowed number-array-not-allowed define-system-type bit define-system-type bignum define-system-type string-char define-system-type sequence defmacro define-system-type (name &body cruft) deff encapsulation-let #'let) DEFMETHOD (WHO-LINE-FILE-SHEET :UPDATE) (&AUX (MAX-CHARS (TRUNCATE (SHEET-INSIDE-WIDTH) DEFCOM COM-EXIT-COM-MAIL "Actually transmits the mail." () DEFUN EDIT-DISK-LABEL (&OPTIONAL (LE-UNIT 0) (INIT-P NIL) defun output-host-other-attributes (stream attlist &aux format-fun) DEFUN RESET-SAVED-HOST-LISTS (&OPTIONAL (DO-ALL-HOSTS T) DO-LOCAL-LISPMS DO-ALL-LISPMS) DEFUN UA-DO-DEFMIC (NAME OPCODE ARGLIST LISP-FUNCTION-P NO-QINTCMP DEFUN STORE-MEDIATION-ROUTINE-INTERNAL (X) DEFMACRO STORE (ARRAY-REFERENCE VALUE) DEFUN SET-PLANE-AREF-4 (PLANE X Y Z S VALUE) DEFUN SET-PLANE-AREF-3 (PLANE X Y Z VALUE) DEFUN SET-PLANE-AREF-2 (PLANE X Y VALUE) DEFUN SET-PLANE-AREF-1 (PLANE X VALUE) DEFMACRO SET-PLANE-AREF (PLANE &REST L) DEFSETF PLANE-AREF SET-PLANE-AREF) defmethod (sdu-serial-stream-mixin :next-input-buffer) (&optional no-hang-p) DEFMETHOD (SI:SDU-SERIAL-STREAM-MIXIN :TYI-WITH-TIMEOUT) (TIMEOUT) defun sdu-serial-stream-mixin-timeout-input-wait (unibus-channel) defvar *sdu-serial-stream-mixin-timeout-input-wait*) defmethod (sdu-serial-stream-mixin :tyi-busy-wait) (&optional ignore) defvar *sdu-serial-stream-mixin-input-wait* 'sdu-serial-stream-mixin-default-input-wait) defun sdu-serial-stream-mixin-busy-input-wait (unibus-channel) defun sdu-serial-stream-mixin-default-input-wait (unibus-channel) DEFUN MAKE-DUMMY-HOST (TYPE) DEFUNP PARSE-CONSTRAINT (CONSTR PANES WINDOW LG-P EVEN-P &AUX (MIN -1) (MAX 1_15.)) DEFRESOURCE FORMAT-PARAMS () DEFUN DEALLOCATE-RESOURCE (RESOURCE-NAME OBJECT &AUX RESOURCE) DEFUN ALLOCATE-RESOURCE (RESOURCE-NAME &REST PARAMETERS DEFUN MAKE-STACK-GROUP (NAME &REST OPTIONS &KEY &OPTIONAL defun buffer-file-version-if-known (buffer) DEFCOM COM-DIRED-EDIT-FILE-TWO-WINDOWS defun select-buffer-pathname (pathname &optional version-we-want) DEFCOM COM-DIRED-EDIT-FILE "Edit the current file; or DIRED it if it's a directory" () DEFUN NEED-TO-REVERT-BUFFER (PATHNAME) defun hostab-server-to-stream (stream host-name? &aux host) defun hostab-server (&aux conn) defun output-one-host-attribute (stream name attribute &functional string-function) defun output-host-other-attributes (stream attlist &aux format-fun) DEFUN PROCESS-SCHEDULER-IDLE-FUNCTION () defun scavenge (units idle-scavenge-p) defun reclaim-oldspace (&optional (reclaim-mode :batch)) DEFUN LIST-ZMACS-CALLERS-TO-BE-EDITED (TYPE FUNCTION JUST-EDIT CALLERS) DEFUN PRINT-DISK-LABEL (&OPTIONAL (UNIT 0) (STREAM STANDARD-OUTPUT) &aux decoded-unit dont-dispose) DEFUN (:NETWORK FILE-ACCESS-CONDITION) (HOST ITEM) DEFUN (:FILE-SYSTEM-TYPE FILE-ACCESS-CONDITION) (HOST ITEM) DEFUN (:LOCAL FILE-ACCESS-CONDITION) (HOST IGNORE) DEFUN DEFAULT-FILE-ACCESS-CONDITION-CHECK (HOST ITEM) DEFUN DETERMINE-FILE-ACCESS-FLAVORS (HOST) DEFUN PERMISSIBLE-ACCESS-PATH-FLAVOR-P (HOST ACCESS-D) DEFUN DECODE-UNIT-ARGUMENT (UNIT USE &OPTIONAL (DISK-INIT-P NIL) (WRITE-P NIL) DEFUN INVOKE-CORRECT-NETWORK-FUNCTION (NAME HOST ARGS) DEFVAR *NETWORK-PROTOCOLS* '(:CHAOS :INTERNET)) DEFINE-NETWORK-FUNCTION SEND-TERMINAL-MESSAGE (HOST USER MESSAGE) 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 DEFAULT-NETWORK-PATH-AVAILABLE (HOST) DEFUN NETWORK-PATH-AVAILABLE (TYPE HOST) DEFUN (:NETWORK FILE-ACCESS-CONDITION) (HOST ITEM) DEFUN (:FILE-SYSTEM-TYPE FILE-ACCESS-CONDITION) (HOST ITEM) DEFUN (:LOCAL FILE-ACCESS-CONDITION) (HOST IGNORE) DEFUN DEFAULT-FILE-ACCESS-CONDITION-CHECK (HOST ITEM) DEFUN DETERMINE-FILE-ACCESS-FLAVORS (HOST) DEFUN PERMISSIBLE-ACCESS-PATH-FLAVOR-P (HOST ACCESS-D) DEFUN KBD-ESC-Q (ARG &AUX (PRINTER (OR SI:*DEFAULT-BIT-ARRAY-PRINTER* SI:*DEFAULT-PRINTER*))) DEFUN SET-CONSOLE-SIZE (WIDTH HEIGHT) DEFUN MAKE-SEQUENCE-STREAM (SEQUENCE &OPTIONAL START END &AUX STREAM (INDEX (OR START 0)) (LIMIT (OR END (LENGTH SEQUENCE)))) DEFUN-RH RH-GET-FUNCTION (&OPTIONAL (POS (RH-TYPEIN-POINTER)) &AUX MOVED END) defflavor burr-brown-debug-master defflavor burr-brown-debug-master-shared-device DEFUN CHAOS-UNKNOWN-HOST-FUNCTION (NAME) DEFUN EDIT-BUFFERS-REVERT (BUFFER &OPTIONAL IGNORE IGNORE SELECT-P) DEFUN PREVIOUS-BUFFER (&REST NOT-THESE-BUFFERS) defun buffer-list-as-selected () DEFCOM COM-LIST-BUFFERS "Print a list of the all buffers and their files (or sizes)." () DEFUN ROTATE-BUFFER-HISTORY (N) defvariable *history-buffer-lists-per-window* T :boolean defun reclaim-oldspace (&optional (reclaim-mode :batch)) DEFUN PUTMETHOD (CLASS-SYMBOL CLASS-METHOD-SYMBOL MESSAGE &REST BODY) DEFVAR *RELEASE-STATUS* :ALPHA) DEFVAR *RELEASE-MINOR-VERSION* 0) DEFVAR *RELEASE-MAJOR-VERSION* 3) defun get-site-information (NAME SITE-OPTION-ALIST) defun start-disk-space-warner-process () defun disk-space-warner-function () defvar *disk-space-warner-process* () "The actual process doing the work") defvar *disk-space-warner-threshold* 800. "Warning level for disk space") defvar *disk-space-warner-interval* 10. "Interval for warning, in minutes")