(FILECREATED " 3-Feb-86 21:59:36" ("compiled on " {ERIS}LIBRARY>CMLSTREAMS.;3) "22-Jan-86 18:59:55" recompiled changes: FORMAT FRESH-LINE Y-OR-N-P in "Xerox Lisp 22-Jan-86 ..." dated "22-Jan-86 19:14:15") (FILECREATED " 3-Feb-86 21:59:09" {ERIS}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}LIBRARY>CMLSTREAMS.;2) FORMAT D1 (L (0 \CL:LAMBDA.ARGCNT) P 3 ARGUMENTS P 2 FORMAT-STRING P 1 STREAM) R elHñ˜oH ¿@AHl2MdLó²¿N»J hgK a_¿OµOh_¾MkÔ]°×O&_¿°ô(62Q CL:MAP 52Q PRIN1 20Q ERROR) (56Q PRIN1) ( 14Q "Too few args") FRESH-LINE D1 (L (0 \CL:LAMBDA.ARGCNT) P 1 OUTPUT-STREAM) !eHkñ˜oH ¿kHñ‘h€@I (36Q TERPRI 17Q ERROR) NIL ( 13Q "Too many args") WRITE-STRING D1 (L (0 \CL:LAMBDA.ARGCNT) P 10Q END P 5 START P 2 STREAM P 1 STRING F 11Q *STANDARD-OUTPUT*) q e@alHñ’W€AºHl¼»LdKó–¿hµj°agð”LkØ°òLlÔ\°åa½Hl_¿¾OdNó™¿hµI °agð•OkØ°îOlÔ_°ßaIJMO (156Q WRITE-STRING* 113Q CL:LENGTH) (121Q :END 46Q :START) () WRITE-STRING* D1 (L (0 \CL:LAMBDA.ARGCNT) P 4 END P 3 START P 2 STREAM P 1 STRING F 5 *STANDARD-OUTPUT*) 6e@!lHñ‘U€AºlHñ‘j€B»lHñ”I €CIKkØL J (63Q PRIN3 57Q SUBSTRING 42Q CL:LENGTH) NIL () Y-OR-N-P D1 (L (0 \CL:LAMBDA.ARGCNT) P 11Q CNT P 10Q FN P 2 ARGUMENTS P 1 FORMAT-STRING F 12Q *QUERY-IO*) x ekHñ‘h€@Hl2LdKó²¿MºI²K¿gl WIJ°0a_¿NµOh^½LkÔ\°ÑO&¾°ödýOkØ_lPñ–hl4 ¿µêOOW o (165Q MEMQ 156Q READ 137Q \LISPERROR 43Q FRESH-LINE) (47Q FORMAT) ( 162Q (Y YES)) (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) (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))))) (PUTPROPS CMLSTREAMS COPYRIGHT ("Xerox Corporation" 1985 1986)) NIL