;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 121.48
;;; Reason:
;;;  Wholine package now displays either single or double colon
;;;  depending on the state of SI::*READ-SINGLE-COLON-ALLOW-INTERNAL-SYMBOL*.
;;; Written 11-Mar-87 21:14:44 by jrm (Joe Marshall) at site LMI Cambridge
;;; while running on Lambda Four A from band 1
;;; with Experimental System 121.46, 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 1742, SDU Boot Tape 3.14, SDU ROM 102, 121.46.



; From modified file DJ: L.WINDOW; WHOLIN.LISP#104 at 11-Mar-87 21:14:47
#8R TV#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "TV")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: WINDOW; WHOLIN  "

(DEFUN WHO-LINE-PACKAGE (WHO-SHEET &AUX VAL SG)
  (DECLARE (:SELF-FLAVOR WHO-LINE-SHEET))
  (LET ((PKG (COND ((SETQ LAST-WHO-LINE-PROCESS (OR WHO-LINE-PROCESS
						    (AND SELECTED-IO-BUFFER
							 (IO-BUFFER-LAST-OUTPUT-PROCESS
							   SELECTED-IO-BUFFER))))
		    (SETQ SG (PROCESS-STACK-GROUP LAST-WHO-LINE-PROCESS))
		    (COND ((EQ SG %CURRENT-STACK-GROUP) *PACKAGE*)
			  ((TYPEP SG 'STACK-GROUP) (SYMEVAL-IN-STACK-GROUP '*PACKAGE* SG))
			  (T PACKAGE))))))
    (WHEN (AND PKG (PACKAGEP PKG)
	       (NEQ WHO-LINE-ITEM-STATE PKG))
      (PREPARE-SHEET (WHO-SHEET)
	(SHEET-CLEAR WHO-SHEET)
	(SETQ VAL (SI:PKG-SHORTEST-NAME PKG))
	(SHEET-STRING-OUT WHO-SHEET VAL
			  0 (MIN (STRING-LENGTH VAL)
				 (- (TRUNCATE (SHEET-INSIDE-WIDTH WHO-SHEET)
					       (SHEET-CHAR-WIDTH WHO-SHEET))
				    (if si::*read-single-colon-allow-internal-symbol*
					1
					2)))))
      (SHEET-TYO WHO-SHEET #/:)
      (when (not si::*read-single-colon-allow-internal-symbol*)
	(SHEET-TYO WHO-SHEET #/:))
      (SETQ WHO-LINE-ITEM-STATE PKG))))

))