;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 126.35
;;; Reason:
;;;  New debugging function COMPILER:PRINT-COMP-ENV which prints the content
;;;  of a COMPILATION-ENVIRONMENT object in readable form.
;;; Written 10-Aug-88 16:03:55 by smh at site Gigamos Cambridge
;;; while running on Harpo from band 3
;;; with Experimental System 126.32, ZWEI 125.14, 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, kold 4aug88.



; From modified file DJ: L.SYS; QCDEFS.LISP#245 at 10-Aug-88 16:04:01
#8R COMPILER#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "COMPILER")))
  (PATCH-SOURCE-FILE "SYS: SYS; QCDEFS  "

(defun print-comp-env (env)
  (labels ((proosh (ht)
		   (maphash #'(lambda (k v) (format t "~%  ~a~30t~a" k v)) ht)))
    (let ((*print-length* 4)
	  (*print-level* 3))
      (format t "~&Compilation Environment for ~s" (compilation-environment-target env))
      (format t "~%Plist:")
      (proosh (compilation-environment-plist-hashtab env))
      (format t "~%Definitions:")
      (proosh (compilation-environment-macro-hashtab env))))
  (values))

))