TO: Jerry Duffy FROM: Helen Baker RE: Release 2.0 Lisp Software Update Tape DATE: Sunday the thirtieth of March, 1986; 12:30:09 am This tape updates lisp software from the following versions: ;;-*-MODE:LISP;PACKAGE:USER;BASE:10-*- ;; Loaded patch status for LMI-LAMBDA-CS2 dumped by debbie ;; on Monday the twentieth of May, 1985; 11:11:32 am ;; HAND EDITED TO INCLUDE :%MICROCODE-VERSION-NUMBER -GJC 6/11/85 10: 37:31 (SET 'SI:*SAVED-LOADED-PATCH-STATUS* '( (:%MICROCODE-VERSION-NUMBER 1 768 :RELEASED) ("window-maker" 1 0 :EXPERIMENTAL) ("Sited" 1 0 :EXPERIMENTAL) ("MEDIUM-RESOLUTION-COLOR" 17 3 :RELEASED) ("KERMIT" 26 15 :RELEASED) ("Tiger" 20 5 :RELEASED) ("MagTape" 40 16 :RELEASED) ("FILE-Server" 13 1 :RELEASED) ("Local-File" 56 6 :RELEASED) ("Unix-Interface" 5 3 :RELEASED) ("ZMail" 57 2 :RELEASED) ("System" 102 117 :RELEASED) )) to the following versions: ;;-*-MODE:LISP;PACKAGE:USER;BASE:10;READTABLE:ZL-*- ;; Loaded patch status for LMI-DAN-DARE dumped by GJC ;; on Sunday the thirtieth of March, 1986; 12:29:54 am (SET 'SI:*SAVED-LOADED-PATCH-STATUS* '( (:%MICROCODE-VERSION-NUMBER 1 783 :RELEASED) ("window-maker" 1 0 :EXPERIMENTAL) ("Sited" 1 0 :EXPERIMENTAL) ("MEDIUM-RESOLUTION-COLOR" 17 4 :RELEASED) ("KERMIT" 26 25 :RELEASED) ("Tiger" 20 16 :RELEASED) ("MagTape" 40 23 :RELEASED) ("FILE-Server" 13 2 :RELEASED) ("Local-File" 56 16 :RELEASED) ("Unix-Interface" 5 6 :RELEASED) ("ZMail" 57 10 :RELEASED) ("System" 102 187 :RELEASED) )) The tape contains the following files: ;;-*-MODE:LISP;PACKAGE:USER;BASE:10;READTABLE:ZL-*- ;; patch update file list dumped by GJC from LMI-DAN-DARE ;; on Sunday the thirtieth of March, 1986; 12:20:52 am (SET 'SI:*SAVED-PATCH-UPDATE-FILES* '( Page 2 #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102.PATCH-DIRECTORY#439" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-118.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-118.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-119.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-119.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-120.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-120.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-121.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-121.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-122.LISP#3" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-122.QFASL#3" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-123.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-123.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-124.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-124.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-125.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-125.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-126.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-126.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-127.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-127.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-128.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-128.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-129.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-129.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-130.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-130.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-131.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-131.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-132.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-132.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-133.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-133.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-134.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-134.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-135.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-135.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-136.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-136.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-137.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-137.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-138.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-138.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-139.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-139.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-141.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-141.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-142.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-142.QFASL#1" Page 3 #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-143.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-143.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-144.LISP#2" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-144.QFASL#2" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-145.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-145.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-146.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-146.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-147.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-147.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-148.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-148.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-149.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-149.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-150.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-150.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-151.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-151.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-152.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-152.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-153.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-153.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-154.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-154.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-155.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-155.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-156.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-156.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-157.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-157.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-158.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-158.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-159.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-159.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-160.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-160.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-161.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-161.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-162.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-162.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-163.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-163.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-164.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-164.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-165.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-165.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-166.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-166.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-167.LISP#1" Page 4 #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-167.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-168.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-168.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-169.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-169.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-170.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-170.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-171.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-171.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-172.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-172.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-173.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-173.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-174.LISP#2" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-174.QFASL#2" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-175.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-175.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-176.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-176.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-177.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-177.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-178.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-178.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-179.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-179.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-180.LISP#2" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-180.QFASL#2" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-181.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-181.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-182.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-182.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-183.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-183.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-184.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-184.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-185.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-185.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-186.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-186.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-187.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-187.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57.PATCH-DIRECTORY#23" #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-3.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-3.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-4.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-4.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-5.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-5.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-6.LISP#1" Page 5 #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-6.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-7.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-7.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-8.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-8.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-9.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-9.QFASL#1" #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-10.LISP#1" #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-10.QFASL#1" #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX-PATCH-5.DIRECTORY#15" #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX-PATCH-5-4.LISP#1" #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX-PATCH-5-4.QFASL#1" #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX-PATCH-5-5.LISP#1" #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX-PATCH-5-5.QFASL#1" #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX-PATCH-5-6.LISP#1" #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX-PATCH-5-6.QFASL#1" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56.DIRECTORY#37" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-7.LISP#1" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-7.QFASL#1" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-8.LISP#1" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-8.QFASL#1" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-9.LISP#1" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-9.QFASL#1" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-10.LISP#1" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-10.QFASL#1" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-11.LISP#1" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-11.QFASL#1" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-12.LISP#1" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-12.QFASL#1" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-13.LISP#1" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-13.QFASL#1" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-14.LISP#1" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-14.QFASL#1" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-15.LISP#1" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-15.QFASL#1" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-16.LISP#1" #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-16.QFASL#1" #FS::LM-PATHNAME "LAD: QL.FILE; SERVER-13.DIRECTORY#11" #FS::LM-PATHNAME "LAD: QL.FILE; SERVER-13-2.LISP#2" #FS::LM-PATHNAME "LAD: QL.FILE; SERVER-13-2.QFASL#2" #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40.DIRECTORY#49" #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-17.LISP#1" #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-17.QFASL#1" #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-18.LISP#1" #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-18.QFASL#1" #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-19.LISP#1" #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-19.QFASL#1" #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-20.LISP#1" #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-20.QFASL#1" Page 6 #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-21.LISP#1" #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-21.QFASL#1" #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-22.LISP#1" #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-22.QFASL#1" #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-23.LISP#1" #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-23.QFASL#1" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20.DIRECTORY#48" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-6.LISP#1" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-6.QFASL#1" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-7.LISP#1" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-7.QFASL#1" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-8.LISP#3" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-8.QFASL#3" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-9.LISP#1" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-9.QFASL#1" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-10.LISP#1" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-10.QFASL#1" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-11.LISP#1" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-11.QFASL#1" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-12.LISP#1" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-12.QFASL#1" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-13.LISP#1" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-13.QFASL#1" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-14.LISP#1" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-14.QFASL#1" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-15.LISP#1" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-15.QFASL#1" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-16.LISP#1" #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-16.QFASL#1" #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26.PATCH-DIRECTORY#55" #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-16.LISP#1" #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-16.QFASL#1" #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-17.LISP#1" #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-17.QFASL#1" #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-18.LISP#2" #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-18.QFASL#2" #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-19.LISP#1" #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-19.QFASL#1" #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-20.LISP#1" #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-20.QFASL#1" #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-21.LISP#2" #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-21.QFASL#2" #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-22.LISP#2" #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-22.QFASL#2" #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-23.LISP#1" #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-23.QFASL#1" #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-24.LISP#2" #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-24.QFASL#2" #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-25.LISP#1" Page 7 #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-26-25.QFASL#1" #FS::LM-PATHNAME "LAD: QL.VIDEO-DEVICE; MRC-PATCH-17.DIRECTORY#11" #FS::LM-PATHNAME "LAD: QL.VIDEO-DEVICE; MRC-PATCH-17-4.LISP#1" #FS::LM-PATHNAME "LAD: QL.VIDEO-DEVICE; MRC-PATCH-17-4.QFASL#1" #FS::LM-PATHNAME "LAD: QL.UBIN; ULAMBDA.LMC-LOCS#769" #FS::LM-PATHNAME "LAD: QL.UBIN; ULAMBDA.LMC-LOCS#770" #FS::LM-PATHNAME "LAD: QL.UBIN; ULAMBDA.LMC-LOCS#771" #FS::LM-PATHNAME "LAD: QL.UBIN; ULAMBDA.LMC-LOCS#772" #FS::LM-PATHNAME "LAD: QL.UBIN; ULAMBDA.LMC-LOCS#773" #FS::LM-PATHNAME "LAD: QL.UBIN; ULAMBDA.LMC-LOCS#774" #FS::LM-PATHNAME "LAD: QL.UBIN; ULAMBDA.LMC-LOCS#775" #FS::LM-PATHNAME "LAD: QL.UBIN; ULAMBDA.LMC-LOCS#776" #FS::LM-PATHNAME "LAD: QL.UBIN; ULAMBDA.LMC-LOCS#777" #FS::LM-PATHNAME "LAD: QL.UBIN; ULAMBDA.LMC-LOCS#778" #FS::LM-PATHNAME "LAD: QL.UBIN; ULAMBDA.LMC-LOCS#782" #FS::LM-PATHNAME "LAD: QL.UBIN; ULAMBDA.LMC-LOCS#783" #FS::LM-PATHNAME "LAD: QL.UBIN; ULAMBDA.LMC#783" #FS::LM-PATHNAME "LAD: QL.UBIN; ULAMBDA.LMC-SYM#783" #FS::LM-PATHNAME "LAD: QL.UBIN; ULAMBDA.LMC-TBL#783" )) The following is a detailed report each patch file, with a note of every FILE, FUNCTION, or VARIABLE modified: Report of patches to update from DJ: GJC.UPDATE; RELEASE-2P0-PATCH-ST ATUS#> Created by GJC from LMI-DAN-DARE on Sunday the thirtieth of March, 1986; 12:20:52 am Report on directory of patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYST EM-102.PATCH-DIRECTORY#439" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T - *- ;;; Patch directory for System version 102 ;;; Written 30-Mar-86 00:09:54 by GJC, ;;; while running on Dan Dare from band 1 ;;; with System 102.186, Local-File 56.16, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, TCP-Kernel 30.12, TCP-User 57.14, TCP-Server 33.8, micr ocode 783. Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-118.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.118 ;;; Reason: ;;; Change CONDITION-CASE to CONDITION-CASE-IF in FS:QFILE-LOGIN-HOS Page 8 T-UNIT, ;;; Reason: ;;; allowing the FTP server to handle FS:LOGIN-PROBLEMS conditions i tself. ;;; Written 25-Apr-85 01:29:09 by KIEU, ;;; while running on Boris Badinoff from band 1 ;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.1, Tiger 20.4, KERMIT 26.4, MEDIUM -RESOLUTION-COLOR 17.3, Experimental TCP-Kernel 14.1, Experimental TC P-User 33.0, Experimental TCP-Server 9.0, microcode 763. ; From file QFILE.LISP#> QL.NETWORK.CHAOS; LAM3: (363) (DEFVAR CATCH-LOGIN-PROBLEMS-P T ; From file QFILE.LISP#> QL.NETWORK.CHAOS; LAM3: (363) (DEFUN QFILE-LOGIN-HOST-UNIT (UNIT LOGIN-P UNAME-HOST Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-118.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-119.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.119 ;;; Reason: ;;; Fix ZWEI:PARSE-BUG-ARG so it doesn't loop infinitely when a line in the header is ;;; Reason: ;;; wider than 75 characters (patch from MCC) ;;; Written 26-Apr-85 18:38:17 by MWT, ;;; while running on Boris Badinoff from band 4 ;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental TCP-Kernel 14.1, Experimental TCP-User 33.0, Experimental TCP-Server 10.0, microcode 768. ; From file DIRED.LISP#> QL.ZWEI; LAM3: (308) (DEFUN PARSE-BUG-ARG (WHO) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-119.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-120.LISP#1" ;;; -*- Mode:LISP; Package:USER; Patch-File:T; Base:8; Readtable:ZL - *- ;;; Patch file for System version 102.120 ;;; Reason: ;;; Telnet/Supdup reports parsing errors ;;; Reason: ;;; Frob readtables (yet again). ;;; Written 26-Apr-85 19:04:22 by RpK, Page 9 ;;; while running on Lambda Six from band 3 ;;; with System 102.118, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, DOE-Macsyma 9.9, Macsyma-Help-Database 1.1, Experimental NewDraw 15.2, microcode 762. ; From file SUPDUP.LISP#> QL.WINDOW; LAM3: (280) (DEFMETHOD (BASIC-NVT :NEW-CONNECTION) (HOST GATEWAY CONTACT CONTACT- P WINDOW (DEFUN PARSE-PATH (PATH CONTACT-NAME ARPA-SOCKET) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-120.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-121.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.121 ;;; Reason: ;;; Fixed an incorrectly placed close paren in (method process-imxin :after :init) ;;; Written 30-Apr-85 12:30:39 by naha, ;;; while running on The Importance of Being Earnest from band 1 ;;; with System 102.92, Local-File 56.0, FILE-Server 13.1, Unix-Inter face 5.3, MagTape 40.14, ZMail 57.1, Tiger 20.4, KERMIT 26.4, MEDIUM- RESOLUTION-COLOR 17.3, microcode 753. ; From file BASWIN.LISP#> QL.WINDOW; LAM3: (565) (DEFMETHOD (PROCESS-MIXIN :AFTER :INIT) (IGNORE) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-121.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-122.LISP#3" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.122 ;;; Reason: ;;; System-U bug with pathname merging (blech). ;;; Reason: ;;; SI:SET-SYS-HOST dwims the operating-system-type argument ;;; Reason: ;;; Fix ZMail who-line documentation bug. ;;; Reason: ;;; Documentation strings of LISTP and CLI:LISTP. ;;; Reason: ;;; Fix ZMacs Hyper-Meta-D bug. ;;; Reason: ;;; System-U bug with pathname merging (blech). ;;; Reason: ;;; SI:SET-SYS-HOST dwims the operating-system-type argument Page 10 ;;; Reason: ;;; Fix ZMail who-line documentation bug. ;;; Reason: ;;; Documentation strings of LISTP and CLI:LISTP. ;;; Reason: ;;; Fix ZMacs Hyper-Meta-D bug. ;;; Written 30-Apr-85 15:45:31 by RpK, ;;; while running on Lambda Six from band 3 ;;; with System 102.121, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, DOE-Macsyma 9.9, Macsyma-Help-Database 1.1, Experimental NewDraw 15.2, microcode 762. ; From file SHARED-DEVICE.LISP#> QL.SYS; LAM3: (29) (defmethod (shared-device-pathname :homedir) (&optional ignore) ; From file QMISC.LISP#> QL.SYS; LAM3: (674) (DEFUN SET-SYS-HOST (HOST-NAME &OPTIONAL OPERATING-SYSTEM-TYPE HOST-A DDRESS ; From file SCREEN.LISP#> QL.ZWEI; LAM3: (469) (DEFMETHOD (MENU-COMMAND-MENU-MIXIN :WHO-LINE-DOCUMENTATION-STRING) ( ) ; From file COMF.LISP#> QL.ZWEI; LAM3: (100) (DEFCOM COM-LONG-DOCUMENTATION "Prints long documentation for the spe cified symbol or function. Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-122.QFASL#3" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-123.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.123 ;;; Reason: ;;; Documentation string added for DO. ;;; Written 1-May-85 13:28:18 by mrc, ;;; while running on Lambda Six from band 3 ;;; with System 102.122, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.17, ZMail 57.3, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, DOE-Macsyma 9.9, Macsyma-Help-Database 1.1, Experimental NewDraw 15.2, microcode 768. ; From file EVAL.LISP#> QL.SYS; LAM3: (93) (defun do ("e &rest x) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-123.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-124.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.124 Page 11 ;;; Reason: ;;; Fix DISPLAY-FONT ;;; Written 5-May-85 12:38:43 by MT, ;;; while running on Boris Badinoff from band 2 ;;; with System 102.123, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, KERMIT 26.15, MEDIUM-RESOLUTION -COLOR 17.3, Tiger 21.0, microcode 768. ; From file FED.LISP#> QL.WINDOW; LAM3: (201) (DEFUN DISPLAY-FONT (FONT &OPTIONAL (WINDOW TERMINAL-IO) (CLEAR-FIRST -P T) (FROM-FED NIL)) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-124.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-125.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.125 ;;; Reason: ;;; fix make-package :super keyword ;;; Written 6-May-85 21:36:37 by GJC, ;;; while running on Test Lambda A from band 1 ;;; with System 102.124, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.17, ZMail 57.3, Tiger 20.5, KERMIT 26.16, MEDIU M-RESOLUTION-COLOR 17.3, Experimental MICRO-COMPILATION-TOOLS 4.0, mi crocode 768, Education 2x2+ 102.120 Idle UCompiler. ; From file CLPACK.LISP#> QL.SYS; LAM3: (157) (defun make-package (name &key &optional nicknames (use '("GLOBAL")) super (size #o200) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-125.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-126.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.126 ;;; Reason: ;;; defpackage now ignores :super if package already created. ;;; Written 6-May-85 21:52:17 by GJC, ;;; while running on Test Lambda A from band 1 ;;; with System 102.124, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.17, ZMail 57.3, Tiger 20.5, KERMIT 26.16, MEDIU M-RESOLUTION-COLOR 17.3, Experimental MICRO-COMPILATION-TOOLS 4.0, mi crocode 768, Education 2x2+ 102.120 Idle UCompiler. ; From file CLPACK.LISP#> QL.SYS; LAM3: (157) (defun defpackage-internal (name alist-of-options) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-126.QFASL#1" Page 12 Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-127.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.127 ;;; Reason: ;;; system additions required by Interlisp ;;; Written 6-May-85 22:25:09 by GJC, ;;; while running on Test Lambda A from band 1 ;;; with System 102.124, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.17, ZMail 57.3, Tiger 20.5, KERMIT 26.16, MEDIU M-RESOLUTION-COLOR 17.3, Experimental MICRO-COMPILATION-TOOLS 4.0, mi crocode 768, Education 2x2+ 102.120 Idle UCompiler. ; From file READ.LISP#> QL.IO; LAM3: (436) (defun xr-xrtyipeek (&optional peek-type &rest read-args) ; From file MAKSYS.LISP#> QL.SYS2; LAM3: (186) (DEFINE-SIMPLE-TRANSFORMATION :READ-FOR-COMPILATION ReadForCompilatio n ReadForCompilation? ; From file MAKSYS.LISP#> QL.SYS2; LAM3: (186) (DEFUN ReadForCompilation? (Name &AUX (Source (FUNCALL Name ':NEW-TYP E "LISP")) ; From file MAKSYS.LISP#> QL.SYS2; LAM3: (186) (DEFUN ReadForCompilation (Name &AUX (Source (FUNCALL Name ':NEW-TYPE "LISP")) ; From file MAKSYS.LISP#> QL.SYS2; LAM3: (186) (DEFMACRO (:PROPERTY :PROGN DEFSYSTEM-MACRO) (&REST Transformations & AUX Values) ; From file MAKSYS.LISP#> QL.SYS2; LAM3: (186) (DEFMACRO (:PROPERTY :READ-COMPILE-LOAD DEFSYSTEM-MACRO) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-127.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-128.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.128 ;;; Reason: ;;; (:method file-stream-mixin :get) now needs to handle the &OPTION AL DEFAULT argument. ;;; Written 7-May-85 14:39:29 by GJC, ;;; while running on Lambda Six from band 3 ;;; with System 102.110, Local-File 56.4, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, DOE-Macsyma 9.9, Macsyma-Help-Database 1.1, Experimental NewDraw 15.2, Experimental TCP-Kernel 23.0, Experimental TCP-Server 19.0, Experimental TCP-User 43.0, microcode 768. ; From file STREAM.LISP#> QL.IO; LAM3: (110) Page 13 (DEFMETHOD (FILE-STREAM-MIXIN :GET) (INDICATOR &OPTIONAL DEFAULT) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-128.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-129.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.129 ;;; Reason: ;;; Yet another LMFS support bug... ;;; Written 8-May-85 16:00:32 by RpK, ;;; while running on Boris Badinoff from band 3 ;;; with System 102.128, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.17, ZMail 57.3, Tiger 20.5, KERMIT 26.16, MEDIU M-RESOLUTION-COLOR 17.3, microcode 768. ; From file PATHST.LISP#> QL.IO.FILE; LAM3: (192) (DEFMETHOD (lmfs-PATHNAME-MIXIN :PARSE-NAMESTRING) (IGNORE NAMESTRING Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-129.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-130.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.130 ;;; Reason: ;;; Fix fs:merge-pathname-components to know about :UNSPECIFIC field s. ;;; Reason: ;;; This allows it to work for unix pathnames. ;;; Written 12-May-85 16:53:39 by MT, ;;; while running on Lambda Twelve from band 4 ;;; with System 102.129, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.17, ZMail 57.3, Tiger 20.5, KERMIT 26.16, MEDIU M-RESOLUTION-COLOR 17.3, Experimental NewDraw 21.0, microcode 768, 10 2.128 ND 21.0 LS. ; From file PATHNM.LISP#> QL.IO.FILE; LAD: (545) (defun merge-pathname-components Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-130.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-131.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.131 ;;; Reason: ;;; rename system-configuration spare slots for excelan Page 14 ;;; Written 15-May-85 17:02:25 by GJC, ;;; while running on Lambda Six from band 3 ;;; with System 102.110, Local-File 56.4, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, DOE-Macsyma 9.9, Macsyma-Help-Database 1.1, Experimental NewDraw 15.2, Experimental TCP-Kernel 25.0, Experimental TCP-User 47.0, Experimental TCP-Server 32.0, microcode 768. ; From file SYSCONF.LISP#> QL.COLD; LAD: (12) (defconst system-configuration-qs '( ; From file SYSCONF.LISP#> QL.COLD; LAD: (12) ; From file SYSCONF.LISP#> QL.COLD; LAD: (12) ; From file CONFIG-DEFS.LISP#> QL.SYS; LAD: (7) (define-accessors-for-structure system-configuration-qs) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-131.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-132.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.132 ;;; Reason: ;;; Fix LM-PRINT-DIRECTORY to not print null directories as "~;". N IL means :UNSPECIFIC, not :ROOT. ;;; Written 17-May-85 18:17:18 by MT, ;;; while running on Boris Badinoff from band 2 ;;; with System 102.131, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.19, ZMail 57.4, Tiger 20.5, KERMIT 26.18, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, Official working band for Boris//Natasha -d g. ; From file LMPARS.LISP#> QL.FILE; LAD: (115) (DEFUN LM-PRINT-DIRECTORY (DEVICE DIRECTORY S SPACE) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-132.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-133.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.133 ;;; Reason: ;;; Fix typo in PRINT-OBJECT --rg ;;; Written 18-May-85 14:06:55 by MPG, ;;; while running on Waiting for Godot from band 4 ;;; with System 102.129, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.19, ZMail 57.4, Tiger 20.5, KERMIT 26.16, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, 102.129 vista. Page 15 ; From file PRINT.LISP#> QL.IO; LAD: (182) (DEFUN PRINT-OBJECT (EXP I-PRINDEPTH STREAM Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-133.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-134.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.134 ;;; Reason: ;;; The :named-structure-basic-inspect property, a hook for interlis p ;;; Written 21-May-85 17:34:33 by GJC, ;;; while running on Lambda Six from band 3 ;;; with System 102.133, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.19, ZMail 57.5, Tiger 20.5, KERMIT 26.18, MEDIU M-RESOLUTION-COLOR 17.3, DOE-Macsyma 9.9, Macsyma-Help-Database 1.1, Experimental TCP-Server 32.0, Experimental TCP-Kernel 28.1, Experimen tal TCP-User 55.0, microcode 768, TCP OR BUST. ; From file INSPCT.LISP#> QL.WINDOW; LAD: (156) (DEFMETHOD (BASIC-INSPECT :OBJECT-NAMED-STRUCTURE) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-134.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-135.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.135 ;;; Reason: ;;; fix fquery prompt in tv:wait-till-safe-for-error. it used to say ;;; Reason: ;;; U was "like Terminal Meta-Clear-input", but it's Control-Clear-i nput. ;;; Written 21-May-85 18:51:39 by mhd, ;;; while running on Lambda Five A from band 2 ;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, lmi site info. ; From file SHEET.LISP#> QL.WINDOW; LAD: (560) (DEFUN WAIT-TILL-SAFE-FOR-ERROR (WINDOW FUNCTION &REST ARGS) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-135.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-136.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* Page 16 - ;;; Patch file for System version 102.136 ;;; Reason: ;;; Fix :ANY-TYI-NO-HANG to check RH buffer. ;;; Written 24-May-85 10:30:56 by JMTurn, ;;; while running on Boris Badinoff from band 2 ;;; with System 102.130, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.19, ZMail 57.4, Tiger 20.5, KERMIT 26.18, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, Official working band for Boris//Natasha -d g. ; From file STREAM.LISP#> QL.WINDOW; LAD: (146) (DEFMETHOD (STREAM-MIXIN :ANY-TYI-NO-HANG) (&OPTIONAL IGNORE) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-136.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-137.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.137 ;;; Reason: ;;; fix a call to compiler:barf ;;; Written 24-May-85 11:57:34 by gjc, ;;; while running on Lambda Six from band 2 ;;; with System 102.135, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.19, ZMail 57.6, Tiger 20.5, KERMIT 26.18, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.0, Experimental TCP-Server 32.0, microcode 768, Official working band fo r Boris//Natasha -dg. ; From file QCLAP.LISP#> QL.SYS; LAD: (251) (DEFUN LAP-HEADER (Q-LENGTH UNBOXED-LENGTH) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-137.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-138.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.138 ;;; Reason: ;;; new feature in file mode line, -*- READ:NameOfReader -*-, e.g. - *- READ:FAST -*- ;;; Written 29-May-85 13:45:32 by GJC, ;;; while running on Lambda Six from band 2 ;;; with System 102.137, Local-File 56.7, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.19, ZMail 57.6, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- Page 17 maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.1, Experimental TCP-Server 32.1, microcode 768, Official working band fo r Boris//Natasha -dg. ; From file QFASL.LISP#> QL.SYS; LAD: (468) (DEFVAR *READFILE-READ-FUNCTION* NIL "If non-nil a function to use in stead of READ") ; From file QFASL.LISP#> QL.SYS; LAD: (468) (DEFUN READFILE-INTERNAL (*STANDARD-INPUT* PKG NO-MSG-P) ; From file QCFILE.LISP#> QL.SYS; LAD: (326) (DEFUN COMPILE-STREAM (INPUT-STREAM GENERIC-PATHNAME FASD-FLAG PROCES S-FN ; From file OPEN.LISP#> QL.IO.FILE; LAD: (179) (DEFVAR *NAMED-READER-ALIST* '((:T READ)(NIL READ)) ; From file OPEN.LISP#> QL.IO.FILE; LAD: (179) (DEFUN (:READ FILE-ATTRIBUTE-BINDINGS) (FILE IGNORE VAL) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-138.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-139.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.139 ;;; Reason: ;;; Fix logical pathname completion ;;; Reason: ;;; (in (:METHOD FS:LOGICAL-PATHNAME :COMPLETE-STRING)). ;;; Written 30-May-85 12:21:07 by dg, ;;; while running on Boris Badinoff from band 2 ;;; with System 102.130, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.19, ZMail 57.4, Tiger 20.5, KERMIT 26.18, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, Official working band for Boris//Natasha -d g. ; From file PATHST.LISP#> QL.IO.FILE; LAD: (194) (DEFMETHOD (LOGICAL-PATHNAME :COMPLETE-STRING) (STRING OPTIONS &AUX S TRING1 FOO SUCCESS) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-139.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-141.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.141 ;;; Reason: ;;; Fix defstruct initialization. Same patch as 104.8 --rg ;;; Written 30-May-85 23:48:42 by GJC, ;;; while running on Lambda Six from band 2 Page 18 ;;; with System 102.135, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.19, ZMail 57.6, Tiger 20.5, KERMIT 26.18, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.0, Experimental TCP-Server 32.0, microcode 768, Official working band fo r Boris//Natasha -dg. ; From file STRUCT.LISP#> QL.SYS2; LAD: (323) (DEFUN DEFSTRUCT-PARSE-ONE-FIELD (IT NUMBER PPSS REST CONC-NAME #+MAC LISP-10 CHARS Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-141.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-142.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for System version 102.142 ;;; Reason: ;;; New Message to user in ZWEI:REPORT-BP-LOSSAGE. ;;; Reason: ;;; Make the TYPE-PRETTY-NAME of type (fixnum 0) be "a non-negative fixnum". ;;; Written 31-May-85 11:53:12 by dg, ;;; while running on Boris Badinoff from band 2 ;;; with System 102.141, Local-File 56.7, FILE-Server 13.1, Unix-Inte rface 5.4, MagTape 40.19, ZMail 57.6, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, Official working band for Boris//Natasha -d g. ; From file NPRIM.LISP#> QL.ZWEI; LAD: (35) (DEFUN REPORT-BP-LOSSAGE () ; From file TYPES.LISP#> QL.SYS; LAD: (73) (defun integer-type-name (type noun article) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-142.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-143.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for System version 102.143 ;;; Reason: ;;; ODDP definition for interpreter. Fix DEFMIC next cold load. ;;; Written 31-May-85 15:02:59 by GJC, ;;; while running on Lambda Six from band 2 ;;; with System 102.135, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.19, ZMail 57.6, Tiger 20.5, KERMIT 26.18, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.0, Page 19 Experimental TCP-Server 32.2, microcode 768, Official working band fo r Boris//Natasha -dg. ; From file *Buffer-1*NIL (defun oddp (x) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-143.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-144.LISP#2" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.144 ;;; Reason: ;;; make sure that file system is booted before error table is loade d from the local host. ;;; Written 7-Jun-85 08:47:38 by GJC, ;;; while running on Lambda Six from band 2 ;;; with System 102.143, Local-File 56.7, FILE-Server 13.2, Unix-Inte rface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.5, Experimental TCP-Server 32.2, microcode 768, Official working band fo r Boris//Natasha -dg. ; From file EH.LISP#> QL.SYS2; LAD: (355) (DEFUN LOAD-ERROR-TABLE (&aux pathname) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-144.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-145.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.145 ;;; Reason: ;;; fix horrible stupid bug in WITH-TIMEOUT ;;; Written 7-Jun-85 17:22:55 by dg, ;;; while running on Boris Badinoff from band 2 ;;; with System 102.143, Local-File 56.7, FILE-Server 13.2, Unix-Inte rface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental BURN-IN 2.1, microcode 768, Boris' Working Ba nd. ; From file LMMAC.LISP#> QL.SYS2; LAD: (380) (DEFMACRO WITH-TIMEOUT ((DURATION . TIMEOUT-FORMS) &BODY BODY) ; From file PROCES.LISP#> QL.SYS2; LAD: (165) (DEFUN WITH-TIMEOUT-INTERNAL (DURATION PROCESS) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-145.QFASL#1" Page 20 Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-146.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.146 ;;; Reason: ;;; more slots in system-configuration structure. ;;; Written 12-Jun-85 09:37:17 by GJC, ;;; while running on Lambda Six from band 2 ;;; with System 102.144, Local-File 56.9, FILE-Server 13.2, Unix-Inte rface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.5, Experimental TCP-Server 32.2, microcode 770, Official working band fo r Boris//Natasha -dg. ; From file SYSCONF.LISP#> QL.COLD; LAD: (14) (defconst system-configuration-qs '( ; From file SYSCONF.LISP#> QL.COLD; LAD: (14) ; From file SYSCONF.LISP#> QL.COLD; LAD: (14) ; From file CONFIG-DEFS.LISP#> QL.SYS; LAD: (7) (define-accessors-for-structure system-configuration-qs) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-146.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-147.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.147 ;;; Reason: ;;; READ-DELIMITED-STRING no longer echoes the delimiter; READ[-]LIN E echoes the delimiter ;;; Reason: ;;; (Return or End) on interactive streams. ;;; Written 13-Jun-85 13:54:30 by rpk, ;;; while running on Test Lambda A from band 4 ;;; with System 102.129, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.19, ZMail 57.4, Tiger 20.5, KERMIT 26.16, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, 102.129 vista portrait. ; From file QIO.LISP#> QL.IO; LAD: (214) (defun read-line (&optional (stream *standard-input*) (eof-error-p t) eof-value recursive-p ; From file QIO.LISP#> QL.IO; LAD: (214) (defun readline (&rest read-args) ; From file QIO.LISP#> QL.IO; LAD: (214) (defun read-delimited-string (&optional (delimiter #/End) (stream *st andard-input*) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 Page 21 2-147.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-148.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.148 ;;; Reason: ;;; Fix m-X Apropos bug introduced in 102.67. ;;; Written 13-Jun-85 18:56:16 by RpK, ;;; while running on Lambda Five A from band 2 ;;; with System 102.147, Local-File 56.9, FILE-Server 13.2, Unix-Inte rface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, lmi site info. ; From file DOC.LISP#> QL.ZWEI; LAD: (76) (defun apropos-internal (use-any-extended-command-p) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-148.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-149.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.149 ;;; Reason: ;;; Make ISPELL handle # (not found) case right. ;;; Written 21-Jun-85 08:45:56 by JMTURN, ;;; while running on Dale from band 1 ;;; with System 102.148, Local-File 56.9, FILE-Server 13.2, Unix-Inte rface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.6, Experimental TCP-Server 32.2, Experimental LMI Laser Printer II 8.1, microcode 768, Laser2. ; From file ISPELL.LISP#> QL.ZWEI; LAD: (50) (DEFUN alist-of-CHECK-SPELLING-WORDLIST (words &aux checker) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-149.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-150.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for System version 102.150 ;;; Reason: ;;; Add new feature for specifying printers ;;; Written 27-Jun-85 11:31:21 by RKR, ;;; while running on Boris Badinoff from band 2 Page 22 ;;; with System 102.145, Local-File 56.9, FILE-Server 13.2, Unix-Inte rface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental BURN-IN 2.4, Experimental LMI Laser Printer I I 9.0, microcode 770, Boris' Working Band. ; From file HARDCOPY.LISP#> QL.IO1; LAD: (1) (DEFINE-SITE-VARIABLE *PRINTER-NAMES* :PRINTER-NAMES ; From file HARDCOPY.LISP#> QL.IO1; LAD: (1) (DEFUN EXPAND-PRINTER-NAME (PRINTER) ; From file HARDCOPY.LISP#> QL.IO1; LAD: (1) (DEFUN HARDCOPY-FILE (FILE-NAME &REST OPTIONS ; From file HARDCOPY.LISP#> QL.IO1; LAD: (1) (DEFUN HARDCOPY-STREAM (STREAM &REST OPTIONS ; From file HARDCOPY.LISP#> QL.IO1; LAD: (1) (DEFUN HARDCOPY-BIT-ARRAY (ARRAY LEFT TOP RIGHT BOTTOM &REST OPTIONS ; From file HARDCOPY.LISP#> QL.IO1; LAD: (1) (DEFUN HARDCOPY-STATUS (&OPTIONAL (PRINTER *DEFAULT-PRINTER*) ; From file HARDCOPY.LISP#> QL.IO1; LAD: (1) (DEFUN (:PROPERTY :LPT PRINT-FILE) (PRINTER FILE-NAME ; From file HARDCOPY.LISP#> QL.IO1; LAD: (1) (DEFUN (:PROPERTY :LPT PRINT-STREAM) (PRINTER STREAM Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-150.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-151.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.151 ;;; Reason: ;;; Decache sample pathnames when needed. (Same as 104.32) ;;; Written 27-Jun-85 17:14:00 by RpK, ;;; while running on Lambda Five A from band 2 ;;; with System 102.150, Local-File 56.9, FILE-Server 13.2, Unix-Inte rface 5.4, MagTape 40.21, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, lmi site info. ; From file PATHST.LISP#> L.IO.FILE; DJ: (196) (DEFPROP LMFS-PATHNAME T PATHNAME-FLAVOR-CHANGES) ; From file LMPARS.LISP#> L.FILE; DJ: (117) (DEFPROP LM-PATHNAME T PATHNAME-FLAVOR-CHANGES) ; From file PATHNM.LISP#> L.IO.FILE; DJ: (547) (DEFUN FIX-SAMPLE-PATHNAMES-SITE () Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-151.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-152.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* Page 23 - ;;; Patch file for System version 102.152 ;;; Reason: ;;; Make screen dumps understand new printer name format. ;;; Written 28-Jun-85 08:55:46 by JMTurn, ;;; while running on Dale from band 1 ;;; with System 102.151, Local-File 56.9, FILE-Server 13.2, Unix-Inte rface 5.4, MagTape 40.21, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.6, Experimental TCP-Server 32.2, Experimental LMI Laser Printer II 8.4, microcode 768, Laser2. ; From file BASSTR.LISP#> QL.WINDOW; LAD: (383) (DEFVAR *ESCAPE-KEYS* ; From file BASSTR.LISP#> QL.WINDOW; LAD: (383) (DEFUN KBD-ESC-Q (ARG &AUX (PRINTER (OR SI:*DEFAULT-BIT-ARRAY-PRINTER * SI:*DEFAULT-PRINTER*))) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-152.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-153.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.153 ;;; Reason: ;;; Don't loop on proceed from SYMBOL-NAME-CONFLICT condition. ;;; Written 30-Jun-85 17:46:10 by MT, ;;; while running on The Importance of Being Earnest from band 3 ;;; with System 102.152, Local-File 56.9, FILE-Server 13.2, Unix-Inte rface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental Obj ect Lisp 4.0, Experimental iris 2.0, Experimental LMI Laser Printer I I 10.4, microcode 770. ; From file CLPACK.LISP#> QL.SYS; LAD: (158) (defun export (symbols &optional (pkg *package*) force-flag) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-153.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-154.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.154 ;;; Reason: ;;; Make interval streams smarter about returning attributes. ;;; Written 1-Jul-85 14:37:44 by MT, ;;; while running on The Importance of Being Earnest from band 3 Page 24 ;;; with System 102.148, Local-File 56.9, FILE-Server 13.2, Unix-Inte rface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental Obj ect Lisp 4.0, Experimental iris 2.0, microcode 770. ; From file METH.LISP#> QL.ZWEI; LAD: (48) (defmethod (interval-stream :syntax-plist) () Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-154.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-155.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.155 ;;; Reason: ;;; fix obvious bug in case such as (SXHASH '(A B C . D)) ;;; Written 10-Jul-85 21:39:01 by GJC, ;;; while running on Bedlam from band 3 ;;; with System 102.154, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.4, MagTape 40.22, ZMail 57.9, Tiger 20.6, KERMIT 26.20, MEDI UM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window -maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental TC P-Kernel 28.11, Experimental TCP-User 55.11, Experimental TCP-Server 32.2, microcode 770, 102.154 TCP. ; From file QRAND.LISP#> QL.SYS; LAD: (430) (DEFUN SXHASH (X &OPTIONAL RANDOM-OBJECT-ACTION) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-155.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-156.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.156 ;;; Reason: ;;; Make file mode lines work again by undoing the ill-advised patch to ZMACS in SYSTEM-102-154. ;;; Written 10-Jul-85 22:00:40 by GJC, ;;; while running on Bedlam from band 3 ;;; with System 102.154, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.4, MagTape 40.22, ZMail 57.9, Tiger 20.6, KERMIT 26.20, MEDI UM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window -maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental TC P-Kernel 28.11, Experimental TCP-User 55.11, Experimental TCP-Server 32.2, microcode 770, 102.154 TCP. ; From file METH.LISP#> QL.ZWEI; LAD: (49) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-156.QFASL#1" Page 25 Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-157.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.157 ;;; Reason: ;;; Fix typo in *escape-keys* that broke Terminal Help ;;; Written 12-Jul-85 15:41:13 by MT, ;;; while running on The Importance of Being Earnest from band 3 ;;; with System 102.156, Local-File 56.9, FILE-Server 13.2, Unix-Inte rface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental Obj ect Lisp 4.0, Experimental iris 2.0, Experimental LMI Laser Printer I I 11.0, microcode 770. ; From file BASSTR.LISP#> QL.WINDOW; LAD: (384) (DEFVAR *ESCAPE-KEYS* Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-157.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-158.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.158 ;;; Reason: ;;; CHAOS:TRANSMIT-INT-PKT distinguishes between real broadcast and unknown ;;; Reason: ;;; route actions (especially on non-Ethernet-owning processor). ;;; Written 23-Jul-85 09:52:33 by RpK, ;;; while running on Natasha Nogoodnik from band 2 ;;; with System 102.157, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental BURN-IN 2.5, microcode 770, Boris' Working Band. ; From file CHSNCP.LISP#> QL.NETWORK.CHAOS; LAD: (315) (DEFUN LAMBDA-TRANSMIT-INT-PKT (INT-PKT &OPTIONAL HOST SUBNET (broadc ast-if-necessary t) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-158.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-159.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.159 Page 26 ;;; Reason: ;;; New method: (:METHOD ZWEI:ZMACS-BUFFER :WRITE-FILE-INTERNAL) ;;; Reason: ;;; Changed WRITE-FILE-INTERNAL to call above method. ;;; Written 24-Jul-85 20:31:24 by Tim, ;;; while running on Dale from band 2 ;;; with System 102.154, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.4, MagTape 40.21, ZMail 57.9, Tiger 20.6, KERMIT 26.20, MEDI UM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window -maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.6, Experimental TCP-Server 32.2, Experimental LMI Laser Printer II 11.0 , microcode 768, Laser2 Released. ; From file ZMACS.LISP#> QL.ZWEI; LAD: (529) (DEFUN WRITE-FILE-INTERNAL (PATHNAME &OPTIONAL (BUFFER *INTERVAL*)) ; From file METH.LISP#> QL.ZWEI; LAD: (50) (DEFMETHOD (ZMACS-BUFFER :WRITE-FILE-INTERNAL) (PATH) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-159.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-160.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.160 ;;; Reason: ;;; Purge leftover interrupts in the quad video board during lip-rei nitialize. ;;; Written 8-Aug-85 18:04:16 by pace, ;;; while running on Natasha Nogoodnik from band 2 ;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental BURN-IN 2.5, microcode 773, Boris' Working Band. ; From file LTOP.LISP#> QL.SYS; LAD: (508) (DEFUN LISP-REINITIALIZE (&OPTIONAL (CALLED-BY-USER T) ; From file LTOP.LISP#> QL.SYS; LAD: (508) (defun purge-quad-video () Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-160.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-161.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.161 ;;; Reason: ;;; prompt-and-read fixed for case of stream with :prompt-and-read h andler returning a NIL value. Page 27 ;;; Written 10-Aug-85 11:46:32 by BED, ;;; while running on Lambda Five A from band 2 ;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental BURN-IN 2.5, microcode 770, Boris' Working Band (for Landscape). ; From file QIO.LISP#> QL.IO; LAD: (216) (defun prompt-and-read (option format-string &rest format-args) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-161.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-162.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.162 ;;; Reason: ;;; Allow reshaping of split-screen frames. Also fixed in 2.1 sourc e. ;;; Reason: ;;; (RpK) ;;; Written 10-Aug-85 23:56:25 by GJC, ;;; while running on Boris Badinoff from band 2 ;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental BURN-IN 2.5, microcode 773, Boris' Working Band. ; From file FRAME.LISP#> QL.WINDOW; LAD: (167) (DEFFLAVOR SPLIT-SCREEN-FRAME () (scale-inferiors-mixin BASIC-FRAME)) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-162.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-163.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.163 ;;; Reason: ;;; Change braino in (:METHOD TV:BITBLT-BLINKER :BLINK). ;;; Reason: ;;; Fix c-3. Fix FS:SET-HOST-WORKING-DIRECTORY. ;;; Written 20-Aug-85 15:29:52 by RpK, ;;; while running on Mary had a little Lambda from band 2 ;;; with System 102.162, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.7, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, microcode 768. Page 28 ; From file SHEET.LISP#> QL.WINDOW; LAD: (561) (DEFMETHOD (BITBLT-BLINKER :BLINK) () ; From file SCREEN.LISP#> QL.ZWEI; LAD: (470) (DEFUN SWITCH-WINDOWS (&OPTIONAL CHANGE-INTERVAL (ONE-TO-SELECT 2)) ; From file PATHNM.LISP#> QL.IO.FILE; LAD: (546) (DEFUN SET-HOST-WORKING-DIRECTORY (HOST PATHNAME) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-163.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-164.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.164 ;;; Reason: ;;; Fix to GET case of FUNCTION-SPEC-DEFAULT-HANDLER required by obj ectlisp. ;;; Written 28-Aug-85 17:16:10 by GJC, ;;; while running on Lambda Six from band 3 ;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental T CP-User 57.0, Experimental TCP-Server 33.0, Experimental Object Lisp 4.0, Experimental vista 2.0, TCP-Kernel 30.4, Experimental LM-Prolog 1.0, DOE-Macsyma 9.9, microcode 772, Education 2x2+ good stuff. ; From file QRAND.LISP#> QL.SYS; LAD: (431) (DEFUN FUNCTION-SPEC-DEFAULT-HANDLER (FUNCTION FUNCTION-SPEC &OPTIONA L ARG1 ARG2) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-164.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-165.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.165 ;;; Reason: ;;; fix SDU method of :SET-CHAR-LENGTH to actually set it. ;;; Written 4-Sep-85 16:18:10 by GJC, ;;; while running on Lambda Six from band 3 ;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental T CP-User 57.0, Experimental TCP-Server 33.0, Experimental Object Lisp 4.0, Experimental vista 2.0, Experimental TCP-Kernel 30.1, Experiment al LM-Prolog 1.0, microcode 772, Education 2x2+ good stuff. ; From file SDU-SERIAL.LISP#> QL.IO1; LAD: (19) Page 29 (defmethod (sdu-serial-stream-mixin :set-char-length) (length) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-165.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-166.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.166 ;;; Reason: ;;; The default mouse click method of tv:basic-mouse-sensitive-items now ;;; Reason: ;;; beeps if mouse click is not single left click or single right cl ick. ;;; Reason: ;;; It also now beeps on single right click selected mouse item does not ;;; Reason: ;;; have an associated menu-alist. ;;; Written 11-Sep-85 20:38:35 by mhd, ;;; while running on Lambda Fifteen from band 3 ;;; with System 102.122, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.3, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, microcode 768, 2.0 Process Systems 5/2/85 Fo rk.. ; From file TYPWIN.LISP#> QL.WINDOW; LAD: (119) (DEFMETHOD (BASIC-MOUSE-SENSITIVE-ITEMS :MOUSE-CLICK) (BUTTON X Y &AU X ITEM) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-166.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-167.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.167 ;;; Reason: ;;; fix make-dispatch-macro-character ;;; Written 18-Sep-85 11:02:19 by GJC, ;;; while running on Lambda Six from band 3 ;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental T CP-User 57.0, Experimental TCP-Server 33.0, Experimental Object Lisp 4.0, Experimental vista 2.0, Experimental TCP-Kernel 30.1, Experiment al LM-Prolog 1.0, Experimental PAPER-AIRPLANE 4.0, microcode 772, Edu cation 2x2+ good stuff. Page 30 ; From file READ.LISP#> QL.IO; LAD: (436) (DEFUN MAKE-DISPATCH-MACRO-CHARACTER (CHAR &OPTIONAL NON-TERMINATING- P Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-167.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-168.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for System version 102.168 ;;; Reason: ;;; Mouse process will no longer hang in command-menu-mixin's :after :mouse-buttons if io-buffer is full. ;;; Reason: ;;; It will now give io-buffer-put a no-hang-p of t and on a nil ret urn send the menu window a :beep. ;;; Written 18-Sep-85 12:22:45 by PECANN, ;;; while running on Waiting for Godot from band 4 ;;; with System 102.162, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.7, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental O bjectLISP 1.0, Experimental vista 1.0, Experimental IRIS 1.0, DOE-Mac syma 9.9, Macsyma-Help-Database 1.1, microcode 778. ; From file MENU-PATCH.LISP#> PECANN; GOD: (1) (DEFMETHOD (COMMAND-MENU-MIXIN :AFTER :MOUSE-BUTTONS) (BD IGNORE IGNO RE) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-168.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-169.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.169 ;;; Reason: ;;; various small edits to fix bugs in a few COMMON-LISP functions. ;;; Written 21-Sep-85 01:44:37 by GJC, ;;; while running on Lambda Six from band 2 ;;; with System 102.168, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.5 , Experimental TCP-Server 32.2, microcode 768, Official working band for Boris//Natasha -dg. ; From file GENRIC.LISP#> QL.SYS; LAD: (29) (defun subst-1 (new old-list tree key pred invertp) ; From file TYPES.LISP#> QL.SYS; LAD: (73) Page 31 (defun coerce-to-vector (object array-type &optional simplep &aux vec tor length) ; From file TYPES.LISP#> QL.SYS; LAD: (74) (deff coerce-to-array-optimized #'coerce-to-vector) ;Still used by o ld compiled code. ; From file EVAL.LISP#> QL.SYS; LAD: (94) (defun proclaim (&rest declarations &aux d) ; From file CLPACK.LISP#> QL.SYS; LAD: (160) (defun in-package (name &rest options &key use nicknames) ; From file READ.LISP#> QL.IO; LAD: (437) (DEFUN SET-SYNTAX-FROM-CHAR (TO-CHAR FROM-CHAR &OPTIONAL ; From file READ.LISP#> QL.IO; LAD: (437) (DEFUN SET-MACRO-CHARACTER (CHAR FUNCTION &OPTIONAL NON-TERMINATING-P Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-169.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-170.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.170 ;;; Reason: ;;; zwei:directory-input-stream now takes &rest options to fs:direct ory-list-stream ;;; Written 4-Oct-85 14:11:45 by GJC, ;;; while running on Lambda Six from band 2 ;;; with System 102.169, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, TCP-Kernel 30.5, TCP-User 57.5, TCP-Server 33.0, microco de 768. ; From file FILES.LISP#> QL.ZWEI; LAD: (198) (DEFUN DIRECTORY-INPUT-STREAM (DIRECTORY &REST OPTIONS &AUX (DIR DIRE CTORY)) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-170.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-171.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.171 ;;; Reason: ;;; terminal-4-q for printing out superior which is a contraint-fram e. ;;; Written 5-Nov-85 18:45:03 by GJC, ;;; while running on Lambda Five B from band 1 ;;; with System 102.154, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.4, MagTape 40.21, ZMail 57.9, Tiger 20.6, KERMIT 26.20, MEDI Page 32 UM-RESOLUTION-COLOR 17.4, microcode 768, 2.0 Process Systems 5/2/85 F ork.. ; From file BASSTR.LISP#> QL.WINDOW; LAD: (386) (DEFUN KBD-ESC-Q (ARG &AUX (PRINTER (OR SI:*DEFAULT-BIT-ARRAY-PRINTER * SI:*DEFAULT-PRINTER*))) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-171.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-172.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.172 ;;; Reason: ;;; fixed sheet-display-x-y-centered-string which didn't center righ t ;;; Written 6-Nov-85 11:29:11 by EFH, ;;; while running on Waiting for Godot from band 3 ;;; with System 102.170, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.10, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental ObjectLISP 2.0, Experimental vista 1.0, Experimental IRIS 1.0, microc ode 778. ; From file SHWARM.LISP#> QL.WINDOW; LAD: (344) (DEFUN SHEET-DISPLAY-X-Y-CENTERED-STRING (SHEET STRING Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-172.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-173.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.173 ;;; Reason: ;;; fix misuse of %BIND in FASL-OP-FRAME, subtle bug showed up only during loading of ADA system. ;;; Written 12-Nov-85 15:49:07 by GJC, ;;; while running on McGuffey from band 1 ;;; with System 102.170, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.9, KERMIT 26.21, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, TCP-Kernel 30. 5, TCP-User 57.7, TCP-Server 33.1, Experimental LMI Laser Printer II 11.2, DOE-Macsyma 9.15, microcode 768, Education 2x2. ; From file QFASL.LISP#> QL.SYS; LAD: (470) (DEFUN FASL-NEXT-VALUE-BINDING-FASL-LIST-AREA (X) ; From file QFASL.LISP#> QL.SYS; LAD: (470) (DEFUN FASL-OP-FRAME () Page 33 Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-173.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-174.LISP#2" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.174 ;;; Reason: ;;; Now supporting :set-parity :even, :odd, or NIL to the sdu-serial -stream. ;;; Written 23-Nov-85 14:40:00 by GJC, ;;; while running on Lambda Six from band 1 ;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Serve r 33.1, microcode 778, 2.0 Process Systems 5/2/85 Fork.. ; From file SDU-SERIAL.LISP#> QL.IO1; LAD: (20) ; From file SDU-SERIAL.LISP#> QL.IO1; LAD: (20) (defflavor sdu-serial-stream-mixin ; From file SDU-SERIAL.LISP#> QL.IO1; LAD: (20) (defmethod (sdu-serial-stream-mixin :reset) (&optional (abort-output :abort) (reset-chip t)) ; From file SDU-SERIAL.LISP#> QL.IO1; LAD: (20) (defmethod (sdu-serial-stream-mixin :set-parity) (type) (defmethod (sdu-serial-stream-mixin :set-char-length) (length) (defmethod (sdu-serial-stream-mixin :set-stop-bits) (length) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-174.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-175.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.175 ;;; Reason: ;;; Pre-compile flavor methods for zwei:tag-table-dummy-file so sele cting ;;; Reason: ;;; tag table the first time shouldn't take as long. -mhd ;;; Written 3-Dec-85 21:09:17 by mhd, ;;; while running on Lambda Fifteen B from band 2 ;;; with System 102.171, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.10, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Serve r 33.1, microcode 768, 2.0 Process Systems 5/2/85 Fork.. ; From file SECTIO.LISP#> QL.ZWEI; LAD: (271) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-175.QFASL#1" Page 34 Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-176.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.176 ;;; Reason: ;;; Fixed tv:mouse-set-blinker to set offsets if blinker is an insta nce ;;; Written 4-Dec-85 17:19:41 by EFH, ;;; while running on Lambda Fourteen from band 1 ;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.12, KERMIT 26.15, MEDI UM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window -maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental Ob jectLISP 1.0, Experimental vista 1.0, Experimental IRIS 1.0, microcod e 773. ; From file MOUSE.LISP#> QL.WINDOW; LAD: (251) (DEFUN MOUSE-SET-BLINKER (TYPE-OR-BLINKER &OPTIONAL X-OFFSET Y-OFFSET ) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-176.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-177.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.177 ;;; Reason: ;;; Use %nubus-write-8 in EXECUTE-IOMSG. ;;; Written 27-Dec-85 20:27:36 by KKRYDA, ;;; while running on Lambda Four from band 2 ;;; with System 102.154, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.4, MagTape 40.21, ZMail 57.9, Tiger 20.6, KERMIT 26.20, MEDI UM-RESOLUTION-COLOR 17.4, Experimental NewDraw 21.5, LMI Laser Printe r II 3.6, Experimental TCP-Kernel 28.13, Experimental TCP-User 55.15, Experimental TCP-Server 32.5, microcode 768, 102.154 Lam. ; From file IOMSG.LISP#> QL.SYS; LAD: (23) (defun execute-iomsg (iomsg) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-177.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-178.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.178 ;;; Reason: ;;; sets si:page-rqb-size to 1- number of maps Page 35 ;;; Written 17-Jan-86 17:10:01 by EFH, ;;; while running on The Importance of Being Earnest from band 4 ;;; with System 102.176, Local-File 56.13, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.10, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental ObjectLISP 2.0, Experimental vista 1.0, Experimental IRIS 1.0, TCP-Ke rnel 30.12, TCP-User 57.11, TCP-Server 33.5, microcode 783, LAM. ; From file CONFIG.LISP#> QL.SYS; LAD: (35) (defun find-processor-configuration-structure () Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-178.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-179.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.179 ;;; Reason: ;;; like 102.178 but with more feeling. bump page-rqb-size down by 2 ;;; Written 20-Jan-86 12:13:41 by EFH, ;;; while running on The Importance of Being Earnest from band 4 ;;; with System 102.176, Local-File 56.13, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.10, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental ObjectLISP 2.0, Experimental vista 1.0, Experimental IRIS 1.0, TCP-Ke rnel 30.12, TCP-User 57.11, TCP-Server 33.5, microcode 783, LAM. ; From file CONFIG.LISP#> QL.SYS; LAD: (35) (defun find-processor-configuration-structure () Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-179.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-180.LISP#2" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.180 ;;; Reason: ;;; Patch tv:WINDOW-INITIALIZE to avoid possible reference to GREY b efore it is initialized. ;;; Reason: ;;; This can happen with certain beta-test SDU versions. ;;; Written 23-Jan-86 01:22:38 by rg, ;;; while running on Waiting for Godot from band 4 ;;; with System 102.176, Local-File 56.13, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.10, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental Page 36 ObjectLISP 2.0, Experimental vista 1.0, Experimental IRIS 1.0, TCP-Ke rnel 30.12, TCP-User 57.11, TCP-Server 33.5, microcode 783, LAM. ; From file SHWARM.LISP#> QL.WINDOW; LAD: (345) (DEFUN WINDOW-INITIALIZE (&AUX FIRST-TIME) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-180.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-181.LISP#1" ;;; -*- Mode:LISP; Package:SYSTEM-INTERNALS; Patch-File:T; Base:8; Re adtable:T -*- ;;; Patch file for System version 102.181 ;;; Reason: ;;; Add DONT-USE-3COM, so that si:set-processor-owning-ethernet can be told ;;; Reason: ;;; to leave 3com alone, so that RTIME can use it for raw ethernet. ;;; Written 28-Jan-86 00:58:41 by bobp, ;;; while running on McGuffey from band 4 ;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, 102.117a 121985. ; From file CONFIG.LISP#> QL.SYS; LAD: (36) (defvar dont-use-3com nil (defun set-processor-owning-ethernet (&optional (operation :find)) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-181.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-182.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.182 ;;; Reason: ;;; New macro, compiler:with-open-fasd-file, and function, ;;; Reason: ;;; compiler:dump-forms-to-fasd-stream, which can be used together t o define ;;; Reason: ;;; dump-forms-to-file, which they now are. The main purpose of doi ng this ;;; Reason: ;;; was to allow a program to get the truename of the file being wri tten ;;; Reason: ;;; before and during its writing. -mhd ;;; Written 3-Feb-86 18:32:35 by AGH, ;;; while running on Lambda Fifteen B from band 2 Page 37 ;;; with System 102.180, Local-File 56.13, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.12, TCP-User 57.12, TCP-Ser ver 33.5, microcode 783, 2.0 Process Systems 5/2/85 Fork.. ; From file QCFASD.LISP#> QL.SYS; LAD: (251) (defmacro with-open-fasd-file ((stream-variable filename &optional at tribute-list) &body body) (defun open-fasd-file (filename) (defun dump-forms-to-fasd-stream (fasd-stream forms-list) (DEFUN DUMP-FORMS-TO-FILE (FILENAME FORMS-LIST &OPTIONAL ATTRIBUTE-LI ST) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-182.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-183.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for System version 102.183 ;;; Reason: ;;; Fix time:read-rtc-register and write-rtc-register to do 8-bit nu bus ;;; Reason: ;;; transfers (as already done for 3.0) ;;; Written 12-Mar-86 21:35:06 by bobp, ;;; while running on Emma Willard from band 1 ;;; with System 102.182, Local-File 56.16, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.16, ME DIUM-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental wind ow-maker 1.0, Experimental LM-Prolog 1.0, microcode 768, 102.117p 012 386. ; From file TIME.LISP#> QL.IO1; LAD: (113) (defun read-rtc-register (adr) (defun write-rtc-register (adr data) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-183.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-184.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.184 ;;; Reason: ;;; Make sure shared memory size is not bigger that spaced that is m apped for it in the virtual memory. ;;; Written 19-Mar-86 17:05:59 by naha, ;;; while running on TEST LAMBDA A from band 3 ;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU Page 38 M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 782, 102.117. ; From file CONFIG.LISP#> QL.SYS; LAD: (38) (defun set-up-shared-memory () Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-184.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-185.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for System version 102.185 ;;; Reason: ;;; fs:network-path-available, in file-access ;;; Written 29-Mar-86 08:39:50 by GJC, ;;; while running on Dan Dare from band 1 ;;; with System 102.184, Local-File 56.16, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, TCP-Kernel 30.12, TCP-User 57.12, TCP-Server 33.5, micr ocode 783. ; From file ACCESS.LISP#> QL.IO.FILE; LAD: (18) (DEFUN PERMISSIBLE-ACCESS-PATH-FLAVOR-P (HOST ACCESS-D &AUX COND-TYPE COND-ARGS) ; From file ACCESS.LISP#> QL.IO.FILE; LAD: (18) (DEFUN NETWORK-PATH-AVAILABLE (TYPE HOST) (DEFUN DEFAULT-NETWORK-PATH-AVAILABLE (HOST) (DEFUN LOCAL-HOSTP (TO-HOST) (DEFUN OTHER-BUS-LOCAL-HOSTP (HOST) (DEFUN (:CHAOS NETWORK-PATH-AVAILABLE) (TO-HOST) (DEFVAR *NETWORK-FUNCTIONS* NIL) (DEFMACRO DEFINE-NETWORK-FUNCTION (NAME ARGUMENT-LIST &BODY BODY) (DEFINE-NETWORK-FUNCTION GET-REMOTE-DISK-UNIT (HOST UNIT USAGE &OPTIO NAL INITP WRITEP) (DEFINE-NETWORK-FUNCTION HOST-STATUS (HOST &REST SIMILAR-HOSTS) (DEFINE-NETWORK-FUNCTION SEND-TERMINAL-MESSAGE (HOST USER MESSAGE-GEN ERATOR) (DEFINE-NETWORK-FUNCTION FINGER-HOST (HOST USER OUTPUT-STREAM STYLE) (DEFINE-NETWORK-FUNCTION OPEN-REMOTE-TAPE-SERVER (HOST) (DEFVAR *NETWORK-PROTOCOLS* '(:CHAOS :INTERNET)) (DEFUN INVOKE-CORRECT-NETWORK-FUNCTION (NAME HOST ARGS) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-185.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-186.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.186 Page 39 ;;; Reason: ;;; print-disk-label et. al. now use generic network function interf ace. ;;; Written 29-Mar-86 08:52:45 by GJC, ;;; while running on Dan Dare from band 1 ;;; with System 102.185, Local-File 56.16, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, TCP-Kernel 30.12, TCP-User 57.12, TCP-Server 33.5, micr ocode 783. ; From file DISK.LISP#> QL.IO; LAD: (318) (DEFUN DECODE-UNIT-ARGUMENT (UNIT USE &OPTIONAL (CC-DISK-INIT-P NIL) (WRITE-P NIL) ; From file DISK.LISP#> QL.IO; LAD: (318) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-186.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-102-187.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for System version 102.187 ;;; Reason: ;;; from release 3.0, fix to describe-file-id for files with unknown creation dates ;;; Written 30-Mar-86 00:08:32 by GJC, ;;; while running on Dan Dare from band 1 ;;; with System 102.186, Local-File 56.16, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, TCP-Kernel 30.12, TCP-User 57.14, TCP-Server 33.8, micr ocode 783. ; From file ZMACS.LISP#> QL.ZWEI; LAD: (530) (DEFUN DESCRIBE-FILE-ID (FILE-ID) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; SYSTEM-10 2-187.QFASL#1" Report on directory of patches: #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAI L-57.PATCH-DIRECTORY#23" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T - *- ;;; Patch directory for ZMail version 57 ;;; Written 15-Jul-85 14:48:07 by gjc, ;;; while running on Bedlam from band 3 ;;; with System 102.157, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.4, MagTape 40.22, ZMail 57.9, Tiger 20.6, KERMIT 26.20, MEDI UM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window -maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental TC P-Kernel 28.11, Experimental TCP-User 55.11, Experimental TCP-Server Page 40 32.2, microcode 770, 102.154 TCP. Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-3.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:ZWEI; Base:8; Patch-File:T -* - ;;; Patch file for ZMail version 57.3 ;;; Reason: ;;; More concise buffer names for Move and Select documentation item s. ;;; Written 30-Apr-85 17:22:17 by RpK, ;;; while running on Lambda Six from band 3 ;;; with System 102.121, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, DOE-Macsyma 9.9, Macsyma-Help-Database 1.1, Experimental NewDraw 15.2, microcode 762. ; From file COMNDS.LISP#> QL.ZMAIL; LAM3: (585) (DEFINE-COMMAND-WHO-LINE-DOCUMENTATION-UPDATER GET-DEFAULTED-MOVE-ZMA IL-BUFFER ; From file FILTER.LISP#> QL.ZMAIL; LAM3: (357) (DEFINE-COMMAND-WHO-LINE-DOCUMENTATION-UPDATER COM-ZMAIL-SELECT (STRI NG) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57- 3.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-4.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:ZWEI; Base:8; Patch-File:T -* - ;;; Patch file for ZMail version 57.4 ;;; Reason: ;;; Make Zmail Profile editing window work. (Bad Comtab) ;;; Written 8-May-85 20:48:28 by JMTurn, ;;; while running on Dale from band 4 ;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768. ; From file PROFIL.LISP#> QL.ZMAIL; LAM3: (124) (DEFINE-ZMAIL-TOP-LEVEL-COMMAND COM-ZMAIL-PROFILE Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57- 4.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-5.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:ZWEI; Base:8; Patch-File:T -* - ;;; Patch file for ZMail version 57.5 ;;; Reason: Page 41 ;;; Fix cretinous lossage in ZMAIL-BUFFER-PREDICATE-QUERY ;;; Reason: ;;; used when attempting to delete expired messages and in other cas es. ;;; Written 17-May-85 10:42:16 by dg, ;;; while running on Boris Badinoff from band 2 ;;; with System 102.130, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.19, ZMail 57.4, Tiger 20.5, KERMIT 26.18, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, Official working band for Boris//Natasha -d g. ; From file COMNDS.LISP#> QL.ZMAIL; LAD: (586) (DEFUN ZMAIL-BUFFER-PREDICATE-QUERY (ZMAIL-BUFFER PREDICATE ACTION AT TRIBUTE &AUX ARRAY) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57- 5.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-6.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:ZWEI; Base:8; Patch-File:T -* - ;;; Patch file for ZMail version 57.6 ;;; Reason: ;;; Fix handling of new keywords. ;;; Written 22-May-85 14:49:07 by MT, ;;; while running on Boris Badinoff from band 2 ;;; with System 102.135, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.19, ZMail 57.4, Tiger 20.5, KERMIT 26.18, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, Official working band for Boris//Natasha -d g. ; From file WINDOW.LISP#> QL.ZMAIL; LAD: (343) (DEFMETHOD (ZMAIL-MULTIPLE-MENU-MIXIN :MULTIPLE-CHOOSE) (ITEM-LIST CU RRENTLY-ACTIVE ; From file COMNDS.LISP#> QL.ZMAIL; LAD: (587) (DEFUN ZMAIL-KEYWORDS-MSG (MSG &AUX OLD-KEYWORDS NEW-KEYWORDS) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57- 6.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-7.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:ZWEI; Base:8; Patch-File:T -* - ;;; Patch file for ZMail version 57.7 ;;; Reason: ;;; Make message summary line format option in BABYL files work. ;;; Written 4-Jun-85 14:29:13 by dg, ;;; while running on Boris Badinoff from band 2 ;;; with System 102.130, Local-File 56.6, FILE-Server 13.1, Unix-Inte Page 42 rface 5.3, MagTape 40.19, ZMail 57.4, Tiger 20.5, KERMIT 26.18, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, Official working band for Boris//Natasha -d g. ; From file MFILES.LISP#> QL.ZMAIL; LAD: (326) (DEFUN CHOOSE-MAIL-FILE-OPTIONS (ZMAIL-BUFFER &AUX OLD-FLAVOR OLD-APP END-P PATHNAME FLAVOR ; From file WINDOW.LISP#> QL.ZMAIL; LAD: (344) (DEFUN SET-MSG-SUMMARY-LINE (MSG STATUS &OPTIONAL LINE &AUX TEMPLATE) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57- 7.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-8.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:ZWEI; Base:8; Patch-File:T -* - ;;; Patch file for ZMail version 57.8 ;;; Reason: ;;; Filter getting window bugs. ;;; Reason: ;;; Stop ZMail from being too clever about the user's init file. ;;; Reason: ;;; Include Personal format now uses @; Long format still uses ``at' ' and is considered ;;; Reason: ;;; obsolete. ;;; Written 28-Jun-85 15:48:10 by RpK, ;;; while running on Boris Badinoff from band 2 ;;; with System 102.152, Local-File 56.9, FILE-Server 13.2, Unix-Inte rface 5.4, MagTape 40.21, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental BURN-IN 2.4, microcode 770, Boris' Working Ba nd. ; From file TOP.LISP#> QL.ZMAIL; LAD: (554) (DEFUN RESET-ZMAIL-USER (&AUX (OLD-FRACT *SUMMARY-WINDOW-FRACTION*)) ; From file FILTER.LISP#> QL.ZMAIL; LAD: (358) (DEFUN GET-FILTER-FUNCTION-1 (MAP-FUNCTION MAP-ARG NAME NEAR-MODE ; From file MAIL.LISP#> QL.ZMAIL; LAD: (311) (DEFUN STRING-FROM-HEADER (HEADER FORMAT &AUX (PLIST (LOCF HEADER)) T EM) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57- 8.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-9.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:ZWEI; Base:8; Patch-File:T -* - ;;; Patch file for ZMail version 57.9 ;;; Reason: Page 43 ;;; Make sure to write out full pathname of other mail files. ;;; Written 2-Jul-85 20:30:49 by RpK, ;;; while running on Natasha Nogoodnik from band 2 ;;; with System 102.154, Local-File 56.9, FILE-Server 13.2, Unix-Inte rface 5.4, MagTape 40.21, ZMail 57.8, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental BURN-IN 2.4, microcode 770, Boris' Working Ba nd. ; From file PROFIL.LISP#> QL.ZMAIL; LAD: (125) (DEFUN EDIT-PROFILE-REMEMBERED-MAIL-FILES (NEAR-MODE) Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57- 9.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57-10.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:ZWEI; Base:8; Patch-File:T -* - ;;; Patch file for ZMail version 57.10 ;;; Reason: ;;; extensions for SMTP, now have default mail mode of :SMTP and :SM TP-MAIL-SERVER-HOSTS. ;;; Written 15-Jul-85 14:46:12 by gjc, ;;; while running on Bedlam from band 3 ;;; with System 102.157, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.4, MagTape 40.22, ZMail 57.9, Tiger 20.6, KERMIT 26.20, MEDI UM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental window -maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental TC P-Kernel 28.11, Experimental TCP-User 55.11, Experimental TCP-Server 32.2, microcode 770, 102.154 TCP. ; From file MAIL.LISP#> QL.ZMAIL; LAD: (313) (DEFINE-SITE-HOST-LIST *MAIL-SMTP-HOSTS* :SMTP-MAIL-SERVER-HOSTS) (DEFUN SMTP-SEND-IT (PLIST INTERVAL TEMPLATE) ; From file DEFS.LISP#> QL.ZMAIL; LAD: (274) (DEFVAR *MAIL-SENDING-MODE-ALIST* Object file for patches is #FS::LM-PATHNAME "LAD: QL.PATCH; ZMAIL-57- 10.QFASL#1" Report on directory of patches: #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX- PATCH-5.DIRECTORY#15" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T - *- ;;; Patch directory for Unix-Interface version 5 ;;; Written 22-Jul-85 14:27:36 by mhd, ;;; while running on Lambda Five A from band 2 ;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, lmi site info. Page 44 Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX-PATCH-5-4.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:UNIX; Base:8; Patch-File:T -* - ;;; Patch file for Unix-Interface version 5.4 ;;; Reason: ;;; Make System-U act nicer when it can't find a unix stream. ;;; Written 30-May-85 16:25:21 by dg, ;;; while running on Boris Badinoff from band 2 ;;; with System 102.139, Local-File 56.7, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.19, ZMail 57.6, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, Official working band for Boris//Natasha -d g. ; From file LAMTTY.LISP#> QL.UNIX; LAD: (51) (defun find-unix-stream (with-login-p) Object file for patches is #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX-PATCH -5-4.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX-PATCH-5-5.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:UNIX; Base:8; Patch-File:T -* - ;;; Patch file for Unix-Interface version 5.5 ;;; Reason: ;;; proper buffer wrapping for lamtty serial streams ;;; Written 22-Jul-85 12:19:36 by pace, ;;; while running on Lambda Five B from band 2 ;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, lmi site info. ; From file LAMTTY.LISP#> QL.UNIX; LAD: (53) (defmethod (unix-stream :space-available) () (defmethod (unix-stream :new-output-buffer) () Object file for patches is #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX-PATCH -5-5.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX-PATCH-5-6.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:UNIX; Base:8; Patch-File:T -* - ;;; Patch file for Unix-Interface version 5.6 ;;; Reason: ;;; Make :after :describe format numbers with ~S so numbers print ou t same as in ;;; Reason: ;;; the primary :describe method. (-mhd) ;;; Written 22-Jul-85 14:25:25 by mhd, Page 45 ;;; while running on Lambda Five A from band 2 ;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, lmi site info. ; From file LAMTTY.LISP#> QL.UNIX; LAD: (54) (defmethod (unix-stream :after :describe) () Object file for patches is #FS::LM-PATHNAME "LAD: QL.UNIX; UNIX-PATCH -5-6.QFASL#1" Report on directory of patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56 .DIRECTORY#37" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T - *- ;;; Patch directory for Local-File version 56 ;;; Written 27-Feb-86 08:47:37 by mhd, ;;; while running on Lambda Five from band 3 ;;; with System 102.180, Local-File 56.13, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.12, TCP-User 57.12, TCP-Ser ver 33.5, microcode 783, 2.0 LMI Site AI-BASE Load. Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-7.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:10; Patch-F ile:T -*- ;;; Patch file for Local-File version 56.7 ;;; Reason: ;;; :estimated-length option, needed by FTP server ;;; Written 22-May-85 21:27:36 by gjc, ;;; while running on Lambda Six from band 2 ;;; with System 102.135, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.19, ZMail 57.6, Tiger 20.5, KERMIT 26.18, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.0, Experimental TCP-Server 32.0, microcode 768, Official working band fo r Boris//Natasha -dg. ; From file FSGUTS.LISP#> QL.FILE; LAD: (383) (DEFUN LMFS-OPEN-FILE (PATHNAME DIRECTORY NAME TYPE VERSION Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-7.QF ASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-8.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:10; Patch-F ile:T -*- ;;; Patch file for Local-File version 56.8 ;;; Reason: ;;; required patch in order to run with two disk units Page 46 ;;; Written 6-Jun-85 15:00:32 by GJC, ;;; while running on Lambda Six from band 2 ;;; with System 102.143, Local-File 56.7, FILE-Server 13.2, Unix-Inte rface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.5, Experimental TCP-Server 32.2, microcode 768, Official working band fo r Boris//Natasha -dg. ; From file FSGUTS.LISP#> QL.FILE; LAD: (385) (DEFUN FIND-LM-BAND () Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-8.QF ASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-9.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:10; Patch-F ile:T -*- ;;; Patch file for Local-File version 56.9 ;;; Reason: ;;; dual disk fix ;;; Written 6-Jun-85 18:45:03 by SARAH, ;;; while running on Huh ? [No Chaos Address] from band 1 ;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768. ; From file FSGUTS.LISP#> QL.FILE; LAD: (385) (DEFUN FIND-LM-BAND () Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-9.QF ASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-10.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:10; Patch-F ile:T -*- ;;; Patch file for Local-File version 56.10 ;;; Reason: ;;; Add :NOT-BACKED-UP option to LMFS-DIRECTORY-LIST to filter out f iles ;;; Reason: ;;; that have been backed up, when desirable. The test is put ;;; Reason: ;;; to eliminate unnecessary consing of pathnames. ;;; Written 3-Jul-85 20:30:28 by dg, ;;; while running on Boris Badinoff from band 2 ;;; with System 102.145, Local-File 56.9, FILE-Server 13.2, Unix-Inte rface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental BURN-IN 2.4, microcode 770, Boris' Working Ba Page 47 nd. ; From file FSGUTS.LISP#> QL.FILE; LAD: (385) (DEFUN LMFS-DIRECTORY-LIST (PATHNAME HOST DIRECTORY NAME TYPE VERSION OPTIONS Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-10.Q FASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-11.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:10; Patch-F ile:T -*- ;;; Patch file for Local-File version 56.11 ;;; Reason: ;;; More efficient implementation of the last patch. ;;; Written 3-Jul-85 20:36:35 by dg, ;;; while running on Boris Badinoff from band 2 ;;; with System 102.145, Local-File 56.9, FILE-Server 13.2, Unix-Inte rface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental BURN-IN 2.4, microcode 770, Boris' Working Ba nd. ; From file FSGUTS.LISP#> QL.FILE; LAD: (386) (DEFUN LMFS-DIRECTORY-LIST (PATHNAME HOST DIRECTORY NAME TYPE VERSION OPTIONS Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-11.Q FASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-12.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:10; Patch-F ile:T -*- ;;; Patch file for Local-File version 56.12 ;;; Reason: ;;; prevent filesystem death on filenames such as ".FOO" ;;; Written 15-Aug-85 14:25:30 by GJC, ;;; while running on Lambda Six from band 3 ;;; with System 102.159, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental T CP-User 57.0, Experimental TCP-Server 33.0, Experimental Object Lisp 4.0, Experimental vista 2.0, Experimental TCP-Kernel 30.1, Experiment al LM-Prolog 1.0, microcode 772, Education 2x2+ good stuff. ; From file FSGUTS.LISP#> QL.FILE; LAD: (388) (DEFUN DIRECTORY-ENTRY-STRING-CHECK (S) ; From file FSGUTS.LISP#> QL.FILE; LAD: (388) (DEFUN WRITE-DIRECTORY-ENTRY (STREAM FILE) Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-12.Q FASL#1" Page 48 Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-13.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:10; Patch-F ile:T -*- ;;; Patch file for Local-File version 56.13 ;;; Reason: ;;; Raise FS::PUT-MINIMUM-FREE-PAGES to 256 to increase warning time before ;;; Reason: ;;; file system runs out of space. KHS 851218. ;;; Written 18-Dec-85 10:56:50 by mhd, ;;; while running on Lambda Five from band 4 ;;; with System 102.122, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.3, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, microcode 768, 2.0 Process Systems 5/2/85 Fo rk (11/16/85).. ; From file FSDEFS.LISP#> QL.FILE; LAD: (184) (DEFVAR PUT-MINIMUM-FREE-PAGES 256.) Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-13.Q FASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-14.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:10; Patch-F ile:T -*- ;;; Patch file for Local-File version 56.14 ;;; Reason: ;;; Call FS:MAINT-SALVAGE is you have problems with FS:LM-SALVAGE ;;; Written 14-Feb-86 11:44:26 by mrc, ;;; while running on Mary had a little Lambda from band 3 ;;; with System 102.176, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental wind ow-maker 1.0, Experimental ObjectLISP 1.0, Experimental vista 1.0, Ex perimental IRIS 1.0, microcode 768, Last(?) 2.0. ; From file FSGUTS.LISP#> QL.FILE; LAD: (393) (defun maint-salvage (&optional (shutdown t) &aux bad) (defun maint-killable-files (&aux bad-boys truename probed) Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-14.Q FASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-15.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:10; Patch-F ile:T -*- ;;; Patch file for Local-File version 56.15 ;;; Reason: ;;; Add new function (by GJC, mostly), fs:maint-salvage, which Page 49 ;;; Reason: ;;; calls lm-salvage, and then fixes the lossage caused by 2 files ;;; Reason: ;;; in same locations, which is caused, mostly, I believe, by doing ;;; Reason: ;;; deletions from subdirectories. -mhd ;;; Written 19-Feb-86 15:29:56 by JAM, ;;; while running on Lambda Five from band 4 ;;; with System 102.122, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.3, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, microcode 768, 2.0 Process Systems 5/2/85 Fo rk (11/16/85).. ; From file FSGUTS.LISP#> QL.FILE; LAD: (393) (defun maint-salvage (&optional (shutdown nil) query &aux bad) (defun maint-killable-files (&optional query &aux bad-boys truename p robed) (defun maint-delete-and-expunge (&optional filename query &aux pathna me file) Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-15.Q FASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-16.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:10; Patch-F ile:T -*- ;;; Patch file for Local-File version 56.16 ;;; Reason: ;;; Fix bug in maint-salvage that it doesn't write out core file ;;; Reason: ;;; system onto disk at the end, so that all its fixes are lost at ;;; Reason: ;;; each time the file system is booted. -mhd and gjc ;;; Written 27-Feb-86 08:42:08 by mhd, ;;; while running on Lambda Five from band 3 ;;; with System 102.180, Local-File 56.13, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.16, KERMIT 26.25, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.12, TCP-User 57.12, TCP-Ser ver 33.5, microcode 783, 2.0 LMI Site AI-BASE Load. ; From file FSGUTS.LISP#> QL.FILE; LAD: (396) (defun maint-salvage (&optional (shutdown nil) query &aux bad) ; From file FSGUTS.LISP#> QL.FILE; LAD: (396) (defun maint-killable-files (&optional query &aux bad-boys truename p robed) Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; FS-56-16.Q FASL#1" Report on directory of patches: #FS::LM-PATHNAME "LAD: QL.FILE; SERVE R-13.DIRECTORY#11" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T - Page 50 *- ;;; Patch directory for FILE-Server version 13 ;;; Written 5-Jun-85 11:01:41 by GJC, ;;; while running on Lambda Six from band 2 ;;; with System 102.143, Local-File 56.7, FILE-Server 13.1, Unix-Inte rface 5.4, MagTape 40.19, ZMail 57.6, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.3, Experimental TCP-Server 32.2, microcode 768, Official working band fo r Boris//Natasha -dg. Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.FILE; SERVER-13-2.LISP#2" ;;; -*- Mode:Lisp; Readtable:T; Package:FILE-SYSTEM; Base:8; Patch-Fi le:T -*- ;;; Patch file for FILE-Server version 13.2 ;;; Reason: ;;; general fies plus *parse-for-server-device-kludge* ;;; Written 5-Jun-85 10:59:04 by GJC, ;;; while running on Lambda Six from band 2 ;;; with System 102.143, Local-File 56.7, FILE-Server 13.1, Unix-Inte rface 5.4, MagTape 40.19, ZMail 57.6, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.3, Experimental TCP-Server 32.2, microcode 768, Official working band fo r Boris//Natasha -dg. ; From file SERVER.LISP#> QL.FILE; LAD: (163) (defun cv-time (x) (time:print-universal-time (or x 0) nil nil ':mm// dd//yy)) ; From file SERVER.LISP#> QL.FILE; LAD: (163) (defun rfile-server () ; From file SERVER.LISP#> QL.FILE; LAD: (163) (defun open-err (&rest args) ; From file SERVER.LISP#> QL.FILE; LAD: (163) (defvar *lmfs-parse-for-server-device-kludge* nil ; From file SERVER.LISP#> QL.FILE; LAD: (163) (defun lmfs-parse-for-server (string) ; From file SERVER.LISP#> QL.FILE; LAD: (163) (defun file-server-open-for-lispm (fh filename &rest modes Object file for patches is #FS::LM-PATHNAME "LAD: QL.FILE; SERVER-13- 2.QFASL#2" Report on directory of patches: #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTA PE-40.DIRECTORY#49" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T - *- ;;; Patch directory for MagTape version 40 ;;; Written 24-Oct-85 12:07:10 by FileMan, ;;; while running on Aladdin from band 2 Page 51 ;;; with System 102.171, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.10, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, Experimental Mailer 1.2, microcode 768, 2 .0 Process Systems 5/2/85 Fork.. Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-17.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for MagTape version 40.17 ;;; Reason: ;;; COPY-DIRECTORY isn't so stupid about the destination anymore. ;;; Written 30-Apr-85 22:13:15 by RpK, ;;; while running on Lambda Six from band 3 ;;; with System 102.122, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.3, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, DOE-Macsyma 9.9, Macsyma-Help-Database 1.1, Experimental NewDraw 15.2, microcode 762. ; From file COPY.LISP#> QL.TAPE; LAM3: (150) (DEFUN COPY-DIRECTORY (DIR TO &OPTIONAL &REST OPTIONS Object file for patches is #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40 -17.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-18.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for MagTape version 40.18 ;;; Reason: ;;; TOPS20:RESTORE-TAPE now takes :TRANSFORM argument (like FS:RESTO RE-MAGTAPE). ;;; Written 8-May-85 17:33:20 by FileMan, ;;; while running on Lambda Three from band 1 ;;; with System 102.118, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, Experimental MICRO-COMPILATION-TOOLS 4.0, Ex perimental Mailer 1.2, Experimental Backup/Restore Facility 1.3, micr ocode 762, Education 2x2+ 102.92 16m Idle Ucomp. ; From file TOPS20.LISP#> QL.TAPE; LAM3: (11) (defvar *transform* nil) (defun open-file-from-tops20-spec (x &aux p1 p2 stream ans) ; From file TOPS20.LISP#> QL.TAPE; LAM3: (11) (defun restore-tape (&optional &key Object file for patches is #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40 -18.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-19.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* Page 52 - ;;; Patch file for MagTape version 40.19 ;;; Reason: ;;; Yet another bug in COPY-DIRECTORY... ;;; Written 8-May-85 18:02:52 by FileMan, ;;; while running on Lambda Three from band 1 ;;; with System 102.129, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.18, ZMail 57.3, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, Experimental MICRO-COMPILATION-TOOLS 4.0, Ex perimental Mailer 1.2, Experimental Backup/Restore Facility 1.3, micr ocode 762, Education 2x2+ 102.92 16m Idle Ucomp. ; From file COPY.LISP#> QL.TAPE; LAM3: (150) (DEFUN COPY-DIRECTORY (DIR TO &OPTIONAL &REST OPTIONS Object file for patches is #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40 -19.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-20.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for MagTape version 40.20 ;;; Reason: ;;; Add FS:*DEFAULT-DENSITY* global variable and substitiute this in ;;; Reason: ;;; various functions' lambda lists for the default density. ;;; Written 19-Jun-85 18:31:21 by dg, ;;; while running on Boris Badinoff from band 2 ;;; with System 102.145, Local-File 56.9, FILE-Server 13.2, Unix-Inte rface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental BURN-IN 2.4, microcode 770, Boris' Working Ba nd. ; From file MTDEFS.LISP#> QL.TAPE; LAD: (52) (DEFVAR *DEFAULT-DENSITY* 0 ; From file TMSTR.LISP#> QL.TAPE; LAD: (14) (DEFFLAVOR TM-MIXIN ; From file MTSTR.LISP#> QL.TAPE; LAD: (125) (DEFFLAVOR MT-MIXIN ; From file MTSTR.LISP#> QL.TAPE; LAD: (125) (DEFUN MAKE-MT-STREAM (&OPTIONAL &KEY (DIRECTION :INPUT) (BYTE-SIZE 8 ) (CHARACTERS T) ; From file MTSTR.LISP#> QL.TAPE; LAD: (125) (DEFUN MAKE-MT-FILE-STREAM (&OPTIONAL ; From file MTDEFS.LISP#> QL.TAPE; LAD: (52) (DEFUN MT-RUN (RQB COMMAND Object file for patches is #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40 -20.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TAPE; Page 53 MAGTAPE-40-21.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for MagTape version 40.21 ;;; Reason: ;;; :version :newest OK in tape property lists ;;; Written 22-Jun-85 14:25:30 by scott, ;;; while running on Lambda Twelve from band 1 ;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental NewDraw 21.4, microcode 768. ; From file MTSTR.LISP#> QL.TAPE; LAD: (126) (defconst tape-file-property-type-plist Object file for patches is #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40 -21.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-22.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for MagTape version 40.22 ;;; Reason: ;;; Fix DETERMINE-COPY-DESTINATION to find "MT:" sooner, to avoid ;;; Reason: ;;; losing SI:PARSE-HOST lookups to host table server (lam3). ;;; Written 9-Jul-85 20:30:05 by dg, ;;; while running on Boris Badinoff from band 2 ;;; with System 102.145, Local-File 56.9, FILE-Server 13.2, Unix-Inte rface 5.4, MagTape 40.19, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental BURN-IN 2.4, microcode 770, Boris' Working Ba nd. ; From file COPY.LISP#> QL.TAPE; LAD: (151) (DEFUN DETERMINE-COPY-DESTINATION (TO TRUENAME QFASLP INSTREAM) Object file for patches is #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40 -22.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40-23.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for MagTape version 40.23 ;;; Reason: ;;; Fix PRINLENGTH lossage for tape file plists. -dg ;;; Written 24-Oct-85 12:06:13 by FileMan, ;;; while running on Aladdin from band 2 ;;; with System 102.171, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.10, KERMIT 26.21, ME Page 54 DIUM-RESOLUTION-COLOR 17.4, Experimental Mailer 1.2, microcode 768, 2 .0 Process Systems 5/2/85 Fork.. ; From file MTSTR.LISP#> QL.TAPE; LAD: (127) (DEFUN WRITE-MAGTAPE-HEADER (STREAM PLIST &OPTIONAL (STYLE :MIT)) Object file for patches is #FS::LM-PATHNAME "LAD: QL.TAPE; MAGTAPE-40 -23.QFASL#1" Report on directory of patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGE R-20.DIRECTORY#48" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T - *- ;;; Patch directory for Tiger version 20 ;;; Written 17-Jan-86 22:47:35 by mhd, ;;; while running on Lambda Ten from band 2 ;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, LMI Site. Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-6.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for Tiger version 20.6 ;;; Reason: ;;; fix filename default merging problems with respect to tiger-queu e directory ;;; Written 28-May-85 15:46:35 by GJC, ;;; while running on Lambda Six from band 2 ;;; with System 102.135, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.19, ZMail 57.6, Tiger 20.5, KERMIT 26.18, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental TCP-Kernel 28.1, Experimental TCP-User 55.0, Experimental TCP-Server 32.0, microcode 768, Official working band fo r Boris//Natasha -dg. ; From file USER.LISP#> QL.TIGER; LAD: (73) (defun make-tiger-queue-directory-filename (host name type) ; From file SERVER.LISP#> QL.TIGER; LAD: (190) (defun tiger-array-entry-1 (array sender user always-spool-p &rest op tions &optional &key ; From file USER.LISP#> QL.TIGER; LAD: (73) (defun-with-arglist tiger-stream tiger-stream-arglist (stream &rest o ptions &aux file) ; From file USER.LISP#> QL.TIGER; LAD: (73) (defun-with-arglist tiger-array tiger-array-arglist (entry &rest opti ons &optional &key ; From file ARRAY-METHODS.LISP#> QL.TIGER; LAD: (25) (defun array-to-file-interface (printer array left top right bottom & rest options) Page 55 ; From file ARRAY-METHODS.LISP#> QL.TIGER; LAD: (25) (defun array-to-tape-interface (printer array left top right bottom & rest options) Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20- 6.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-7.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for Tiger version 20.7 ;;; Reason: ;;; Make HP Landscape work. ;;; Written 16-Aug-85 13:40:34 by BED, ;;; while running on McGuffey from band 1 ;;; with System 102.162, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.6, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, TCP-Kernel 30. 4, TCP-User 57.2, TCP-Server 33.0, Experimental LMI Laser Printer II 11.2, Experimental Object Lisp 4.0, Experimental vista 2.0, microcode 773, Education Division 2x2+. ; From file LASER1.LISP#> QL.TIGER; LAD: (3) (defmethod (laser1-stream :bitblt) (width height array x y &aux left- bit right-bit) (defun column-bit-search (array1 y1 x1 count1) (defun column-reverse-bit-search (array y x count) Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20- 7.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-8.LISP#3" ;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*- ;;; Patch file for Tiger version 20.8 ;;; Reason: ;;; Make landscape graphics and text work. ;;; Written 3-Sep-85 15:38:24 by JMTurn, ;;; while running on McGuffey from band 1 ;;; with System 102.164, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.7, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, TCP-Kernel 30. 5, TCP-User 57.2, TCP-Server 33.0, Experimental LMI Laser Printer II 11.2, Experimental Object Lisp 4.0, Experimental vista 2.0, microcode 773, Education Division 2x2+. ; From file LASER1.LISP#> QL.TIGER; LAD: (4) (defmethod (laser1-stream :set-up-for-graphics) (r) ; From file LASER1.LISP#> QL.TIGER; LAD: (4) Page 56 (defmethod (laser1-stream :setup-normal) () Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20- 8.QFASL#3" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-9.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for Tiger version 20.9 ;;; Reason: ;;; DEFVAR needed variable ;;; Written by khh, ;;; while running on Natasha Nogoodnik from band 1 ;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 778, LMI Site--mrc 9/12/85. ; From file LASER1.LISP#> QL.TIGER; LAD: (6) (defvar *laser1-orientation* :PORTRAIT) Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20- 9.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-10.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for Tiger version 20.10 ;;; Reason: ;;; Fencepost Error in bitblt ;;; Written 23-Oct-85 10:04:59 by JMTurn, ;;; while running on Mary had a little Lambda from band 4 ;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.9, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental MICRO-COMPILATION-TOOLS 4.0, Experimental Obj ectLISP 1.0, Experimental vista 1.0, Experimental IRIS 1.0, microcode 768. ; From file LASER1.LISP#> QL.TIGER; LAD: (7) (defmethod (laser1-stream :bitblt) (width height array x y &aux left- bit right-bit) Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20- 10.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-11.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for Tiger version 20.11 ;;; Reason: Page 57 ;;; Catch errors usually related to fancy code for lispm chars that never was tested or ;;; Reason: ;;; worked probably. These errors seem trivial compared to not getti ng any hardcopy. ;;; Reason: ;;; (Specifically, methods (toshiba-p1451-stream :download-font) and ;;; Reason: ;;; (basic-printer-stream-mixin :tyo) were hacked.) ;;; Reason: ;;; -mhd ;;; Written 21-Nov-85 16:45:32 by mhd, ;;; while running on Lambda Ten from band 2 ;;; with System 102.154, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.4, MagTape 40.21, ZMail 57.9, Tiger 20.6, KERMIT 26.20, MEDI UM-RESOLUTION-COLOR 17.4, microcode 768, 2.0 Process Systems 5/2/85 F ork.. ; From file STREAM.LISP#> QL.TIGER; LAD: (46) (defmethod (basic-printer-stream-mixin :tyo) (char) ; From file TOSHIBA.LISP#> QL.TIGER; LAD: (125) (defmethod (toshiba-p1351-stream :download-font) Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20- 11.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-12.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for Tiger version 20.12 ;;; Reason: ;;; Disable more processing by default in tiger operator window, and fix it so :kill'ing ;;; Reason: ;;; a window doesn't keep you from getting another one when you star t tiger again. ;;; Reason: ;;; -mhd ;;; Written 21-Nov-85 19:01:19 by mhd, ;;; while running on Lambda Ten from band 2 ;;; with System 102.154, Local-File 56.11, FILE-Server 13.2, Unix-Int erface 5.4, MagTape 40.21, ZMail 57.9, Tiger 20.6, KERMIT 26.20, MEDI UM-RESOLUTION-COLOR 17.4, microcode 768, 2.0 Process Systems 5/2/85 F ork.. ; From file USER.LISP#> QL.TIGER; LAD: (74) (defflavor tiger-operator-window (defmethod (tiger-operator-window :after :kill) (&rest ignore) Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20- 12.QFASL#1" Page 58 Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-13.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for Tiger version 20.13 ;;; Reason: ;;; Don't expose or select tiger-operator-window when created for th e first time, and ;;; Reason: ;;; don't notify when tiger process started for the first time, but still manage to ;;; Reason: ;;; have the tiger operator window created, output to, and selectabl e. --mhd ;;; Written 16-Jan-86 16:58:25 by mhd, ;;; while running on Lambda Ten from band 2 ;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, LMI Site. ; From file USER.LISP#> QL.TIGER; LAD: (75) (defun make-tiger-operator-window (&aux w) (defun start-tiger () (defun kill-tiger-operator-window () Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20- 13.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-14.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for Tiger version 20.14 ;;; Reason: ;;; (Cleanup last fix) ;;; Written 17-Jan-86 19:45:08 by mhd, ;;; while running on Lambda Five from band 4 ;;; with System 102.122, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.3, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, microcode 768, 2.0 Process Systems 5/2/85 Fo rk (11/16/85).. ; From file USER.LISP#> QL.TIGER; LAD: (76) (defun make-tiger-operator-window (&aux w) Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20- 14.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-15.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - Page 59 ;;; Patch file for Tiger version 20.15 ;;; Reason: ;;; Supplement to last two patches ;;; Written 17-Jan-86 20:04:38 by mhd, ;;; while running on Lambda Five from band 4 ;;; with System 102.122, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.3, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, microcode 768, 2.0 Process Systems 5/2/85 Fo rk (11/16/85).. ; From file USER.LISP#> QL.TIGER; LAD: (78) (defun tiger-operator-process-toplevel (window) Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20- 15.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20-16.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for Tiger version 20.16 ;;; Reason: ;;; an addition to the previous three patches ;;; Written 17-Jan-86 22:46:01 by mhd, ;;; while running on Lambda Ten from band 2 ;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, LMI Site. ; From file USER.LISP#> QL.TIGER; LAD: (79) (defun make-tiger-operator-window (&aux w) Object file for patches is #FS::LM-PATHNAME "LAD: QL.TIGER; TIGER-20- 16.QFASL#1" Report on directory of patches: #FS::LM-PATHNAME "LAD: QL.KERMIT; KER MIT-26.PATCH-DIRECTORY#55" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T - *- ;;; Patch directory for KERMIT version 26 ;;; Written 2-Dec-85 09:09:05 by GJC, ;;; while running on Lambda Six from band 1 ;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.24, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.6, TCP-User 57.10, TCP-Serv er 33.3, microcode 778, 2.0 Process Systems 5/2/85 Fork.. Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.KERMIT ; KERMIT-26-16.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for KERMIT version 26.16 Page 60 ;;; Reason: ;;; Change to DUAL-CONNECT to make the tcp:telnet-h19 work a little better. ;;; Written 3-May-85 16:15:21 by MWT, ;;; while running on Lambda Six from band 3 ;;; with System 102.110, Local-File 56.4, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, DOE-Macsyma 9.9, Macsyma-Help-Database 1.1, Experimental NewDraw 15.2, Experimental TCP-Kernel 23.0, Experimental TCP-User 42.0, Experimental TCP-Server 19.0, microcode 768. ; From file TERM.LISP#> QL.KERMIT; LAM3: (32) (defun dual-connect (*serial-stream* *terminal* state ; From file TERM.LISP#> QL.KERMIT; LAM3: (32) (defun network-keystroke-handler () Object file for patches is #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-2 6-16.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.KERMIT ; KERMIT-26-17.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for KERMIT version 26.17 ;;; Reason: ;;; Added NETWORK-W to toggle window-scrolling mode. ;;; Reason: ;;; Put in some hooks to improve tcp:telnet-h19 ;;; Written 10-May-85 17:24:16 by MWT, ;;; while running on Dale from band 4 ;;; with System 102.118, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.16, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental TCP-Kernel 23.3, Experimental TCP-User 44.1, Experimental TCP-Server 22.0, microcode 768. ; From file TERM.LISP#> QL.KERMIT; LAD: (33) (defconst *wrap-around-instead-of-scrolling-flag* nil) ; From file TERM.LISP#> QL.KERMIT; LAD: (33) (DEFSUBST TERMINAL-END-OF-PAGE-EXCEPTION () ; From file TERM.LISP#> QL.KERMIT; LAD: (33) (DEFSUBST TERMINAL-CR () ; From file TERM.LISP#> QL.KERMIT; LAD: (33) (DEFSUBST TERMINAL-LINEFEED () ; From file TERM.LISP#> QL.KERMIT; LAD: (33) (defvar *auto-clear-eol-on-linefeed-flag* nil); only used by tcp:teln et-h19 - mwt ; From file TERM.LISP#> QL.KERMIT; LAD: (33) (defvar *snarf-telnet-negotiations* nil); ditto ; From file TERM.LISP#> QL.KERMIT; LAD: (33) (DEFUN READ-CHAR-FROM-SERIAL-STREAM-TO-TERMINAL () ; From file TERM.LISP#> QL.KERMIT; LAD: (33) Page 61 (defun network-keystroke-handler-internal () ; From file TERM.LISP#> QL.KERMIT; LAD: (33) (DEFUN TERMINAL-NETWORK-HELP () ; From file TERM.LISP#> QL.KERMIT; LAD: (33) (defvar *notify-when-eof-is-read* nil) ; From file TERM.LISP#> QL.KERMIT; LAD: (33) (defun dual-connect (*serial-stream* *terminal* state Object file for patches is #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-2 6-17.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.KERMIT ; KERMIT-26-18.LISP#2" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for KERMIT version 26.18 ;;; Reason: ;;; fixes for telnet support ;;; Reason: ;;; Yet another patch to DUAL-CONNECT to make TCP:TELNET-H19 be a li ttle prettier ;;; Written 10-May-85 20:26:34 by MWT, ;;; while running on Dale from band 4 ;;; with System 102.118, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.17, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental TCP-Kernel 23.3, Experimental TCP-User 44.1, microcode 768. ; From file TERM.LISP#> QL.KERMIT; LAD: (36) (defvar *serial-stream-mask* #o177) ; From file TERM.LISP#> QL.KERMIT; LAD: (36) (defsubst serial-tyi () ; From file TERM.LISP#> QL.KERMIT; LAD: (36) (DEFUN READ-CHAR-FROM-SERIAL-STREAM-TO-TERMINAL () ; From file TERM.LISP#> QL.KERMIT; LAD: (36) (defvar *notify-when-eof-is-read* nil) ; From file TERM.LISP#> QL.KERMIT; LAD: (36) (defflavor kterm-state ; From file TERM.LISP#> QL.KERMIT; LAD: (36) (defun dual-connect (*serial-stream* *terminal* state ; From file TERM.LISP#> QL.KERMIT; LAD: (36) (DEF-TERMINAL-ESCAPE #/[ T TERMINAL-EAT-TEMP; this may be wrong ; From file TERM.LISP#> QL.KERMIT; LAD: (36) (DEF-TERMINAL-ESCAPE #\x T TERMINAL-SET-MODE ; From file TERM.LISP#> QL.KERMIT; LAD: (36) (DEF-TERMINAL-ESCAPE #\y T TERMINAL-RESET-MODE ; From file TERM.LISP#> QL.KERMIT; LAD: (36) (DEF-TERMINAL-ESCAPE #\Y T TERMINAL-SET-POS ; From file TERM.LISP#> QL.KERMIT; LAD: (36) (DEFSUBST ESCAPE-DISPATCH () Page 62 Object file for patches is #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-2 6-18.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.KERMIT ; KERMIT-26-19.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for KERMIT version 26.19 ;;; Reason: ;;; Fix non-scrolling mode in terminal-emulator. ;;; Reason: ;;; Make Lisp Machine characters (< #\space) print out instead of ju st being ;;; Reason: ;;; eaten. (Or should this be yet another mode...?) ;;; Written 23-May-85 00:19:28 by mhd, ;;; while running on Lambda Five B from band 2 ;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.18, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, lmi site info. ; From file TERM.LISP#> QL.KERMIT; LAD: (36) (DEFSUBST TERMINAL-END-OF-PAGE-EXCEPTION () ; From file TERM.LISP#> QL.KERMIT; LAD: (36) (DEFSUBST TERMINAL-CR () ; From file TERM.LISP#> QL.KERMIT; LAD: (36) (DEFSUBST TERMINAL-LINEFEED () ; From file TERM.LISP#> QL.KERMIT; LAD: (36) (DEFUN READ-CHAR-FROM-SERIAL-STREAM-TO-TERMINAL () Object file for patches is #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-2 6-19.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.KERMIT ; KERMIT-26-20.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for KERMIT version 26.20 ;;; Reason: ;;; fix lispm -> ascii mapping for line breaks in file xfer. ;;; Written 23-May-85 10:41:16 by mhd, ;;; while running on Lambda Five B from band 2 ;;; with System 102.117, Local-File 56.6, FILE-Server 13.1, Unix-Inte rface 5.3, MagTape 40.16, ZMail 57.2, Tiger 20.5, KERMIT 26.15, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, microcode 768, lmi site info. ; From file PROTO.LISP#> QL.KERMIT; LAD: (32) (defun bufill (buffer) Object file for patches is #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-2 6-20.QFASL#1" Page 63 Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.KERMIT ; KERMIT-26-21.LISP#2" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for KERMIT version 26.21 ;;; Reason: ;;; T now turns on Tektronics 4010 emulation. ;;; Written 21-Oct-85 07:42:41 by hel, ;;; while running on Lambda Six from band 3 ;;; with System 102.169, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.22, ZMail 57.10, Tiger 20.8, KERMIT 26.20, MED IUM-RESOLUTION-COLOR 17.4, Experimental Sited 1.0, Experimental windo w-maker 1.0, TCP-Kernel 30.5, TCP-User 57.2, TCP-Server 33.0, DOE-Mac syma 9.15, Macsyma-Help-Database 1.1, microcode 768. ; From file TERM.LISP#> QL.KERMIT; LAD: (49) (DEFVAR *TEK-EMULATIONP* NIL) (DEFCONST *TEK-PAD* #o26); control-V (DEFCONST *TEK-GRAPHMODE* #o35) (DEFCONST *TEK-PRINTMODE* #o37) (defvar *tek-in-graphics-mode* nil) (defvar *tek-firstp* t) (DEFUN READ-CHAR-FROM-SERIAL-STREAM-TO-TERMINAL () ; From file TERM.LISP#> QL.KERMIT; LAD: (49) (defun network-keystroke-handler-internal () ; From file TERM.LISP#> QL.KERMIT; LAD: (49) (DEFUN TERMINAL-NETWORK-HELP () ; From file TERM.LISP#> QL.KERMIT; LAD: (49) (defun terminal-show-status-of-connection () ; From file TERM.LISP#> QL.KERMIT; LAD: (49) (defun toggle-tek-emulation () ; From file TERM.LISP#> QL.KERMIT; LAD: (49) (defflavor kterm-state ; From file TERM.LISP#> QL.KERMIT; LAD: (49) (defvar *tek-hi-y* 0) (defvar *tek-low-y* 0) (defvar *tek-exlow-yx* 0) (defvar *tek-hi-x* 0) (defvar *tek-low-x* 0) (defvar *tek-x* 0) (defvar *tek-y* 0) (DEFVAR *TEK-MIN-X* 0) (DEFVAR *TEK-MAX-X* 1023) (DEFVAR *TEK-MIN-Y* 0) (DEFVAR *TEK-MAX-Y* 779) (defvar *screen-x-utilization* 0.90 "the fraction of screen size in X utilized") (defvar *screen-y-utilization* 0.90 "the fraction of screen size in Y utilized") Page 64 (defvar *TEK-move-cursorp* t "If T then :SET-CURSORPOS is done to fol low MOVE and DRAW") (defvar *tek-12bit-mode* nil) (defmacro tek-hi-bitz-p (c); for decoding Tek codes (defmacro tek-low-y-bitz-p (c) (defmacro tek-low-x-bitz-p (c) (DEFUN TEK-RESET-MEMORY () (defun get-tek-vector () (defun TEK-move (x y) (DEFUN TEK-DRAW (X Y) (DEFUN LINEAR-MAP (X X0 X1 Y0 Y1) (DEFUN NICE-EDGES (&AUX (X0 0) (Y0 0)) (DEFUN TDRAWLINE (FROM-X FROM-Y TO-X TO-Y) (defun tmovecursor (to-x to-y) Object file for patches is #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-2 6-21.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.KERMIT ; KERMIT-26-22.LISP#2" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for KERMIT version 26.22 ;;; Reason: ;;; SET-BAUD-RATE choice of EXTENDED gives menu to choose Char Lengt h, Parity, etc. ;;; Written 23-Nov-85 16:13:05 by GJC, ;;; while running on Lambda Six from band 1 ;;; with System 102.174, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Serve r 33.1, microcode 778, 2.0 Process Systems 5/2/85 Fork.. ; From file WINDOW.LISP#> QL.KERMIT; LAD: (67) (defconst all-baud-choices-items-alist ; From file WINDOW.LISP#> QL.KERMIT; LAD: (67) (defun set-baud-rate () ; From file WINDOW.LISP#> QL.KERMIT; LAD: (67) (defun extended-set-baud-rate () Object file for patches is #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-2 6-22.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.KERMIT ; KERMIT-26-23.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for KERMIT version 26.23 ;;; Reason: ;;; In review-parameters new serial-stream setting TCP TELNET. ;;; Written 25-Nov-85 16:41:25 by GJC, ;;; while running on Lambda Six from band 1 Page 65 ;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Serve r 33.1, microcode 778, 2.0 Process Systems 5/2/85 Fork.. ; From file TERM.LISP#> QL.KERMIT; LAD: (51) (defun process-wait-listen (&rest streams) ; From file TERM.LISP#> QL.KERMIT; LAD: (51) (defun connect (*serial-stream* *terminal* ; From file TERM.LISP#> QL.KERMIT; LAD: (51) (defun read-char-from-keyboard-to-serial-stream () ; From file CALLS.LISP#> QL.KERMIT; LAD: (40) (defmethod (kstate :set-params) () ; From file CALLS.LISP#> QL.KERMIT; LAD: (40) (defun open-tcp-telnet-serial-stream () Object file for patches is #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-2 6-23.QFASL#1" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.KERMIT ; KERMIT-26-24.LISP#2" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for KERMIT version 26.24 ;;; Reason: ;;; receive telnet negotiations, although not acting on them yet. ;;; Written 26-Nov-85 17:39:21 by GJC, ;;; while running on Lambda Six from band 1 ;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.21, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.5, TCP-User 57.8, TCP-Serve r 33.1, microcode 778, 2.0 Process Systems 5/2/85 Fork.. ; From file TERM.LISP#> QL.KERMIT; LAD: (54) (DEFUN READ-CHAR-FROM-SERIAL-STREAM-TO-TERMINAL () ; From file TERM.LISP#> QL.KERMIT; LAD: (54) (defun enable-telnet-iac () (defvar *telsyms* (defvar *telopts* (defun get-symbol (number table) (defun handle-telnet-iac (&aux c sym explain) (defun (dont telnet-command) () (defun (do telnet-command) () (defun (wont telnet-command) () (defun (will telnet-command) () (defun (sb telnet-command) () (defun (ga telnet-command) () (defun (el telnet-command) () (defun (ec telnet-command) () (defun (ayt telnet-command) () (defun (ao telnet-command) () (defun (ip telnet-command) () Page 66 (defun (break telnet-command) () (defun (dm telnet-command) () (defun (nop telnet-command) () (defun (synch telnet-command) () (defun (se telnet-command) () (defun telnet-command (what &aux c sym explain) (defun (telopt_binary telnet-option) (how) (defun (telopt_echo telnet-option) (how) (defun (TELOPT_RCP telnet-option) (how) (defun (TELOPT_SGA telnet-option) (how) (defun (TELOPT_NAMS telnet-option) (how) (defun (TELOPT_STATUS telnet-option) (how) (defun (TELOPT_TM telnet-option) (how) (defun (TELOPT_RCTE telnet-option) (how) (defun (TELOPT_NAOL telnet-option) (how) (defun (TELOPT_NAOP telnet-option) (how) (defun (TELOPT_NAOCRD telnet-option) (how) (defun (TELOPT_NAOHTS telnet-option) (how) (defun (TELOPT_NAOHTD telnet-option) (how) (defun (TELOPT_NAOFFD telnet-option) (how) (defun (TELOPT_NAOVTS telnet-option) (how) (defun (TELOPT_NAOVTD telnet-option) (how) (defun (TELOPT_NAOLFD telnet-option) (how) (defun (TELOPT_XASCII telnet-option) (how) (defun (TELOPT_LOGOUT telnet-option) (how) (defun (TELOPT_BM telnet-option) (how) (defun (TELOPT_DET telnet-option) (how) (defun (TELOPT_SUPDUP telnet-option) (how) (defun (TELOPT_EXOPL telnet-option) (how) ; From file CALLS.LISP#> QL.KERMIT; LAD: (43) (defun open-tcp-telnet-serial-stream () Object file for patches is #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-2 6-24.QFASL#2" Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.KERMIT ; KERMIT-26-25.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -* - ;;; Patch file for KERMIT version 26.25 ;;; Reason: ;;; with this you can actually run KERMIT via TCP TELNET at reasonab le performance. ;;; Written 2-Dec-85 09:07:46 by GJC, ;;; while running on Lambda Six from band 1 ;;; with System 102.173, Local-File 56.12, FILE-Server 13.2, Unix-Int erface 5.6, MagTape 40.23, ZMail 57.10, Tiger 20.12, KERMIT 26.24, ME DIUM-RESOLUTION-COLOR 17.4, TCP-Kernel 30.6, TCP-User 57.10, TCP-Serv er 33.3, microcode 778, 2.0 Process Systems 5/2/85 Fork.. ; From file CALLS.LISP#> QL.KERMIT; LAD: (46) Page 67 (defun open-tcp-telnet-serial-stream (&optional auto-force-output) Object file for patches is #FS::LM-PATHNAME "LAD: QL.KERMIT; KERMIT-2 6-25.QFASL#1" Report on directory of patches: #FS::LM-PATHNAME "LAD: QL.VIDEO-DEVIC E; MRC-PATCH-17.DIRECTORY#11" ;;; -*- Mode:LISP; Package:USER; Base:10; Readtable:T; Patch-File:T - *- ;;; Patch directory for MEDIUM-RESOLUTION-COLOR version 17 ;;; Written 26-Jun-85 10:19:09 by mpg, ;;; while running on Waiting for Godot from band 2 ;;; with System 102.149, Local-File 56.9, FILE-Server 13.2, Unix-Inte rface 5.4, MagTape 40.21, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental Object Lisp 2.0, Experimental vista 1.0, Expe rimental IRIS 1.0, microcode 770. Report on source containing patches: #FS::LM-PATHNAME "LAD: QL.VIDEO- DEVICE; MRC-PATCH-17-4.LISP#1" ;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:10; Patch-File:T - *- ;;; Patch file for MEDIUM-RESOLUTION-COLOR version 17.4 ;;; Reason: ;;; Reverses array subscripts for 2.0 compatibility. ;;; Written 26-Jun-85 09:55:20 by mpg, ;;; while running on Waiting for Godot from band 2 ;;; with System 102.149, Local-File 56.9, FILE-Server 13.2, Unix-Inte rface 5.4, MagTape 40.21, ZMail 57.7, Tiger 20.6, KERMIT 26.20, MEDIU M-RESOLUTION-COLOR 17.3, Experimental Sited 1.0, Experimental window- maker 1.0, Experimental Object Lisp 2.0, Experimental vista 1.0, Expe rimental IRIS 1.0, microcode 770. ; From file COLOR.LISP#> QL.VIDEO-DEVICE; LAD: (10) (DEFUN %COLOR-DRAW-CHAR (FONT CHAR X Y COLOR DEVICE) ; From file COLOR.LISP#> QL.VIDEO-DEVICE; LAD: (10) (DEFUN PUT-UP-PICT (&OPTIONAL (PICT :10LEAF) Object file for patches is #FS::LM-PATHNAME "LAD: QL.VIDEO-DEVICE; MR C-PATCH-17-4.QFASL#1" The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#769 describes a change to the hardware microcode: LMI Lambda microcode version 769 Produced by "rg", 6/03/85 00:30:28 Has fix to hexa-dec aging bug. The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#770 describes a change to the hardware microcode: LMI Lambda microcode version 770 Page 68 Produced by "GJC", 6/05/85 15:34:57 fix mouse tracking during user disk op bug The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#771 describes a change to the hardware microcode: LMI Lambda microcode version 771 Produced by "rg", 6/28/85 12:23:55 Fix to %blt-boole. The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#772 describes a change to the hardware microcode: LMI Lambda microcode version 772 Produced by "khs", 7/11/85 15:58:15 %multibus-write-16 didn't pop stack properly. The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#773 describes a change to the hardware microcode: LMI Lambda microcode version 773 Produced by "pace", 8/02/85 12:59:17 ricks change for 3d arrays The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#774 describes a change to the hardware microcode: LMI Lambda microcode version 774 Produced by "pace", 8/08/85 09:49:41 quad interrupts The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#775 describes a change to the hardware microcode: LMI Lambda microcode version 775 Produced by "pace", 8/08/85 14:31:50 quad interrupts The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#776 describes a change to the hardware microcode: LMI Lambda microcode version 776 Produced by "pace", 8/08/85 17:18:45 Page 69 first titn code The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#777 describes a change to the hardware microcode: LMI Lambda microcode version 777 Produced by "YOUCEF", 8/09/85 11:01:20 titn ucode fixes The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#778 describes a change to the hardware microcode: LMI Lambda microcode version 778 Produced by "pace", 9/02/85 09:30:23 remove %draw-triange to make room for titn code The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#782 describes a change to the hardware microcode: LMI Lambda microcode version 782 Produced by "rg", 11/22/86 18:31:14 Fix to %store-conditional-double. The file LAD: QL.UBIN; ULAMBDA.LMC-LOCS#783 describes a change to the hardware microcode: LMI Lambda microcode version 783 Produced by "GJC", 1/06/86 19:28:56 use 8 bit operations instead of 32 bit (nubus) on SDU registers for s erial devices. A list of all files modified: COLOR.LISP#> QL.VIDEO-DEVICE; LAD: (10) CALLS.LISP#> QL.KERMIT; LAD: (46) CALLS.LISP#> QL.KERMIT; LAD: (43) TERM.LISP#> QL.KERMIT; LAD: (54) CALLS.LISP#> QL.KERMIT; LAD: (40) TERM.LISP#> QL.KERMIT; LAD: (51) WINDOW.LISP#> QL.KERMIT; LAD: (67) TERM.LISP#> QL.KERMIT; LAD: (49) PROTO.LISP#> QL.KERMIT; LAD: (32) Page 70 TERM.LISP#> QL.KERMIT; LAD: (36) TERM.LISP#> QL.KERMIT; LAD: (33) TERM.LISP#> QL.KERMIT; LAM3: (32) USER.LISP#> QL.TIGER; LAD: (79) USER.LISP#> QL.TIGER; LAD: (78) USER.LISP#> QL.TIGER; LAD: (76) USER.LISP#> QL.TIGER; LAD: (75) USER.LISP#> QL.TIGER; LAD: (74) TOSHIBA.LISP#> QL.TIGER; LAD: (125) STREAM.LISP#> QL.TIGER; LAD: (46) LASER1.LISP#> QL.TIGER; LAD: (7) LASER1.LISP#> QL.TIGER; LAD: (6) LASER1.LISP#> QL.TIGER; LAD: (4) LASER1.LISP#> QL.TIGER; LAD: (3) ARRAY-METHODS.LISP#> QL.TIGER; LAD: (25) SERVER.LISP#> QL.TIGER; LAD: (190) USER.LISP#> QL.TIGER; LAD: (73) MTSTR.LISP#> QL.TAPE; LAD: (127) COPY.LISP#> QL.TAPE; LAD: (151) MTSTR.LISP#> QL.TAPE; LAD: (126) MTSTR.LISP#> QL.TAPE; LAD: (125) TMSTR.LISP#> QL.TAPE; LAD: (14) MTDEFS.LISP#> QL.TAPE; LAD: (52) TOPS20.LISP#> QL.TAPE; LAM3: (11) COPY.LISP#> QL.TAPE; LAM3: (150) SERVER.LISP#> QL.FILE; LAD: (163) FSGUTS.LISP#> QL.FILE; LAD: (396) FSGUTS.LISP#> QL.FILE; LAD: (393) FSDEFS.LISP#> QL.FILE; LAD: (184) FSGUTS.LISP#> QL.FILE; LAD: (388) FSGUTS.LISP#> QL.FILE; LAD: (386) FSGUTS.LISP#> QL.FILE; LAD: (385) FSGUTS.LISP#> QL.FILE; LAD: (383) LAMTTY.LISP#> QL.UNIX; LAD: (54) LAMTTY.LISP#> QL.UNIX; LAD: (53) LAMTTY.LISP#> QL.UNIX; LAD: (51) DEFS.LISP#> QL.ZMAIL; LAD: (274) MAIL.LISP#> QL.ZMAIL; LAD: (313) PROFIL.LISP#> QL.ZMAIL; LAD: (125) MAIL.LISP#> QL.ZMAIL; LAD: (311) FILTER.LISP#> QL.ZMAIL; LAD: (358) TOP.LISP#> QL.ZMAIL; LAD: (554) WINDOW.LISP#> QL.ZMAIL; LAD: (344) MFILES.LISP#> QL.ZMAIL; LAD: (326) COMNDS.LISP#> QL.ZMAIL; LAD: (587) WINDOW.LISP#> QL.ZMAIL; LAD: (343) COMNDS.LISP#> QL.ZMAIL; LAD: (586) PROFIL.LISP#> QL.ZMAIL; LAM3: (124) FILTER.LISP#> QL.ZMAIL; LAM3: (357) Page 71 COMNDS.LISP#> QL.ZMAIL; LAM3: (585) ZMACS.LISP#> QL.ZWEI; LAD: (530) DISK.LISP#> QL.IO; LAD: (318) ACCESS.LISP#> QL.IO.FILE; LAD: (18) CONFIG.LISP#> QL.SYS; LAD: (38) TIME.LISP#> QL.IO1; LAD: (113) QCFASD.LISP#> QL.SYS; LAD: (251) CONFIG.LISP#> QL.SYS; LAD: (36) SHWARM.LISP#> QL.WINDOW; LAD: (345) CONFIG.LISP#> QL.SYS; LAD: (35) IOMSG.LISP#> QL.SYS; LAD: (23) MOUSE.LISP#> QL.WINDOW; LAD: (251) SECTIO.LISP#> QL.ZWEI; LAD: (271) SDU-SERIAL.LISP#> QL.IO1; LAD: (20) QFASL.LISP#> QL.SYS; LAD: (470) SHWARM.LISP#> QL.WINDOW; LAD: (344) BASSTR.LISP#> QL.WINDOW; LAD: (386) FILES.LISP#> QL.ZWEI; LAD: (198) READ.LISP#> QL.IO; LAD: (437) CLPACK.LISP#> QL.SYS; LAD: (160) EVAL.LISP#> QL.SYS; LAD: (94) TYPES.LISP#> QL.SYS; LAD: (74) GENRIC.LISP#> QL.SYS; LAD: (29) MENU-PATCH.LISP#> PECANN; GOD: (1) READ.LISP#> QL.IO; LAD: (436) TYPWIN.LISP#> QL.WINDOW; LAD: (119) SDU-SERIAL.LISP#> QL.IO1; LAD: (19) QRAND.LISP#> QL.SYS; LAD: (431) PATHNM.LISP#> QL.IO.FILE; LAD: (546) SCREEN.LISP#> QL.ZWEI; LAD: (470) SHEET.LISP#> QL.WINDOW; LAD: (561) FRAME.LISP#> QL.WINDOW; LAD: (167) QIO.LISP#> QL.IO; LAD: (216) LTOP.LISP#> QL.SYS; LAD: (508) METH.LISP#> QL.ZWEI; LAD: (50) ZMACS.LISP#> QL.ZWEI; LAD: (529) CHSNCP.LISP#> QL.NETWORK.CHAOS; LAD: (315) BASSTR.LISP#> QL.WINDOW; LAD: (384) METH.LISP#> QL.ZWEI; LAD: (49) QRAND.LISP#> QL.SYS; LAD: (430) METH.LISP#> QL.ZWEI; LAD: (48) CLPACK.LISP#> QL.SYS; LAD: (158) BASSTR.LISP#> QL.WINDOW; LAD: (383) PATHNM.LISP#> L.IO.FILE; DJ: (547) LMPARS.LISP#> L.FILE; DJ: (117) PATHST.LISP#> L.IO.FILE; DJ: (196) HARDCOPY.LISP#> QL.IO1; LAD: (1) ISPELL.LISP#> QL.ZWEI; LAD: (50) DOC.LISP#> QL.ZWEI; LAD: (76) Page 72 QIO.LISP#> QL.IO; LAD: (214) SYSCONF.LISP#> QL.COLD; LAD: (14) PROCES.LISP#> QL.SYS2; LAD: (165) LMMAC.LISP#> QL.SYS2; LAD: (380) EH.LISP#> QL.SYS2; LAD: (355) *Buffer-1*NIL TYPES.LISP#> QL.SYS; LAD: (73) NPRIM.LISP#> QL.ZWEI; LAD: (35) STRUCT.LISP#> QL.SYS2; LAD: (323) PATHST.LISP#> QL.IO.FILE; LAD: (194) OPEN.LISP#> QL.IO.FILE; LAD: (179) QCFILE.LISP#> QL.SYS; LAD: (326) QFASL.LISP#> QL.SYS; LAD: (468) QCLAP.LISP#> QL.SYS; LAD: (251) STREAM.LISP#> QL.WINDOW; LAD: (146) SHEET.LISP#> QL.WINDOW; LAD: (560) INSPCT.LISP#> QL.WINDOW; LAD: (156) PRINT.LISP#> QL.IO; LAD: (182) LMPARS.LISP#> QL.FILE; LAD: (115) CONFIG-DEFS.LISP#> QL.SYS; LAD: (7) SYSCONF.LISP#> QL.COLD; LAD: (12) PATHNM.LISP#> QL.IO.FILE; LAD: (545) PATHST.LISP#> QL.IO.FILE; LAM3: (192) STREAM.LISP#> QL.IO; LAM3: (110) MAKSYS.LISP#> QL.SYS2; LAM3: (186) READ.LISP#> QL.IO; LAM3: (436) CLPACK.LISP#> QL.SYS; LAM3: (157) FED.LISP#> QL.WINDOW; LAM3: (201) EVAL.LISP#> QL.SYS; LAM3: (93) COMF.LISP#> QL.ZWEI; LAM3: (100) SCREEN.LISP#> QL.ZWEI; LAM3: (469) QMISC.LISP#> QL.SYS; LAM3: (674) SHARED-DEVICE.LISP#> QL.SYS; LAM3: (29) BASWIN.LISP#> QL.WINDOW; LAM3: (565) SUPDUP.LISP#> QL.WINDOW; LAM3: (280) DIRED.LISP#> QL.ZWEI; LAM3: (308) QFILE.LISP#> QL.NETWORK.CHAOS; LAM3: (363) A list of all definitions modified: DEFUN PUT-UP-PICT (&OPTIONAL (PICT :10LEAF) DEFUN %COLOR-DRAW-CHAR (FONT CHAR X Y COLOR DEVICE) defun open-tcp-telnet-serial-stream (&optional auto-force-output) defun open-tcp-telnet-serial-stream () defun (TELOPT_EXOPL telnet-option) (how) defun (TELOPT_SUPDUP telnet-option) (how) defun (TELOPT_DET telnet-option) (how) Page 73 defun (TELOPT_BM telnet-option) (how) defun (TELOPT_LOGOUT telnet-option) (how) defun (TELOPT_XASCII telnet-option) (how) defun (TELOPT_NAOLFD telnet-option) (how) defun (TELOPT_NAOVTD telnet-option) (how) defun (TELOPT_NAOVTS telnet-option) (how) defun (TELOPT_NAOFFD telnet-option) (how) defun (TELOPT_NAOHTD telnet-option) (how) defun (TELOPT_NAOHTS telnet-option) (how) defun (TELOPT_NAOCRD telnet-option) (how) defun (TELOPT_NAOP telnet-option) (how) defun (TELOPT_NAOL telnet-option) (how) defun (TELOPT_RCTE telnet-option) (how) defun (TELOPT_TM telnet-option) (how) defun (TELOPT_STATUS telnet-option) (how) defun (TELOPT_NAMS telnet-option) (how) defun (TELOPT_SGA telnet-option) (how) defun (TELOPT_RCP telnet-option) (how) defun (telopt_echo telnet-option) (how) defun (telopt_binary telnet-option) (how) defun telnet-command (what &aux c sym explain) defun (se telnet-command) () defun (synch telnet-command) () defun (nop telnet-command) () defun (dm telnet-command) () defun (break telnet-command) () defun (ip telnet-command) () defun (ao telnet-command) () defun (ayt telnet-command) () defun (ec telnet-command) () defun (el telnet-command) () defun (ga telnet-command) () defun (sb telnet-command) () defun (will telnet-command) () defun (wont telnet-command) () defun (do telnet-command) () defun (dont telnet-command) () defun handle-telnet-iac (&aux c sym explain) defun get-symbol (number table) defvar *telopts* defvar *telsyms* defun enable-telnet-iac () DEFUN READ-CHAR-FROM-SERIAL-STREAM-TO-TERMINAL () defun open-tcp-telnet-serial-stream () defmethod (kstate :set-params) () defun read-char-from-keyboard-to-serial-stream () defun connect (*serial-stream* *terminal* defun process-wait-listen (&rest streams) defun extended-set-baud-rate () Page 74 defun set-baud-rate () defconst all-baud-choices-items-alist defun tmovecursor (to-x to-y) DEFUN TDRAWLINE (FROM-X FROM-Y TO-X TO-Y) DEFUN NICE-EDGES (&AUX (X0 0) (Y0 0)) DEFUN LINEAR-MAP (X X0 X1 Y0 Y1) DEFUN TEK-DRAW (X Y) defun TEK-move (x y) defun get-tek-vector () DEFUN TEK-RESET-MEMORY () defmacro tek-low-x-bitz-p (c) defmacro tek-low-y-bitz-p (c) defmacro tek-hi-bitz-p (c); for decoding Tek codes defvar *tek-12bit-mode* nil) defvar *TEK-move-cursorp* t "If T then :SET-CURSORPOS is done to fol low MOVE and DRAW") defvar *screen-y-utilization* 0.90 "the fraction of screen size in Y utilized") defvar *screen-x-utilization* 0.90 "the fraction of screen size in X utilized") DEFVAR *TEK-MAX-Y* 779) DEFVAR *TEK-MIN-Y* 0) DEFVAR *TEK-MAX-X* 1023) DEFVAR *TEK-MIN-X* 0) defvar *tek-y* 0) defvar *tek-x* 0) defvar *tek-low-x* 0) defvar *tek-hi-x* 0) defvar *tek-exlow-yx* 0) defvar *tek-low-y* 0) defvar *tek-hi-y* 0) defflavor kterm-state defun toggle-tek-emulation () defun terminal-show-status-of-connection () DEFUN TERMINAL-NETWORK-HELP () defun network-keystroke-handler-internal () DEFUN READ-CHAR-FROM-SERIAL-STREAM-TO-TERMINAL () defvar *tek-firstp* t) defvar *tek-in-graphics-mode* nil) DEFCONST *TEK-PRINTMODE* #o37) DEFCONST *TEK-GRAPHMODE* #o35) DEFCONST *TEK-PAD* #o26); control-V DEFVAR *TEK-EMULATIONP* NIL) defun bufill (buffer) DEFUN READ-CHAR-FROM-SERIAL-STREAM-TO-TERMINAL () DEFSUBST TERMINAL-LINEFEED () DEFSUBST TERMINAL-CR () DEFSUBST TERMINAL-END-OF-PAGE-EXCEPTION () DEFSUBST ESCAPE-DISPATCH () Page 75 DEF-TERMINAL-ESCAPE #\Y T TERMINAL-SET-POS DEF-TERMINAL-ESCAPE #\y T TERMINAL-RESET-MODE DEF-TERMINAL-ESCAPE #\x T TERMINAL-SET-MODE DEF-TERMINAL-ESCAPE #/[ T TERMINAL-EAT-TEMP; this may be wrong defun dual-connect (*serial-stream* *terminal* state defflavor kterm-state defvar *notify-when-eof-is-read* nil) DEFUN READ-CHAR-FROM-SERIAL-STREAM-TO-TERMINAL () defsubst serial-tyi () defvar *serial-stream-mask* #o177) defun dual-connect (*serial-stream* *terminal* state defvar *notify-when-eof-is-read* nil) DEFUN TERMINAL-NETWORK-HELP () defun network-keystroke-handler-internal () DEFUN READ-CHAR-FROM-SERIAL-STREAM-TO-TERMINAL () defvar *snarf-telnet-negotiations* nil); ditto defvar *auto-clear-eol-on-linefeed-flag* nil); only used by tcp:teln et-h19 - mwt DEFSUBST TERMINAL-LINEFEED () DEFSUBST TERMINAL-CR () DEFSUBST TERMINAL-END-OF-PAGE-EXCEPTION () defconst *wrap-around-instead-of-scrolling-flag* nil) defun network-keystroke-handler () defun dual-connect (*serial-stream* *terminal* state defun make-tiger-operator-window (&aux w) defun tiger-operator-process-toplevel (window) defun make-tiger-operator-window (&aux w) defun kill-tiger-operator-window () defun start-tiger () defun make-tiger-operator-window (&aux w) defmethod (tiger-operator-window :after :kill) (&rest ignore) defflavor tiger-operator-window defmethod (toshiba-p1351-stream :download-font) defmethod (basic-printer-stream-mixin :tyo) (char) defmethod (laser1-stream :bitblt) (width height array x y &aux left- bit right-bit) defvar *laser1-orientation* :PORTRAIT) defmethod (laser1-stream :setup-normal) () defmethod (laser1-stream :set-up-for-graphics) (r) defun column-reverse-bit-search (array y x count) defun column-bit-search (array1 y1 x1 count1) defmethod (laser1-stream :bitblt) (width height array x y &aux left- bit right-bit) defun array-to-tape-interface (printer array left top right bottom & rest options) defun array-to-file-interface (printer array left top right bottom & rest options) defun-with-arglist tiger-array tiger-array-arglist (entry &rest opti ons &optional &key Page 76 defun-with-arglist tiger-stream tiger-stream-arglist (stream &rest o ptions &aux file) defun tiger-array-entry-1 (array sender user always-spool-p &rest op tions &optional &key defun make-tiger-queue-directory-filename (host name type) DEFUN WRITE-MAGTAPE-HEADER (STREAM PLIST &OPTIONAL (STYLE :MIT)) DEFUN DETERMINE-COPY-DESTINATION (TO TRUENAME QFASLP INSTREAM) defconst tape-file-property-type-plist DEFUN MT-RUN (RQB COMMAND DEFUN MAKE-MT-FILE-STREAM (&OPTIONAL DEFUN MAKE-MT-STREAM (&OPTIONAL &KEY (DIRECTION :INPUT) (BYTE-SIZE 8 ) (CHARACTERS T) DEFFLAVOR MT-MIXIN DEFFLAVOR TM-MIXIN DEFVAR *DEFAULT-DENSITY* 0 DEFUN COPY-DIRECTORY (DIR TO &OPTIONAL &REST OPTIONS defun restore-tape (&optional &key defun open-file-from-tops20-spec (x &aux p1 p2 stream ans) defvar *transform* nil) DEFUN COPY-DIRECTORY (DIR TO &OPTIONAL &REST OPTIONS defun file-server-open-for-lispm (fh filename &rest modes defun lmfs-parse-for-server (string) defvar *lmfs-parse-for-server-device-kludge* nil defun open-err (&rest args) defun rfile-server () defun cv-time (x) (time:print-universal-time (or x 0) nil nil ':mm// dd//yy)) defun maint-killable-files (&optional query &aux bad-boys truename p robed) defun maint-salvage (&optional (shutdown nil) query &aux bad) defun maint-delete-and-expunge (&optional filename query &aux pathna me file) defun maint-killable-files (&optional query &aux bad-boys truename p robed) defun maint-salvage (&optional (shutdown nil) query &aux bad) defun maint-killable-files (&aux bad-boys truename probed) defun maint-salvage (&optional (shutdown t) &aux bad) DEFVAR PUT-MINIMUM-FREE-PAGES 256.) DEFUN WRITE-DIRECTORY-ENTRY (STREAM FILE) DEFUN DIRECTORY-ENTRY-STRING-CHECK (S) DEFUN LMFS-DIRECTORY-LIST (PATHNAME HOST DIRECTORY NAME TYPE VERSION OPTIONS DEFUN LMFS-DIRECTORY-LIST (PATHNAME HOST DIRECTORY NAME TYPE VERSION OPTIONS DEFUN FIND-LM-BAND () DEFUN FIND-LM-BAND () DEFUN LMFS-OPEN-FILE (PATHNAME DIRECTORY NAME TYPE VERSION defmethod (unix-stream :after :describe) () defmethod (unix-stream :new-output-buffer) () Page 77 defmethod (unix-stream :space-available) () defun find-unix-stream (with-login-p) DEFVAR *MAIL-SENDING-MODE-ALIST* DEFUN SMTP-SEND-IT (PLIST INTERVAL TEMPLATE) DEFINE-SITE-HOST-LIST *MAIL-SMTP-HOSTS* :SMTP-MAIL-SERVER-HOSTS) DEFUN EDIT-PROFILE-REMEMBERED-MAIL-FILES (NEAR-MODE) DEFUN STRING-FROM-HEADER (HEADER FORMAT &AUX (PLIST (LOCF HEADER)) T EM) DEFUN GET-FILTER-FUNCTION-1 (MAP-FUNCTION MAP-ARG NAME NEAR-MODE DEFUN RESET-ZMAIL-USER (&AUX (OLD-FRACT *SUMMARY-WINDOW-FRACTION*)) DEFUN SET-MSG-SUMMARY-LINE (MSG STATUS &OPTIONAL LINE &AUX TEMPLATE) DEFUN CHOOSE-MAIL-FILE-OPTIONS (ZMAIL-BUFFER &AUX OLD-FLAVOR OLD-APP END-P PATHNAME FLAVOR DEFUN ZMAIL-KEYWORDS-MSG (MSG &AUX OLD-KEYWORDS NEW-KEYWORDS) DEFMETHOD (ZMAIL-MULTIPLE-MENU-MIXIN :MULTIPLE-CHOOSE) (ITEM-LIST CU RRENTLY-ACTIVE DEFUN ZMAIL-BUFFER-PREDICATE-QUERY (ZMAIL-BUFFER PREDICATE ACTION AT TRIBUTE &AUX ARRAY) DEFINE-ZMAIL-TOP-LEVEL-COMMAND COM-ZMAIL-PROFILE DEFINE-COMMAND-WHO-LINE-DOCUMENTATION-UPDATER COM-ZMAIL-SELECT (STRI NG) DEFINE-COMMAND-WHO-LINE-DOCUMENTATION-UPDATER GET-DEFAULTED-MOVE-ZMA IL-BUFFER DEFUN DESCRIBE-FILE-ID (FILE-ID) DEFUN DECODE-UNIT-ARGUMENT (UNIT USE &OPTIONAL (CC-DISK-INIT-P NIL) (WRITE-P NIL) DEFUN INVOKE-CORRECT-NETWORK-FUNCTION (NAME HOST ARGS) DEFVAR *NETWORK-PROTOCOLS* '(:CHAOS :INTERNET)) DEFINE-NETWORK-FUNCTION OPEN-REMOTE-TAPE-SERVER (HOST) DEFINE-NETWORK-FUNCTION FINGER-HOST (HOST USER OUTPUT-STREAM STYLE) DEFINE-NETWORK-FUNCTION SEND-TERMINAL-MESSAGE (HOST USER MESSAGE-GEN ERATOR) DEFINE-NETWORK-FUNCTION HOST-STATUS (HOST &REST SIMILAR-HOSTS) DEFINE-NETWORK-FUNCTION GET-REMOTE-DISK-UNIT (HOST UNIT USAGE &OPTIO NAL INITP WRITEP) DEFMACRO DEFINE-NETWORK-FUNCTION (NAME ARGUMENT-LIST &BODY BODY) DEFVAR *NETWORK-FUNCTIONS* NIL) DEFUN (:CHAOS NETWORK-PATH-AVAILABLE) (TO-HOST) DEFUN OTHER-BUS-LOCAL-HOSTP (HOST) DEFUN LOCAL-HOSTP (TO-HOST) DEFUN DEFAULT-NETWORK-PATH-AVAILABLE (HOST) DEFUN NETWORK-PATH-AVAILABLE (TYPE HOST) DEFUN PERMISSIBLE-ACCESS-PATH-FLAVOR-P (HOST ACCESS-D &AUX COND-TYPE COND-ARGS) defun set-up-shared-memory () defun write-rtc-register (adr data) defun read-rtc-register (adr) DEFUN DUMP-FORMS-TO-FILE (FILENAME FORMS-LIST &OPTIONAL ATTRIBUTE-LI ST) Page 78 defun dump-forms-to-fasd-stream (fasd-stream forms-list) defun open-fasd-file (filename) defmacro with-open-fasd-file ((stream-variable filename &optional at tribute-list) &body body) defun set-processor-owning-ethernet (&optional (operation :find)) defvar dont-use-3com nil DEFUN WINDOW-INITIALIZE (&AUX FIRST-TIME) defun find-processor-configuration-structure () defun find-processor-configuration-structure () defun execute-iomsg (iomsg) DEFUN MOUSE-SET-BLINKER (TYPE-OR-BLINKER &OPTIONAL X-OFFSET Y-OFFSET ) defmethod (sdu-serial-stream-mixin :set-stop-bits) (length) defmethod (sdu-serial-stream-mixin :set-char-length) (length) defmethod (sdu-serial-stream-mixin :set-parity) (type) defmethod (sdu-serial-stream-mixin :reset) (&optional (abort-output :abort) (reset-chip t)) defflavor sdu-serial-stream-mixin DEFUN FASL-OP-FRAME () DEFUN FASL-NEXT-VALUE-BINDING-FASL-LIST-AREA (X) DEFUN SHEET-DISPLAY-X-Y-CENTERED-STRING (SHEET STRING DEFUN KBD-ESC-Q (ARG &AUX (PRINTER (OR SI:*DEFAULT-BIT-ARRAY-PRINTER * SI:*DEFAULT-PRINTER*))) DEFUN DIRECTORY-INPUT-STREAM (DIRECTORY &REST OPTIONS &AUX (DIR DIRE CTORY)) DEFUN SET-MACRO-CHARACTER (CHAR FUNCTION &OPTIONAL NON-TERMINATING-P DEFUN SET-SYNTAX-FROM-CHAR (TO-CHAR FROM-CHAR &OPTIONAL defun in-package (name &rest options &key use nicknames) defun proclaim (&rest declarations &aux d) deff coerce-to-array-optimized #'coerce-to-vector) ;Still used by o ld compiled code. defun coerce-to-vector (object array-type &optional simplep &aux vec tor length) defun subst-1 (new old-list tree key pred invertp) DEFMETHOD (COMMAND-MENU-MIXIN :AFTER :MOUSE-BUTTONS) (BD IGNORE IGNO RE) DEFUN MAKE-DISPATCH-MACRO-CHARACTER (CHAR &OPTIONAL NON-TERMINATING- P DEFMETHOD (BASIC-MOUSE-SENSITIVE-ITEMS :MOUSE-CLICK) (BUTTON X Y &AU X ITEM) defmethod (sdu-serial-stream-mixin :set-char-length) (length) DEFUN FUNCTION-SPEC-DEFAULT-HANDLER (FUNCTION FUNCTION-SPEC &OPTIONA L ARG1 ARG2) DEFUN SET-HOST-WORKING-DIRECTORY (HOST PATHNAME) DEFUN SWITCH-WINDOWS (&OPTIONAL CHANGE-INTERVAL (ONE-TO-SELECT 2)) DEFMETHOD (BITBLT-BLINKER :BLINK) () DEFFLAVOR SPLIT-SCREEN-FRAME () (scale-inferiors-mixin BASIC-FRAME)) defun prompt-and-read (option format-string &rest format-args) defun purge-quad-video () Page 79 DEFUN LISP-REINITIALIZE (&OPTIONAL (CALLED-BY-USER T) DEFMETHOD (ZMACS-BUFFER :WRITE-FILE-INTERNAL) (PATH) DEFUN WRITE-FILE-INTERNAL (PATHNAME &OPTIONAL (BUFFER *INTERVAL*)) DEFUN LAMBDA-TRANSMIT-INT-PKT (INT-PKT &OPTIONAL HOST SUBNET (broadc ast-if-necessary t) DEFVAR *ESCAPE-KEYS* DEFUN SXHASH (X &OPTIONAL RANDOM-OBJECT-ACTION) defmethod (interval-stream :syntax-plist) () defun export (symbols &optional (pkg *package*) force-flag) DEFUN KBD-ESC-Q (ARG &AUX (PRINTER (OR SI:*DEFAULT-BIT-ARRAY-PRINTER * SI:*DEFAULT-PRINTER*))) DEFVAR *ESCAPE-KEYS* DEFUN FIX-SAMPLE-PATHNAMES-SITE () DEFPROP LM-PATHNAME T PATHNAME-FLAVOR-CHANGES) DEFPROP LMFS-PATHNAME T PATHNAME-FLAVOR-CHANGES) DEFUN (:PROPERTY :LPT PRINT-STREAM) (PRINTER STREAM DEFUN (:PROPERTY :LPT PRINT-FILE) (PRINTER FILE-NAME DEFUN HARDCOPY-STATUS (&OPTIONAL (PRINTER *DEFAULT-PRINTER*) DEFUN HARDCOPY-BIT-ARRAY (ARRAY LEFT TOP RIGHT BOTTOM &REST OPTIONS DEFUN HARDCOPY-STREAM (STREAM &REST OPTIONS DEFUN HARDCOPY-FILE (FILE-NAME &REST OPTIONS DEFUN EXPAND-PRINTER-NAME (PRINTER) DEFINE-SITE-VARIABLE *PRINTER-NAMES* :PRINTER-NAMES DEFUN alist-of-CHECK-SPELLING-WORDLIST (words &aux checker) defun apropos-internal (use-any-extended-command-p) defun read-delimited-string (&optional (delimiter #/End) (stream *st andard-input*) defun readline (&rest read-args) defun read-line (&optional (stream *standard-input*) (eof-error-p t) eof-value recursive-p define-accessors-for-structure system-configuration-qs) defconst system-configuration-qs '( DEFUN WITH-TIMEOUT-INTERNAL (DURATION PROCESS) DEFMACRO WITH-TIMEOUT ((DURATION . TIMEOUT-FORMS) &BODY BODY) DEFUN LOAD-ERROR-TABLE (&aux pathname) defun oddp (x) defun integer-type-name (type noun article) DEFUN REPORT-BP-LOSSAGE () DEFUN DEFSTRUCT-PARSE-ONE-FIELD (IT NUMBER PPSS REST CONC-NAME #+MAC LISP-10 CHARS DEFMETHOD (LOGICAL-PATHNAME :COMPLETE-STRING) (STRING OPTIONS &AUX S TRING1 FOO SUCCESS) DEFUN (:READ FILE-ATTRIBUTE-BINDINGS) (FILE IGNORE VAL) DEFVAR *NAMED-READER-ALIST* '((:T READ)(NIL READ)) DEFUN COMPILE-STREAM (INPUT-STREAM GENERIC-PATHNAME FASD-FLAG PROCES S-FN DEFUN READFILE-INTERNAL (*STANDARD-INPUT* PKG NO-MSG-P) DEFVAR *READFILE-READ-FUNCTION* NIL "If non-nil a function to use in stead of READ") Page 80 DEFUN LAP-HEADER (Q-LENGTH UNBOXED-LENGTH) DEFMETHOD (STREAM-MIXIN :ANY-TYI-NO-HANG) (&OPTIONAL IGNORE) DEFUN WAIT-TILL-SAFE-FOR-ERROR (WINDOW FUNCTION &REST ARGS) DEFMETHOD (BASIC-INSPECT :OBJECT-NAMED-STRUCTURE) DEFUN PRINT-OBJECT (EXP I-PRINDEPTH STREAM DEFUN LM-PRINT-DIRECTORY (DEVICE DIRECTORY S SPACE) define-accessors-for-structure system-configuration-qs) defconst system-configuration-qs '( defun merge-pathname-components DEFMETHOD (lmfs-PATHNAME-MIXIN :PARSE-NAMESTRING) (IGNORE NAMESTRING DEFMETHOD (FILE-STREAM-MIXIN :GET) (INDICATOR &OPTIONAL DEFAULT) DEFMACRO (:PROPERTY :READ-COMPILE-LOAD DEFSYSTEM-MACRO) DEFMACRO (:PROPERTY :PROGN DEFSYSTEM-MACRO) (&REST Transformations & AUX Values) DEFUN ReadForCompilation (Name &AUX (Source (FUNCALL Name ':NEW-TYPE "LISP")) DEFUN ReadForCompilation? (Name &AUX (Source (FUNCALL Name ':NEW-TYP E "LISP")) DEFINE-SIMPLE-TRANSFORMATION :READ-FOR-COMPILATION ReadForCompilatio n ReadForCompilation? defun xr-xrtyipeek (&optional peek-type &rest read-args) defun defpackage-internal (name alist-of-options) defun make-package (name &key &optional nicknames (use '("GLOBAL")) super (size #o200) DEFUN DISPLAY-FONT (FONT &OPTIONAL (WINDOW TERMINAL-IO) (CLEAR-FIRST -P T) (FROM-FED NIL)) defun do ("e &rest x) DEFCOM COM-LONG-DOCUMENTATION "Prints long documentation for the spe cified symbol or function. DEFMETHOD (MENU-COMMAND-MENU-MIXIN :WHO-LINE-DOCUMENTATION-STRING) ( ) DEFUN SET-SYS-HOST (HOST-NAME &OPTIONAL OPERATING-SYSTEM-TYPE HOST-A DDRESS defmethod (shared-device-pathname :homedir) (&optional ignore) DEFMETHOD (PROCESS-MIXIN :AFTER :INIT) (IGNORE) DEFUN PARSE-PATH (PATH CONTACT-NAME ARPA-SOCKET) DEFMETHOD (BASIC-NVT :NEW-CONNECTION) (HOST GATEWAY CONTACT CONTACT- P WINDOW DEFUN PARSE-BUG-ARG (WHO) DEFUN QFILE-LOGIN-HOST-UNIT (UNIT LOGIN-P UNAME-HOST DEFVAR CATCH-LOGIN-PROBLEMS-P T