;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for CDI version 1.6
;;; Reason:
;;;  Fix up a couple of little problems.
;;; Written 15-May-86 10:55:54 by PTM at site LMI Cambridge
;;; while running on Explorer One from band 1
;;; with System 110.232, Lambda-Diag 7.17, Experimental Local-File 68.7, FILE-Server 18.4, Unix-Interface 9.1, ZMail 65.14, Object Lisp 3.4, Tape 6.39, Site Data Editor 3.3, Tiger 24.0, KERMIT 31.3, Window-Maker 1.1, Gateway 4.8, TCP-Kernel 39.7, TCP-User 62.7, TCP-Server 45.5, MEDIUM-RESOLUTION-COLOR 3.4, MICRO-COMPILATION-TOOLS 3.2, System Revision Level 3.26, Experimental CDI 1.5, Experimental NVRAM 4.0, microcode 1514.



; From modified file DJ: L.IO; DLEDIT.LISP#93 at 15-May-86 10:56:00
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: IO; DLEDIT  "


(DEFUN CURRENT-BAND (&OPTIONAL UNIT MICRO-P)
  "Return the name of the current Lisp system (LOD) band.
UNIT can be a name of a machine, a number of a disk drive,
or a string containing CC."
  (setq unit (default-disk-unit unit))
  (with-decoded-disk-unit (unit unit "Reading Label")
    (with-disk-rqb (rqb disk-label-rqb-pages)
      (READ-DISK-LABEL RQB UNIT)
      (ecase (get-disk-fixnum rqb 1)
	(1 (GET-DISK-STRING RQB (IF MICRO-P 6 7) 4))
	(2 (find-v2-band rqb (if micro-p 1 0) nil))
	 ))))

))

; From modified file DJ: L.IO; DLEDIT.LISP#93 at 15-May-86 10:56:02
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: IO; DLEDIT  "


(Defun default-disk-unit (unit)
  (if (null unit)
      (select-processor
	((:cadr :lambda) 0)
	(:explorer (explorer-lod-band-logical-unit)))
    unit)
  )

))