;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 126.68
;;; Reason:
;;;  Minor economization of screen real estate when printing internal PROGDESC
;;;  structures in the compiler.
;;; Written 2-Sep-88 17:22:06 by smh (Steve Haflich) at site Gigamos Cambridge
;;; while running on Harpo from band 3
;;; with Experimental System 126.66, ZWEI 125.19, ZMail 73.2, Local-File 75.2, File-Server 24.1, Unix-Interface 13.0, Tape 24.2, Lambda-Diag 17.0, microcode 1762, SDU Boot Tape 3.12, SDU ROM 102, K30aug.



; From modified file DJ: L.SYS; QCDEFS.LISP#250 at 2-Sep-88 17:22:27
#8R COMPILER#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "COMPILER")))
  (PATCH-SOURCE-FILE "SYS: SYS; QCDEFS  "

(defun print-progdesc (progdesc stream level)
  (declare (ignore level))
  (printing-random-object (progdesc stream :type)
    (format stream "~S  ~A~@[; Frame level = ~S~]"
	    (progdesc-name progdesc)
	    (progdesc-idest progdesc)
	    (progdesc-open-frames progdesc))))

))