LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760029832. :SYSTEM-TYPE :LOGICAL :VERSION 24. :TYPE "PATCH-DIRECTORY" :NAME "PATCH-3" :DIRECTORY ("REL3" "PATCH" "NAMESPACE") :SOURCE-PATTERN "( :DIRECTORY (\"REL3\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :QFASLP NIL :LENGTH 1742. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2757510075. :AUTHOR "REL3" :LENGTH-IN-BYTES 1742. :LENGTH-IN-BLOCKS 2. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ;;; -*- Mode: Common-Lisp; Package:User; Base:10.; Patch-File:T -*-;;; Patch directory for NAMESPACE version 3;;; Written 05/18/87 10:50:28 by jones,;;; while running on HEYERDAHL from band LOD1;;; With IO 3.4, PATHNAME 3.4, FILE 3.2, SYSTEM 3.10, METER 3.0, SERIAL 3.0, CHAOSNET 3.5, ETHERNET 3.0, GC 3.4, IMAGEN 3.0, MAIL-DAEMON 3.0, NETWORK-SUPPORT 3.2, PROFILE 3.0, SUGGESTIONS 3.2, UCL 3.0, ZWEI 3.2, STREAMER-TAPE 3.0, DEBUG-TOOLS 3.0, FONT-EDITOR 3.0, GLOSSARY 3.0, INPUT-EDITOR 3.0, MAIL-READER 3.0, NAMESPACE-EDITOR 3.1, NVRAM 3.0, TELNET 3.0, TV 3.2, NAMESPACE 3.6, COMPILER 3.1, PRINTER 3.1, SYSLOG 3.0, VT100 3.0, IP 2.12, Experimental BUG 4.6, Experimental ETHERNET-3-1 1.1, Experimental CHAOSNET-3-1 1.1, Experimental NETWORK-SUPPORT-3-1 1.0, Experimental NAMESPACE-3-1 1.0, Experimental NAMESPACE-EDITOR-3-1 1.2,  microcode 211, Band Name: rel3,ip,bug 5-14.(:PATCH-SYSTEM-NAME "NAMESPACE" :MAJOR-VERSION 3 :LATEST-MINOR-VERSION 7)(:RELEASED((0 "NAMESPACE Loaded" "Modified" NIL)  (1 "Use Stack list instead of a Resource in :find-object.  Approved by CZAR.  Code Read:  LSS PHD." "lisa" NIL)  (2 "Lookup fully-qualified aliases correctly. Code read: BJ LSS." "jones" NIL)  (3 "Fixes to lookup-by-properties and get-gateway-hosts in a symbolics namespace.Code read: BJ LSS." "jones" NIL)  (4 "Don't kludge dotted names in the namespace anymore.  Approved by CZAR.  CODE READ:  LSS BJ" "LISA" NIL)  (5 "Fix known holes that allowed accidental Namespace Server Suicide.Ask the user at the Server for confirmation about no longer being a server. Approved by CZAR.  Code Read by LSS BJ" "LISA" NIL)  (6 "A fix to patch 3.3." "jones" NIL)  (7 "Copy the argument property-list before modifying it." "jones" nil)  ))ring.    (when (boundp 'si:gc-process)  (stop-gc-process))    (SETQ buffer-array (MAKE-ARRAY (* si:page-size 4);; Big enough so data portion will span at                        ;; least one complete page.   :element-type '(unsigned-byte 16)))    ;;    ;; Actual data buffer must start on p