LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760029999. :SYSTEM-TYPE :LOGICAL :VERSION 64. :TYPE "PATCH-DIRECTORY" :NAME "SYSTEM-3" :DIRECTORY ("REL3" "PATCH" "SYSTEM") :SOURCE-PATTERN "( :DIRECTORY (\"REL3\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :VERSION-LIMIT 0. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2758732645. :AUTHOR "REL3" :LENGTH-IN-BYTES 3786. :LENGTH-IN-BLOCKS 4. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         ;;; -*- Mode: Common-Lisp; Package:User; Base:10.; Patch-File:T -*-;;; Patch directory for SYSTEM version 3;;; Written 06/03/87 13:37:26 by GRAY,;;; while running on Kelvin from band LODA;;; With IO 3.8, PATHNAME 3.8, FILE 3.5, Inconsistent (unreleased patches loaded) SYSTEM 3.22, METER 3.0, SERIAL 3.0, CHAOSNET 3.8, ETHERNET 3.0, GC 3.7, IMAGEN 3.0, MAIL-DAEMON 3.0, NETWORK-SUPPORT 3.4, PROFILE 3.0, SUGGESTIONS 3.3, UCL 3.0, ZWEI 3.4, STREAMER-TAPE 3.2, DEBUG-TOOLS 3.0, FONT-EDITOR 3.0, GLOSSARY 3.0, INPUT-EDITOR 3.0, MAIL-READER 3.0, NAMESPACE-EDITOR 3.2, NVRAM 3.0, TELNET 3.0, TV 3.4, NAMESPACE 3.7, COMPILER 3.2, PRINTER 3.1, SYSLOG 3.0, VT100 3.1, IP 2.18, Experimental BUG 4.9,  microcode 353, Band Name: REL3+patches,5-28.(:PATCH-SYSTEM-NAME "SYSTEM" :MAJOR-VERSION 3 :LATEST-MINOR-VERSION 22)(:RELEASED((0 "SYSTEM Loaded" "Modified" NIL)  (1 "Fixed SPR 4447 (Case printing) and 5111 (printing of structures)." "DUSSUD" NIL)  (2 "Fix EH:RELOCATE-LOCATIVES-TO-SPECPDL to use %p-ldb-offset instead of arefwhen looking through the regpdl for loacatives to relocate." "MCCREARY" NIL)  (3 "Fix DISK-SAVE on Explorer II." "ab" NIL)  (4 "Improved collision performance of hash tables." "DUSSUD" NIL)  (5 "In EH:SG-UNWIND-TO-FRAME-AND-REINVOKE, check the sg-state word (not the call-info-word) to see if there are any saved microstackson the specpdl that need to flushed.  Also, make sure second elementof a specpdl binding pair is a locative, and ferror is not." "MCCREARY" NIL)  (6 "Change the system product name to Explorer System.  PMH code reader DG." "HOGAN" NIL)  (7 "Put the correct definition of clean-out-resources back (fixes SPR 5252)." "DUSSUD" NIL)  (8 "Define sys:product-reset.  This updates the product to know about thecurrent definition of the conponent systems.  PMH JK" "HOGAN" NIL)  (9 "Two fixes in EH:SG-FUNCALL-IN-FRAME: 1) if there is a upcs on the specialpdl, record that fact in sg-retore-microstack; 2) keep track of sg-catch-pointer.Both of these fix EH crash when doing a M-C-Abort from an error within an error.(SPR 5155)" "MCCREARY" NIL)  (10 "Fixed PDL consing problem[SPR 5257], declared tv:pop-up-notification-windowresource without memory and set sys:*dont-cache-spare-processes* to NIL." "DUSSUD" NIL)  (11 "When you make a call like (gethash key hash default) and gethash has torehash the table(like because of a TGC flip), we ignore the default andreturn nil if the key is not in the hash table. Solution: Putdefault-value in the recursive call to gethash." "DUSSUD" NIL)  (12 "Fixed hard run loop cases in GETHASH and PUTHASH." "DUSSUD" NIL)  (13 "Allow setting of swapin quanta." "ab" NIL)  (14 "Add MEDFNTB to the environment of loaded fonts.Approved by DJ.  Coderead by MRR." "RAINBOW" NIL)  (15 "Fix SUPER-/,WHO-CALLS, & APROPOS for symbols in the W and EH packages[SPRs 5170,5222,5423][Code Readers PHD & PMH]." "HOGAN" NIL)  (16 "Change (:property hash-table named-structure-invoke) so it produces an error for message sending on a HASH-TABLE and define missing flavors (HASH-TABLE-MIXIN...)." "DUSSUD" NIL)  (17 "Speed up COS function by avoiding use of rational arithmetic.  [SPR 5515]" "GRAY" NIL)  (18 "Assure DISK-SAVE does not leave un-GC-able spot in band." "ab" NIL)  (19 "Combined new Explorer 2 Nubus error handling with Explorer 1Nubus error handling." "MCCREARY" NIL)  (20 "Correct error handler reporting of nonexistent instancevariables when not using SRP for access.Code readers CLM, PHD." "ab" NIL)  (21 "Change ethernet board initialization to read the boardconfiguration ROM correctly.  Also ensure it will workin a multiprocessing environment.  AB for MMG." "ab" NIL)  (22 "Fix interpreted EVAL-WHEN to not bind mode to Common Lisp.  [SPR 5624]" "GRAY" NIL)  ))ld tape, so do directory node surgery as in 1.0.1 Release.     (SETF TEMP-TARGET-PATTERN (BUILD-NAME-AND-MATCH TARGET-PATTERN TAPE-STREAM))     (SETF SOURCE-PATTERN TAPE-PATHNAME-OBJECT)))              (LET ((RETURNED-FILE       (APPLY OPERATION () SOURCE-PATTERN TEMP-TARGET-PATTERN TAPE-STREAM (