;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 121.49
;;; Reason:
;;;  added the function DISK-PARTITION-COMMENT-STRING because I wanted it.
;;;  It's well worth its weight in sliced bread.
;;; Written 16-Mar-87 15:02:50 by naha at site LMI Cambridge
;;; while running on Love from band 2
;;; with Experimental System 121.48, Experimental Lambda-Diag 15.0, Experimental ZMail 70.2, Experimental KERMIT 32.0, Experimental Unix-Interface 10.0, Experimental Local-File 72.0, Experimental FILE-Server 21.0, Experimental Tape 13.0, microcode 1733, SDU Boot Tape 3.13, SDU ROM 102, 121.35.



; From file DJ: L.IO; DISK.LISP#414 at 16-Mar-87 15:02:51
#8R SYSTEM-INTERNALS#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "SYSTEM-INTERNALS")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: IO; DISK  "

(defun disk-partition-comment-string (rqb loc)
  "Get the comment string for a disk partition.
RQB is the one that was passed to FIND-DISK-PARTITION.
LOC is the label location of the partition entry in the
disk label as returned by FIND-DISK-PARTITION."
  (let* ((words-before-comment (ecase (get-disk-fixnum rqb 1)
				 (1 3)
				 (2 4)))
	 (words-per-part (get-disk-fixnum rqb (ecase (get-disk-fixnum rqb 1)
						(1 #o201)
						(2 (+ 256. 3))))))
    (get-disk-string rqb
		     (+ loc words-before-comment)
		     (* 4 (- words-per-part words-before-comment))
		     nil)))

))