(FILECREATED " 7-JUN-82 17:58:15" {INDIGO}<KBVLSI>LISP>PAGEFULLCTRL.;1
 1067   

     changes to:  PAGEFULLFN

     previous date: " 7-JUN-82 11:50:34" {IVY}<BOBROW>LISP>PAGEFULLCTRL.;1)


(PRETTYCOMPRINT PAGEFULLCTRLCOMS)

(RPAQQ PAGEFULLCTRLCOMS
 ((FNS WAITPAGEFN)
			 (VARS WAITPAGEFLG)
			 (ADVISE PAGEFULLFN)))
(DEFINEQ

(WAITPAGEFN

  [LAMBDA NIL                                                (* dgb: " 7-JUN-82 11:46")

    (PROG NIL
      LP  (COND
	    ((KEYDOWNP (QUOTE CTRL))                         (* WAIT IF THE CTRL KEY IS DOWN)

	      (COND
		((KEYDOWNP (QUOTE LSHIFT))                   (* Hold page using ordinary page full fn if no 

							     typeahead)

		  (RETURN NIL)))
	      (GO LP)))
          (COND
	    (WAITPAGEFLG                                     (* Use ordinary function if WAITPAGEFLG is T)

			 (RETURN NIL)))
          (RETURN T])
)

(RPAQQ WAITPAGEFLG
 NIL)

(PUTPROPS PAGEFULLFN READVICE
 [NIL (BEFORE NIL (COND ((WAITPAGEFN)
						      (RETURN T])
(READVISE PAGEFULLFN)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (322 898 (WAITPAGEFN 332 . 896)))))
STOP