(FILECREATED " 1-Aug-85 21:57:50" {ERIS}<LISPCORE>LIBRARY>CMLSTREAMS.;2
 1233   

      changes to:  (FNS WRITE-STRING WRITE-STRING*) (VARS CMLSTREAMSCOMS *STANDARD-OUTPUT*)

      previous date: "31-Jul-85 04:48:46" {ERIS}<LISPCORE>LIBRARY>CMLSTREAMS.;1)


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

(PRETTYCOMPRINT CMLSTREAMSCOMS)

(RPAQQ CMLSTREAMSCOMS
 ((VARS *STANDARD-OUTPUT*) (FNS WRITE-STRING WRITE-STRING*) (DECLARE: 
DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA WRITE-STRING* 
WRITE-STRING)))))

(RPAQQ *STANDARD-OUTPUT*
 T)
(DEFINEQ

(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)))
)
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 WRITE-STRING* WRITE-STRING)
)
(PUTPROPS CMLSTREAMS COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (607 994 (WRITE-STRING 617 . 800) (WRITE-STRING* 802 . 992)))))
STOP