;;; -*- Mode: Common-Lisp; Package:User; Base:10.; Patch-File:T -*-
;;; Patch directory for STUB-RESOLVER version 1
;;; Written 04-Jan-89 18:03:06 by Victor,
;;; while running on John Jameson from band LOD2
;;; With SYSTEM 4.61, VIRTUAL-MEMORY 4.4, EH 4.5, MAKE-SYSTEM 4.5, MICRONET 4.5, LOCAL-FILE 4.1,
;;;  BASIC-PATHNAME 4.12, NETWORK-SUPPORT-COLD 4.1, NAMESPACE 4.22, NETWORK-NAMESPACE 4.2,
;;;  DISK-IO 4.13, DISK-LABEL 4.0, BASIC-FILE 4.7, MAC-PATHNAME 4.5, NETWORK-PATHNAME 4.1,
;;;  COMPILER 4.13, TV 4.85, DATALINK 4.14, CHAOSNET 4.18, GC 4.3, MEMORY-AUX 4.0,
;;;  NVRAM 4.6, SYSLOG 4.0, STREAMER-TAPE 4.4, UCL 4.1, INPUT-EDITOR 4.0, METER 4.3,
;;;  ZWEI 4.18, DEBUG-TOOLS 4.2, NETWORK-SUPPORT 4.5, NETWORK-SERVICE 4.0, DATALINK-DISPLAYS 4.0,
;;;  FONT-EDITOR 4.0, SERIAL 4.0, PRINTER 4.8, PRINTER-TYPES 4.2, IMAGEN 4.0, SUGGESTIONS 4.0,
;;;  MAIL-DAEMON 4.7, MAIL-READER 4.6, TELNET 4.1, VT100 4.6, NAMESPACE-EDITOR 4.5,
;;;  PROFILE 4.4, VISIDOC 4.5, IP 3.19, RPC 4.14, NFS 3.2, Experimental NFS-PATCHES 2.7,
;;;  TI-PROLOG 2.11, GRAPHICS-WINDOW 4.1, GED 4.1, TREE 4.0, VISIDOC-SERVER 4.0, Experimental SYSTEM-PATCHES 3.118,
;;;  Experimental ICU-DOCS 11.5, Experimental SYSTEM-ENHANCEMENTS 18.27, Experimental TCP-IMAGEN 9.5,
;;;  Experimental NAME-DRAGON 3.2, Experimental TEXINFO 5.5, Experimental ICU-LIBRARY 13.10,
;;;  Experimental DOMAIN 5.0, Experimental STUB-RESOLVER 1.12,  microcode 534, Band Name: 4.61 w DNS&Prolog,
;;;  881122/Vic

(:PATCH-SYSTEM-NAME "STUB-RESOLVER" :MAJOR-VERSION 1 :LATEST-MINOR-VERSION 13)

(:EXPERIMENTAL
((0 "STUB-RESOLVER Loaded" "Victor" NIL)
  (1 "1. Added print-self method for DNS-STUB-NAMESPACE (including pointer).
2. Remove *DNS-STUB-NAMESPACE* from *NAMESPACE-SEARCH-LIST* when re-setting it up.
3. Change setup initialization not to use :FIRST keyword." "Victor" NIL)
  (2 "Patch to put DNS namespace second last on search list when rebuilding the search list." "Victor" NIL)
  (3 "1. Start using negative caching - timeout on *dns-stub-negative-cache-timeout* (5 minutes).
2. Use the SAFETY-BELT-SERVERS instance variable for servers to use!!!
3. Don't try a root name as last resort - there are no top level hosts." "Victor" NIL)
  (4 "Apply search-list when looking in hash table." "Victor" NIL)
  (5 "Patched NET:HOST-EQUIVALENT-P to check if some class of addresses are equal.
This makes the mailer work again, since it realizes that \"ICU|John-Jameson\"  \"DNS|John-Jameson.DoCS.UU.SE\"." "Victor" NIL)
  (6 "Handle CNAMEs as namespace :ALIASES and :*ALIAS-OF*, respectively." "Victor" NIL)
  (7 "Made NAME:DNS-STUB-MAKE-HOST-OBJECT handle things better.  Also, if Italic-Lock is
depressed, don't handle errors from stub resolver." "Victor" NIL)
  (8 "Made DNS-STUB-NAMESPACE-INITIALIZATION-FORM set up safety belt servers from site option." "Victor" NIL)
  (9 "Made all functions in STUB-RESOLVER take required arg SERVERS (instead of defaulting to *STUB-SERVERS*.
Made STUB-GET-NAME-OF-ADDRESS handle numeric address." "Victor" NIL)
  (10 "Made get-canonical-name-of-name handle errors from resolver." "Victor" NIL)
  (11 "Made (dns-stub-namespace :find-object) handle symbols (gotten from namespace editor)." "Victor" NIL)
  (12 "Made DNS-STUB-LOOKUP-HOST-OBJECT-FROM-ADDRESS and DNS-STUB-MAKE-HOST-OBJECT ignore
errors from resolver unless DBG:DEBUG-P." "Victor" NIL)
  (13 "Make new host objects have (:SERVICES :GROUP) attribute instead of just :SERVICES.
This makes it easier to patch with the NS editor." "Victor" NIL)
  ))