(DEFINE-FILE-INFO §READTABLE "INTERLISP" §PACKAGE "INTERLISP")

(FILECREATED "23-Oct-86 15:25:32" {ERIS}<LISPCORE>SOURCES>CMLMISCIO.;2
 3257   

      previous date%: "27-Aug-86 16:18:15" {ERIS}<LISPCORE>SOURCES>CMLMISCIO.;1)


(* "
Copyright (c) 1986 by Xerox Corporation.  All rights reserved.
")

(PRETTYCOMPRINT CMLMISCIOCOMS)

(RPAQQ CMLMISCIOCOMS
 ((FNS CL:FRESH-LINE CL:WRITE-STRING WRITE-STRING* CL:Y-OR-N-P CL:YES-OR-NO-P)
                      (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
                             (ADDVARS (NLAMA)
                                    (NLAML)
                                    (LAMA CL:YES-OR-NO-P CL:Y-OR-N-P WRITE-STRING* CL:WRITE-STRING 
                                          CL:FRESH-LINE)))))
(DEFINEQ

(CL:FRESH-LINE

  (CL:LAMBDA (&OPTIONAL (OUTPUT-STREAM CL:*STANDARD-OUTPUT*))
(* amd " 5-May-86 19:20")

         (CL:UNLESS (ZEROP (POSITION OUTPUT-STREAM))
                (TERPRI OUTPUT-STREAM))))

(CL:WRITE-STRING

  (CL:LAMBDA (STRING &OPTIONAL (STREAM CL:*STANDARD-OUTPUT*)
                    &KEY
                    (START 0)
                    (END (CL:LENGTH STRING)))
                (* amd " 2-May-86 14:06")

         (WRITE-STRING*
 STRING STREAM START END)))

(WRITE-STRING*

  (CL:LAMBDA (STRING &OPTIONAL (STREAM CL:*STANDARD-OUTPUT*)
                    (START 0)
                    (END (CL:LENGTH STRING)))
                (* jrb%: "30-Jun-86 21:22")

          
          (* * "This used to blow up when fed a null string")


         (PRIN3 (CL:IF (AND (CL:EQUAL STRING "")
                            (CL:ZEROP START)
                            (CL:ZEROP END))
                       ""
                       (CL:SUBSEQ STRING START END))
                STREAM)))

(CL:Y-OR-N-P

  (CL:LAMBDA (&OPTIONAL FORMAT-STRING &REST ARGUMENTS)
       (* raf " 3-Feb-86 12:02")

         (COND
            (FORMAT-STRING (CL:FRESH-LINE
)
                   (CL:APPLY (FUNCTION FORMAT)
                          CL:*QUERY-IO* FORMAT-STRING ARGUMENTS)))
         (MEMQ (READ CL:*QUERY-IO*)
               '(Y YES))))

(CL:YES-OR-NO-P

  (CL:LAMBDA (&OPTIONAL FORMAT-STRING &REST ARGUMENTS)
       (* kbr%: " 2-Jul-86 17:43")

         (CL:WHEN FORMAT-STRING (CL:FRESH-LINE
 CL:*QUERY-IO*)
                (CL:APPLY #'FORMAT CL:*QUERY-IO* FORMAT-STRING ARGUMENTS))
         (CL:DO ((ANS (CL:READ-LINE CL:*QUERY-IO*)
                      (CL:READ-LINE CL:*QUERY-IO*)))
                (NIL)
                (COND
                   ((STRING-EQUAL ANS "YES")
                    (RETURN T))
                   ((STRING-EQUAL ANS "NO")
                    (RETURN NIL))
                   (T (CL:WRITE-LINE "Type YES for yes or NO for no. " CL:*QUERY-IO*)
                      (CL:WHEN FORMAT-STRING (CL:APPLY #'FORMAT CL:*QUERY-IO* FORMAT-STRING ARGUMENTS
                                                    )))))))
)
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 CL:YES-OR-NO-P CL:Y-OR-N-P WRITE-STRING* CL:WRITE-STRING CL:FRESH-LINE)
)
(PUTPROPS CMLMISCIO COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (774 2973 (CL:FRESH-LINE 784 . 992) (CL:WRITE-STRING 994 . 1280) (WRITE-STRING* 1282 . 
1809) (CL:Y-OR-N-P 1811 . 2161) (CL:YES-OR-NO-P 2163 . 2971)))))
STOP