;;; -*- Mode:Lisp; Readtable:T; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for System version 126.136
;;; Reason:
;;;  Variable FORMAT:*ALLOW-FQUERY-TIMEOUTS*: Allows users to turn off the timeout-default feature in FQUERY and friends.
;;;  Function FORMAT:FQUERY-DECODE-OPTIONS: Obey FORMAT:*ALLOW-FQUERY-TIMEOUTS*.
;;; Written 28-Oct-88 18:46:21 by CStacy (Christopher C. Stacy) at site Gigamos Cambridge
;;; while running on Boris Badinoff from band 1
;;; with Experimental System 126.132, Experimental ZWEI 126.27, Experimental ZMail 74.13, Experimental Local-File 76.0, Experimental File-Server 25.0, Experimental Lambda-Diag 18.0, Experimental Unix-Interface 15.0, Experimental Tape 26.4, Experimental Hun La 2.0, Microcode 1762, SDU Boot Tape 3.14, SDU ROM 8, KCOLD System.



; From modified file DJ: L.IO1; FQUERY.LISP#60 at 28-Oct-88 18:46:22
#8R FORMAT#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "FORMAT")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: IO1; FQUERY  "

(DEFVAR *ALLOW-FQUERY-TIMEOUTS* T
  "T if you want the :TIMEOUT option to be noticed.")

))

; From modified file DJ: L.IO1; FQUERY.LISP#60 at 28-Oct-88 18:46:37
#8R FORMAT#: 
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "FORMAT")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: IO1; FQUERY  "

(DEFUN FQUERY-DECODE-OPTIONS (&KEY (MAKE-COMPLETE T)
			      	   (TYPE :TYI)
				   (CHOICES Y-OR-N-P-CHOICES)
				   STREAM
				   BEEP
				   CLEAR-INPUT
				   (FRESH-LINE T)
				   (CONDITION 'FQUERY)
				   SIGNAL-CONDITION
				   (LIST-CHOICES T)
				   SELECT     ;no longer used
				   (HELP-FUNCTION 'DEFAULT-FQUERY-HELP)
				   DEFAULT-VALUE
				   TIMEOUT)
  SIGNAL-CONDITION SELECT
  (LET((CHOICES (IF (EQ CHOICES :ANY) '(:ANY) CHOICES)))
    (VALUES MAKE-COMPLETE TYPE CHOICES STREAM BEEP CLEAR-INPUT
	    FRESH-LINE CONDITION LIST-CHOICES HELP-FUNCTION
	    DEFAULT-VALUE
	    (IF *ALLOW-FQUERY-TIMEOUTS* TIMEOUT))))

))