(FILECREATED " 3-Feb-86 21:59:09" {ERIS}<LISPCORE>LIBRARY>CMLSTREAMS.;3 2798   

      changes to:  (VARS CMLSTREAMSCOMS *QUERY-IO*)
                   (FNS FRESH-LINE FORMAT Y-OR-N-P)

      previous date: " 1-Aug-85 21:57:50" {ERIS}<LISPCORE>LIBRARY>CMLSTREAMS.;2)


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

(PRETTYCOMPRINT CMLSTREAMSCOMS)

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

(RPAQQ *QUERY-IO* NIL)

(RPAQQ *STANDARD-OUTPUT* T)
(DEFINEQ

(FORMAT
  (CL:LAMBDA (STREAM FORMAT-STRING &REST ARGUMENTS)                        (* raf 
                                                                           " 3-Feb-86 12:03")
    (PRIN1 FORMAT-STRING)
    (CL:MAP NIL (FUNCTION PRIN1)
           ARGUMENTS)))

(FRESH-LINE
  (CL:LAMBDA (&OPTIONAL OUTPUT-STREAM)
    (TERPRI OUTPUT-STREAM)))

(WRITE-STRING

(CL:LAMBDA (STRING &OPTIONAL (STREAM *STANDARD-OUTPUT*) &KEY (START 0) (END (CL:LENGTH STRING))) (* 
lmm " 1-Aug-85 21:57") (WRITE-STRING* STRING STREAM START END)))

(WRITE-STRING*

(CL:LAMBDA (STRING &OPTIONAL (STREAM *STANDARD-OUTPUT*) (START 0) (END (CL:LENGTH STRING))) (* lmm 
" 1-Aug-85 21:57") (PRIN3 (SUBSTRING STRING (ADD1 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 WRITE-STRING* WRITE-STRING)
)
(PRETTYCOMPRINT CMLSTREAMSCOMS)

(RPAQQ CMLSTREAMSCOMS [(VARS *QUERY-IO* *STANDARD-OUTPUT*)
                       (FNS FORMAT 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 FORMAT])
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA )

(ADDTOVAR NLAML )

(ADDTOVAR LAMA Y-OR-N-P WRITE-STRING* WRITE-STRING FRESH-LINE FORMAT)
)
(PUTPROPS CMLSTREAMS COPYRIGHT ("Xerox Corporation" 1985 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (818 1943 (FORMAT 828 . 1095) (FRESH-LINE 1097 . 1176) (WRITE-STRING 1178 . 1361) (
WRITE-STRING* 1363 . 1553) (Y-OR-N-P 1555 . 1941)))))
STOP