(FILECREATED "23-Jun-86 18:09:43" {ERIS}<LISPCORE>LIBRARY>CMLSTREAMS.;10
 2601   

      changes to:  (VARS CMLSTREAMSCOMS)

      previous date: " 3-Jun-86 15:47:55" {ERIS}<LISPCORE>LIBRARY>CMLSTREAMS.;9)


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

(PRETTYCOMPRINT CMLSTREAMSCOMS)

(RPAQQ CMLSTREAMSCOMS
 [(FNS FRESH-LINE WRITE-STRING WRITE-STRING* Y-OR-N-P)
                       (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
                              (ADDVARS (NLAMA)
                                     (NLAML)
                                     (LAMA Y-OR-N-P WRITE-STRING* WRITE-STRING FRESH-LINE])
(DEFINEQ

(FRESH-LINE

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

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

(WRITE-STRING

  (CL:LAMBDA (STRING &OPTIONAL (STREAM *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 *STANDARD-OUTPUT*)
                    (START 0)
                    (END (CL:LENGTH STRING)))
                (* amd " 2-May-86 14:06")

    (PRIN3 (SUBSEQ STRING START END)
           STREAM)))

(Y-OR-N-P
  [CL:LAMBDA (&OPTIONAL FORMAT-STRING &REST ARGUMENTS)                     (* raf 
                                                                           " 3-Feb-86 12:02")
    (COND
       (FORMAT-STRING (FRESH-LINE)
              (CL:APPLY (FUNCTION FORMAT)
                     *QUERY-IO* FORMAT-STRING ARGUMENTS)))
    (MEMQ (READ *QUERY-IO*)
          (QUOTE (Y YES])
)
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 Y-OR-N-P WRITE-STRING* WRITE-STRING FRESH-LINE)
)
(PRETTYCOMPRINT CMLSTREAMSCOMS)

(RPAQQ CMLSTREAMSCOMS
 [(FNS FRESH-LINE WRITE-STRING WRITE-STRING* Y-OR-N-P)
                       (DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS
                              (ADDVARS (NLAMA)
                                     (NLAML)
                                     (LAMA Y-OR-N-P WRITE-STRING* WRITE-STRING])
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 Y-OR-N-P WRITE-STRING* WRITE-STRING)
)
(PUTPROPS CMLSTREAMS COPYRIGHT ("Xerox Corporation" 1985 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (667 1800 (FRESH-LINE 677 . 872) (WRITE-STRING 874 . 1149) (WRITE-STRING* 1151 . 1410) (
Y-OR-N-P 1412 . 1798)))))
STOP