;;; -*- Mode:Lisp; Readtable:CL; Package:USER; Base:10; Patch-File:T -*-
;;; Patch file for System version 123.51
;;; Reason:
;;;  If a Unix system is not listed in the pack name, find-network-address-for-other-processor
;;;  must use the old way to get its Chaos address.
;;; Written 13-Oct-87 13:21:57 by pld (Peter L. DeWolf) at site LMI Cambridge
;;; while running on Jack Flanders from band 2
;;; with Experimental System 123.49, Experimental Local-File 73.0, Experimental FILE-Server 22.0, Experimental Unix-Interface 11.0, Experimental Tape 18.0, Experimental KERMIT 34.0, Experimental ZMail 71.0, Experimental Lambda-Diag 15.0, microcode 1754, SDU Boot Tape 3.12, SDU ROM 8.



; From modified file DJ: L.NETWORK.KERNEL; LIBRARY.LISP#52 at 13-Oct-87 13:21:57
#10R NETWORK#: 
(COMPILER-LET ((*PACKAGE* (GLOBAL:PKG-FIND-PACKAGE "NETWORK")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: NETWORK; KERNEL; LIBRARY  "

(defun find-network-address-for-other-processor (op domain)
  (let* ((host-name (nth (si:op-proc-number op) (multiple-value-list (si:get-pack-name))))
	 (host (si:parse-host host-name t nil)))
    (cond (host
	   (send host :network-address domain))
	  ((eq domain :chaos)
	   ;;***Kludge -- system either isn't in pack name or isn't in site files.
	   ;;***Get the chaos address the old way
	   (let ((conf (si:op-proc-conf op)))
	     (when conf
	       (si:%processor-conf-chaos-address conf))))
	  (t nil))))

))