;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 124.55
;;; Reason:
;;;  I don't want the microcode assembler to time out after 60 seconds while I am
;;;  typing in a comment.  It is not clear to me why it needs a timeout -- you
;;;  should always type in a comment, but I can live with other people's lazy
;;;  habits -- just let it wait a lot longer so my comments don't get interrupted.
;;; Written 13-Jun-88 18:49:25 by pld (Peter L. DeWolf) at site Gigamos Cambridge
;;; while running on Azathoth from band 1
;;; with Experimental System 124.54, Experimental Local-File 74.1, Experimental File-Server 23.1, Experimental Unix-Interface 12.0, Experimental ZMail 72.0, Experimental Tape 23.6, Experimental Lambda-Diag 16.1, microcode 1758, SDU Boot Tape 3.14, SDU ROM 8.



; From modified file DJ: L.ULAMBDA; LAMLP.LISP#104 at 13-Jun-88 18:49:25
#8R LAMBDA#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "LAMBDA")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: ULAMBDA; LAMLP  "

(DEFUN FILE-TEST-ALWAYS (F1 &OPTIONAL (F2 nil))
  F1 F2
  (unless comment-for-this-microassembly
    (format t "~2&Comment to put into -LOCS file to describe changes in this version.")
    (format t "  (Type END to finish.)~&")
    (setq comment-for-this-microassembly 
	  (with-timeout ((* 15. 60. 60.)
			 (format t "~2&***NO COMMENT***")
			 "***NO COMMENT***")
	    (read-delimited-string))))
  T)

))