;;; -*- Mode:Lisp; Readtable:ZL; Package:DVI; Base:10; Patch-File:T -*-
;;; Patch file for DVI version 5.1
;;; Reason:
;;;  fix pxl file size extraction
;;; Written 9-Jul-86 19:11:13 by GJC (George Carrette) at site LMI Cambridge
;;; while running on Moe from band 1
;;; with Experimental System 116.7, Experimental Lambda-Diag 10.0, Experimental Local-File 70.0, Experimental FILE-Server 19.0, Experimental ZMail 66.0, Experimental TCP-Kernel 40.0, Experimental TCP-User 63.0, Experimental TCP-Server 46.0, Experimental DVI 5.0, microcode 1660, SDU Boot Tape 3.13, SDU ROM 103.



; From file DJ: GJCX.DVI; DVI.LISP#22 at 9-Jul-86 19:11:13
#10R DVI#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "DVI")))
  (COMPILER::PATCH-SOURCE-FILE "DJ: GJCX.DVI; DVI.#"

(defun extract-pxl-pathname-size (pxl-pathname)
  (let ((s (send pxl-pathname :type)))
    (parse-integer s :end (string-search "p" s))))

))