Browse files

minor changes

  • Loading branch information...
1 parent e8658e8 commit 28e57ae2ab9a367da0fa05a2f72d141cab4caad8 @trebb committed Jun 11, 2008
Showing with 162 additions and 158 deletions.
  1. +1 −0 DATE.tex
  2. +11 −8 Makefile
  3. +1 −1 REVISION.tex
  4. +143 −142 clqr-input-output.tex
  5. +6 −7 clqr.tex
View
1 DATE.tex
@@ -0,0 +1 @@
+2008-06-11
View
19 Makefile
@@ -24,9 +24,9 @@ CP = cp --verbose
RM = rm --force --verbose
MV = mv --force --verbose
MAKE = make
-BZR_REVISION = bzr revno
+BZR_REVISION = bzr revno | tr -d '\n\\'
BZR_EXPORT = bzr export
-DATE = date -I
+DATE = date -I | tr -d '\n\\'
RSYNC = rsync -va
all: letter a4
@@ -77,23 +77,23 @@ paper-letter.flag:
$(RM) paper-a4.flag $(SEND-TO-LOG)
$(TOUCH) $@
-REVISION.tex: $(CLQR).tex $(CLQR)-*.tex
+REVISION.tex: DATE.tex
if $(BZR_REVISION); then $(BZR_REVISION) > $@; else $(TOUCH) $@; fi $(SEND-TO-LOG)
+DATE.tex: $(CLQR).tex $(CLQR)-*.tex
+ $(DATE) > $@
+
clean:
$(RM) *.dvi *.toc *.aux *.log *.idx *.ilg *.ind *.ps *.pdf *~ html/*~ *.flag *.jpg html/*.jpg *.tar.gz
-publishclean:
- $(RM) *~ html/*~
-
# Project hosting
maintainance: letter a4 release publish
publish: html/sample-frontcover.jpg html/sample-doublepage.jpg \
html/sample-firstpage-all.jpg html/sample-firstpage-four.jpg \
- html/sample-firstpage-consec.jpg $(CLQR)-a4-consec.pdf REVISION.tex
+ html/sample-firstpage-consec.jpg $(CLQR)-a4-consec.pdf
$(MAKE) publishclean
$(RSYNC) --delete ./ trebb@shell.berlios.de:/home/groups/ftp/pub/clqr/clqr/ $(SEND-TO-LOG)
$(RSYNC) ./html/ trebb@shell.berlios.de:/home/groups/clqr/htdocs/ $(SEND-TO-LOG)
@@ -102,7 +102,7 @@ release: letter a4 $(CLQR).tar.gz html/release-revision.txt html/release-date.tx
./upload.sh
html/release-date.txt:
- $(DATE) >> $@
+ $(DATE) > $@
html/release-revision.txt:
$(BZR_REVISION) > $@
@@ -129,3 +129,6 @@ html/sample-firstpage-consec.jpg: $(CLQR)-a4-consec.pdf
$(CLQR).tar.gz:
$(BZR_EXPORT) $@ $(SEND-TO-LOG)
+
+publishclean:
+ $(RM) *~ html/*~
View
2 REVISION.tex
@@ -1 +1 @@
-11
+12
View
285 clqr-input-output.tex
@@ -392,9 +392,25 @@ \subsection{Printer}
\Op{\VAR{table}\DF{*print-pprint-dispatch*}})}
Return \retval{copy of \VAR{table}}.
+ \IT{\V*{*print-pretty*}}
+ If \T, print pretty.
+
+ \IT{\V*{*print-case*}\DF{\kwd{:upcase}}}
+ Print symbol names all uppercase (\kwd{:upcase}), all lowercase
+ (\kwd{:downcase}), capitalized (\kwd{:capitalize}).
+
+ \IT{\V*{*print-readably*}\DF{\NIL}}
+ If \T, print \FU{read}ably.
+
+ \IT{\V*{*print-array*}}
+ If \T, print array \FU{read}ably.
+
\IT{\V*{*print-escape*}\DF{\T}}
If \NIL, do not print escape characters and package prefixes.
+ \IT{\V*{*print-gensym*}\DF{\T}}
+ If \T, print \kwd{:\#} before uninterned symbols.
+
\IT{\V*{*print-radix*}\DF{\NIL}}
If \T, print rationals with a radix indicator.
@@ -405,40 +421,24 @@ \subsection{Printer}
If \T, avoid indefinite recursion while printing circular
structure.
- \IT{\V*{*print-pretty*}}
- If \T, print pretty.
-
- \IT{\V*{*print-level*}\DF{\NIL}}
- If integer, restrict printing of nested object to that depth.
+ \IT{\V*{*print-lines*}\DF{\NIL}}
+ Number of lines to pretty-print.
\IT{\V*{*print-length*}\DF{\NIL}}
If integer, restrict printing of objects to that number per level.
- \IT{\V*{*print-case*}\DF{\kwd{:upcase}}}
- Print symbol names all uppercase (\kwd{:upcase}), all lowercase
- (\kwd{:downcase}), capitalized (\kwd{:capitalize}).
-
- \IT{\V*{*print-gensym*}\DF{\T}}
- If \T, print \kwd{:\#} before uninterned symbols.
-
- \IT{\V*{*print-array*}}
- If \T, print array \FU{read}ably.
-
- \IT{\V*{*print-readably*}\DF{\NIL}}
- If \T, print \FU{read}ably.
+ \IT{\V*{*print-level*}\DF{\NIL}}
+ If integer, restrict printing of nested object to that depth.
- \IT{\V*{*print-lines*}\DF{\NIL}}
- Number to the number of lines to pretty-print.
+ \IT{\V*{*print-right-margin*}\DF{\NIL}}
+ Right margin width in ems while pretty-printing.
\IT{\V*{*print-miser-width*}}
Width below which a compact pretty-printing style is used.
\IT{\V*{*print-pprint-dispatch*}}
Current pretty print dispatch table.
- \IT{\V*{*print-right-margin*}\DF{\NIL}}
- Width in ems for the right margin while pretty-printing..
-
\end{LIST}
@@ -466,22 +466,14 @@ \subsection{Format}
\begin{LIST}{.5cm}
- \IT{\Goo{\KWD{\TLD C}\XOR\KWD{\TLD :C}\XOR\KWD{\TLD @:C}}}
- Print, spell out, or tell how to type, resp., argument as
- (possibly non-printing) character.
-
- \IT{\Goo{\KWD{\TLD\%}\XOR\KWD{\TLD}\VAR{n}\KWD{\%}}}
- Print one or \VAR{n} newline(s).
-
- \IT{\Goo{\KWD{\TLD\&}\XOR\KWD{\TLD}\VAR{n}\KWD{\&}}}
- Print one or \VAR{n} newline(s) unless output stream is at the
- beginning of a line.
-
- \IT{\Goo{\KWD{\TLD\boldmath$|$}\XOR\KWD{\TLD}\VAR{n}\KWD{\boldmath$|$}}}
- Print one or \VAR{n} page separator(s).
-
- \IT{\Goo{\KWD{\TLD\TLD}\XOR\KWD{\TLD}\VAR{n}\KWD{\TLD}}}
- Print one or \VAR{n} tilde(s).
+ \IT{\KWD{\TLD}\Op{\VAR{min-col}\DF{\LIT{0}}\Op{\KWD{,}\VAR{col-inc}\DF{\LIT{1}}
+ \Op{\KWD{,}\VAR{min-pad}\DF{\LIT{0}}
+ \Op{\KWD{,}\VAR{pad-char}\DF{\LIT{\#$\backslash$Space}}}}}}
+ \KWD{\Op{:}\Op{@}\Goo{A\XOR S}}}
+ Print argument of any type for consumption by humans/by the
+ reader, resp. With \kwd{@}, add \VAR{pad-char}s on the left
+ rather than on the right. With \kwd{:} print \NIL\ as \LIT{()} rather
+ than \LIT{nil}.
\IT{\KWD{\TLD}\Op{\VAR{radix}\DF{\LIT{10}} \Op{\KWD{,}\VAR{width}
\Op{\KWD{,}\VAR{pad-char}\DF{\KWD{\#$\backslash$Space}}
@@ -490,11 +482,6 @@ \subsection{Format}
Print argument as number, with \KWD{:}, group digits
\VAR{comma-interval} each, with \kwd{@}, always prepend a sign.
- \IT{\Goo{\KWD{\TLD R}\XOR\KWD{\TLD :R}\XOR\KWD{\TLD @R}\XOR\KWD{\TLD @:R}}}
- Take argument as number and print it as English cardinal number,
- as English ordinal number, as Roman numeral, or as old Roman
- numeral, resp.
-
\IT{\KWD{\TLD}\Op{\VAR{width}
\Op{\KWD{,}\VAR{pad-char}\DF{\KWD{\#$\backslash$Space}}
\Op{\KWD{,}\VAR{comma-char}\DF{\KWD{,}}
@@ -517,22 +504,51 @@ \subsection{Format}
before decimal point and \VAR{exp-digits} in the
exponent. With \KWD{\TLD G}, chose either \KWD{\TLD E} or \KWD{\TLD F}. With \KWD{@}, always prepend a sign.
- \IT{\KWD{\TLD}\Op{\VAR{min-col}\DF{\LIT{0}}\Op{\KWD{,}\VAR{col-inc}\DF{\LIT{1}}
- \Op{\KWD{,}\VAR{min-pad}\DF{\LIT{0}}
- \Op{\KWD{,}\VAR{pad-char}\DF{\LIT{\#$\backslash$Space}}}}}} \KWD{\Op{:}\Op{@}\Goo{A\XOR S}}}
- Print argument of any type for consumption by humans/by the
- reader, resp. With \kwd{@}, add \VAR{pad-char}s on the left
- rather than on the right. With \kwd{:} print \NIL\ as \LIT{()} rather
- than \LIT{nil}.
+ \IT{\Goo{\KWD{\TLD R}\XOR\KWD{\TLD :R}\XOR\KWD{\TLD @R}\XOR\KWD{\TLD @:R}}}
+ Take argument as number and print it as English cardinal number,
+ as English ordinal number, as Roman numeral, or as old Roman
+ numeral, resp.
- \IT{\KWD{\TLD\Op{:}\Op{@}W}}
- Print obeying every printer control variable. \kwd{:} makes it
- pretty-print. With \kwd{@}, prints without limits on length or depth.
+ \IT{\Goo{\KWD{\TLD C}\XOR\KWD{\TLD :C}\XOR\KWD{\TLD @:C}}}
+ Print, spell out, or tell how to type, resp., argument as
+ (possibly non-printing) character.
+
+ \IT{\Goo{%
+ \KWD{\TLD(}\VAR{text}\KWD{\TLD)}\XOR
+ \KWD{\TLD:(}\VAR{text}\KWD{\TLD)}\XOR
+ \KWD{\TLD @(}\VAR{text}\KWD{\TLD)}\XOR
+ \KWD{\TLD:@(}\VAR{text}\KWD{\TLD)}}}
+ Convert to lowercase, convert first letter of each word to
+ uppercase, capitalize first word and convert
+ the rest to lowercase, or convert to uppercase, resp.
+
+ \IT{\Goo{\KWD{\TLD P}\XOR\KWD{\TLD:P}
+ \XOR\KWD{\TLD @P}\XOR\KWD{\TLD:@P}}}
+ If argument \kwd{eql} 1 print nothing, otherwise print \LIT{s};
+ do the same after backing up 1 argument; if argument \kwd{eql} 1
+ print \LIT{y}, otherwise print \LIT{ies}, resp.
+
+ \IT{\Goo{\KWD{\TLD\%}\XOR\KWD{\TLD}\VAR{n}\KWD{\%}}}
+ Print one or \VAR{n} newline(s).
+
+ \IT{\Goo{\KWD{\TLD\&}\XOR\KWD{\TLD}\VAR{n}\KWD{\&}}}
+ Print one or \VAR{n} newline(s) unless output stream is at the
+ beginning of a line.
\IT{\Goo{\KWD{\TLD}\_\XOR\KWD{\TLD:}\_\XOR\KWD{\TLD@}\_\XOR\KWD{\TLD}:@\_}}
Print newline like \kwd{pprint-newline} with argument
\kwd{:linear}, \kwd{:fill}, \kwd{:miser}, or \kwd{:mandatory}, resp.
+ \IT{\KWD{\TLD}\Op{\KWD{@}}}
+ (Tilde-newline) Ignore newline and following
+ whitespace. With \kwd{@}, ignore only newline.
+
+ \IT{\Goo{\KWD{\TLD\boldmath$|$}\XOR\KWD{\TLD}\VAR{n}\KWD{\boldmath$|$}}}
+ Print one or \VAR{n} page separator(s).
+
+ \IT{\Goo{\KWD{\TLD\TLD}\XOR\KWD{\TLD}\VAR{n}\KWD{\TLD}}}
+ Print one or \VAR{n} tilde(s).
+
\IT{\KWD{\TLD}\Op{\VAR{min-col}\DF{\LIT{0}}
\Op{\KWD{,}\VAR{col-inc}\DF{\LIT{1}}
\Op{\KWD{,}\VAR{min-pad}\DF{\LIT{0}}
@@ -541,27 +557,18 @@ \subsection{Format}
Justify text produced by \VAR{text}s in a field of at least
\VAR{min-col} columns.
- \IT{\Goo{\KWD{\TLD}\Op{\VAR{n}\DF{\LIT{0}}}\kwd{I}\XOR\KWD{\TLD}\Op{\VAR{n}\DF{\LIT{0}}}\kwd{:I}}}
- Same as (\kwd{pprint-indent} \kwd{:block} \VAR{n}) or
- (\kwd{pprint-indent} \kwd{:current} \VAR{n}), resp.
-
- \IT{\KWD{\TLD\Op{:}\Op{@}/}\VAR{foo}\KWD{/}}
- Call function \VAR{foo} with arguments stream, format-argument,
- bool-colon, and bool-at for printing format-argument.
-
\IT{\KWD{\TLD}\Op{\VAR{c}\Op{\KWD{,}\VAR{i}}}\Op{\KWD{:}}\Op{\KWD{@}}\KWD{T}}
Move cursor forward to column number $c + ki$, $k \geq 0$ being as small
as possible.
+ \IT{\Goo{\KWD{\TLD}\Op{\VAR{n}\DF{\LIT{0}}}\kwd{I}\XOR\KWD{\TLD}\Op{\VAR{n}\DF{\LIT{0}}}\kwd{:I}}}
+ Same as (\kwd{pprint-indent} \kwd{:block} \VAR{n}) or
+ (\kwd{pprint-indent} \kwd{:current} \VAR{n}), resp.
+
\IT{\KWD{\TLD}\Op{\VAR{n}}\DF{\LIT{0}}\Op{\KWD{:}}\Op{\KWD{@}}\KWD{*}}
Jump \VAR{n} arguments forward, or, with \kwd{:}, backward. With
\kwd{@}, jump to argument \VAR{n}.
- \IT{\KWD{\TLD}\Op{\VAR{i}}\Op{\KWD{:}}\Op{\KWD{@}}\KWD{[}\Goos{\VAR{text}\KWD{\TLD;}}\KWD{\TLD]}}
- The \VAR{text}s are clauses the argumenth (or the \VAR{i}th if given) of wich is chosen. With
- \kwd{:}, the boolean argument takes first \VAR{str} for \NIL\ and
- second for \T.
-
\IT{\KWD{\TLD}\Op{\VAR{limit}}\Op{\KWD{{:}}\Op{\kwd{@}}}%
\KWD{\boldmath{$\{$}}\VAR{text}\KWD{\TLD\boldmath{$\}$}}}
\VAR{text} is used repeatedly, up to \VAR{limit}, as control string for every element
@@ -570,32 +577,26 @@ \subsection{Format}
\kwd{:}, argument should be a list of sublists. At each iteration
step the elements of a sublist can be used by \VAR{str}.
+ \IT{\KWD{\TLD\^{}}}
+ Leave immediately \kwd{\TLD\boldmath{$<$}} or \kwd{\TLD\boldmath{$\{$}}.
+
+ \IT{\KWD{\TLD}\Op{\VAR{i}}\Op{\KWD{:}}\Op{\KWD{@}}\KWD{[}\Goos{\VAR{text}\KWD{\TLD;}}\KWD{\TLD]}}
+ The \VAR{text}s are clauses the argumenth (or the \VAR{i}th if given) of wich is chosen. With
+ \kwd{:}, the boolean argument takes first \VAR{str} for \NIL\ and
+ second for \T.
+
\IT{\KWD{\TLD\Op{:}\Op{@}?}}
Process two arguments as format string and argument list. With
\kwd{@}, take one argument as format string and use then the
original argument list
- \IT{\Goo{%
- \KWD{\TLD(}\VAR{text}\KWD{\TLD)}\XOR
- \KWD{\TLD:(}\VAR{text}\KWD{\TLD)}\XOR
- \KWD{\TLD @(}\VAR{text}\KWD{\TLD)}\XOR
- \KWD{\TLD:@(}\VAR{text}\KWD{\TLD)}}}
- Convert to lowercase, convert first letter of each word to
- uppercase, capitalize first word and convert
- the rest to lowercase, or convert to uppercase, resp.
-
- \IT{\Goo{\KWD{\TLD P}\XOR\KWD{\TLD:P}
- \XOR\KWD{\TLD @P}\XOR\KWD{\TLD:@P}}}
- If argument \kwd{eql} 1 print nothing, otherwise print \LIT{s};
- do the same after backing up 1 argument; if argument \kwd{eql} 1
- print \LIT{y}, otherwise print \LIT{ies}, resp.
-
- \IT{\KWD{\TLD\^{}}}
- Leave immediately \kwd{\TLD\boldmath{$<$}} or \kwd{\TLD\boldmath{$\{$}}.
+ \IT{\KWD{\TLD\Op{:}\Op{@}/}\VAR{foo}\KWD{/}}
+ Call function \VAR{foo} with arguments stream, format-argument,
+ bool-colon, and bool-at for printing format-argument.
- \IT{\KWD{\TLD}\Op{\KWD{@}}}
- (Tilde-newline) Ignore newline and following
- whitespace. With \kwd{@}, ignore only newline.
+ \IT{\KWD{\TLD\Op{:}\Op{@}W}}
+ Print obeying every printer control variable. \kwd{:} makes it
+ pretty-print. With \kwd{@}, print without limits on length or depth.
\end{LIST}
@@ -622,70 +623,33 @@ \subsection{Streams}
\IT{(\FU*{CLOSE} \VAR{stream} \Op{\kwd{:abort} \VAR{bool}\DF{\NIL}})}
Close \VAR{stream}. If \kwd{:abort} is \T, delete associated file.
- \IT{(\FU*{CLEAR-INPUT}
- \Op{\VAR{stream}\DF{\kwd{*standard-input*}}})}
- Clear input from \VAR{stream}, return \retval{\NIL}.
-
- \IT{(\xorGOO{\FU*{CLEAR-OUTPUT}\\
- \FU*{FORCE-OUTPUT}\\
- \FU*{FINISH-OUTPUT}}{\}}%
- \Op{\VAR{stream}\DF{\kwd{standard-output}}})}
- End output to \VAR{stream} and return \retval{\NIL} immediately,
- after initiating flushing of buffers, or after flushing of buffers,
- resp.
-
\IT{(\FU*{MAKE-STRING-OUTPUT-STREAM} \Op{\kwd{:element-type}
\VAR{type}\DF{\kwd{character}}})}
Return a \retval{stream} accepting characters.
- \IT{(\FU*{GET-OUTPUT-STREAM-STRING} \VAR{stream})}
- Clear and return as a \retval{string} characters on \VAR{stream}.
-
- \IT{(\FU*{MAKE-BROADCAST-STREAM} \OPn{\VAR{stream}})}
- Return \retval{broadcast stream}.
-
\IT{(\FU*{MAKE-CONCATENATED-STREAM} \OPn{\VAR{stream}})}
- Return \retval{concatenated} stream.
-
- \IT{(\SF*{WITH-INPUT-FROM-STRING} (\VAR{foo} \VAR{string}
- \orGOO{\kwd{:index} \VAR{ index}\\\kwd{:start} \VAR{
- start}\\\kwd{:end} \VAR{ end}}{\}}) \OPn{(\kwd{declare}
- \OPn{\VAR{decl}})} \OPn{\VAR{form}})}
- Evaluate \VAR{form}s with \VAR{foo} locally bound to input stream
- from \VAR{string}. \VAR{index} contains the reading position in
- \VAR{string} after leaving. Return \retval{value of \VAR{form}s}.
+ Return \retval{concatenated stream}.
- \IT{(\SF*{WITH-OUTPUT-TO-STRING}(\VAR{foo}
- \Op{\VAR{string}}\DF{\NIL} \Op{\kwd{:element-type}
- \VAR{type}\DF{\kwd{character}}}) \OPn{(\kwd{declare}
- \OPn{\VAR{decl}})} \OPn{\VAR{form}})}
- Evaluate \VAR{form}s with \VAR{foo} locally bound to output
- stream. Append output to \VAR{string} and return \retval{value of
- \VAR{foo}} if \VAR{string} is given. Return \retval{string
- containing output} otherwise.
+ \IT{(\FU*{CONCATENATED-STREAM-STREAMS} \VAR{concatenated-stream})}
+ Return \retval{list of streams} \VAR{concatenated-stream} still
+ has to read from.
- \IT{(\SF*{WITH-OPEN-STREAM} (\VAR{foo} \VAR{stream})
- \OPn{(\kwd{declare} \OPn{\VAR{decl}})} \OPn{\VAR{form}})}
- Evaluate \VAR{form}s with \VAR{foo} locally bound to
- \VAR{stream}. Return \retval{value of \VAR{form}s}.
+ \IT{(\FU*{MAKE-BROADCAST-STREAM} \OPn{\VAR{stream}})}
+ Return \retval{broadcast stream}.
\IT{(\FU*{BROADCAST-STREAM-STREAMS} \VAR{broadcast-stream})}
Return \retval{list of streams} \VAR{broadcast-stream} is
broadcasting to.
- \IT{(\FU*{CONCATENATED-STREAM-STREAMS} \VAR{concatenated-stream})}
- Return \retval{list of streams} \VAR{concatenated-stream} still
- has to read from.
+ \IT{(\FU*{MAKE-ECHO-STREAM} \VAR{input-stream} \VAR{output-stream})}
+ Place \retval{echo stream} between \VAR{input-stream} and
+ \VAR{output-stream}.
\IT{\arrGOO{(\FU*{ECHO-STREAM-INPUT-STREAM}\VAR{ echo-stream})\\
(\FU*{ECHO-STREAM-OUTPUT-STREAM}\VAR{ echo-stream})}{\}}}
Return \retval{stream} \VAR{echo-stream} receives from or sends
to, resp.
- \IT{(\FU*{MAKE-ECHO-STREAM} \VAR{input-stream} \VAR{output-stream})}
- Place \retval{echo stream} between \VAR{input-stream} and
- \VAR{output-stream}.
-
\IT{(\FU*{MAKE-STRING-INPUT-STREAM} \VAR{string}
\orGOO{\kwd{:start}\VAR{ start}\\
\kwd{:end} \VAR{ end}}{\}})}
@@ -694,23 +658,63 @@ \subsection{Streams}
\IT{(\FU*{MAKE-SYNONYM-STREAM} \VAR{symbol})}
Return \retval{synonym stream}.
- \IT{(\FU*{MAKE-TWO-WAY-STREAM} \VAR{input-stream}
- \VAR{output-stream})} Return \retval{two-way stream}.
-
- \IT{(\FU*{STREAM-EXTERNAL-FORMAT} \VAR{stream})}
- \retval{External file format designator}.
-
\IT{(\FU*{SYNONYM-STREAM-SYMBOL} \VAR{synonym-stream})}
Return \retval{symbol} of \VAR{synonym-stream}.
+ \IT{(\FU*{MAKE-TWO-WAY-STREAM} \VAR{input-stream}
+ \VAR{output-stream})} Return \retval{two-way stream}.
+
\IT{\arrGOO{(\FU*{TWO-WAY-STREAM-INPUT-STREAM} \VAR{
two-way-stream})\\
(\FU*{TWO-WAY-STREAM-OUTPUT-STREAM} \VAR{ two-way-stream})}{\}}}
Return \retval{stream} \VAR{two-way-stream} receives from or sends
to, resp.
\IT{(\FU*{LISTEN} \Op{\VAR{stream}\DF{\kwd{*standard-input*}}})}
- \retval{\T} if is a character in input \VAR{stream}.
+ \retval{\T} if there is a character in input \VAR{stream}.
+
+ \IT{(\FU*{GET-OUTPUT-STREAM-STRING} \VAR{stream})}
+ Clear and return as a \retval{string} characters on \VAR{stream}.
+
+ \IT{(\FU*{CLEAR-INPUT}
+ \Op{\VAR{stream}\DF{\kwd{*standard-input*}}})}
+ Clear input from \VAR{stream}, return \retval{\NIL}.
+
+ \IT{(\xorGOO{\FU*{CLEAR-OUTPUT}\\
+ \FU*{FORCE-OUTPUT}\\
+ \FU*{FINISH-OUTPUT}}{\}}%
+ \Op{\VAR{stream}\DF{\kwd{standard-output}}})}
+ End output to \VAR{stream} and return \retval{\NIL} immediately,
+ after initiating flushing of buffers, or after flushing of buffers,
+ resp.
+
+ \IT{(\SF*{WITH-OPEN-STREAM} (\VAR{foo} \VAR{stream})
+ \OPn{(\kwd{declare} \OPn{\VAR{decl}})} \OPn{\VAR{form}})}
+ Evaluate \VAR{form}s with \VAR{foo} locally bound to
+ \VAR{stream}. Return \retval{value of \VAR{form}s}.
+
+ \IT{(\SF*{WITH-INPUT-FROM-STRING} (\VAR{foo} \VAR{string}
+ \orGOO{\kwd{:index} \VAR{ index}\\\kwd{:start} \VAR{
+ start}\\\kwd{:end} \VAR{ end}}{\}}) \OPn{(\kwd{declare}
+ \OPn{\VAR{decl}})} \OPn{\VAR{form}})}
+ Evaluate \VAR{form}s with \VAR{foo} locally bound to input stream
+ from \VAR{string}. \VAR{index} contains the reading position in
+ \VAR{string} after leaving. Return \retval{value of \VAR{form}s}.
+
+ \IT{(\SF*{WITH-OUTPUT-TO-STRING}(\VAR{foo}
+ \Op{\VAR{string}}\DF{\NIL} \Op{\kwd{:element-type}
+ \VAR{type}\DF{\kwd{character}}}) \OPn{(\kwd{declare}
+ \OPn{\VAR{decl}})} \OPn{\VAR{form}})}
+ Evaluate \VAR{form}s with \VAR{foo} locally bound to output
+ stream. Append output to \VAR{string} and return \retval{value of
+ \VAR{foo}} if \VAR{string} is given. Return \retval{string
+ containing output} otherwise.
+
+ \IT{(\FU*{STREAM-EXTERNAL-FORMAT} \VAR{stream})}
+ \retval{External file format designator}.
+
+ \IT{\V*{*terminal-io*}}
+ Bidirectional stream to user terminal.
\IT{\arrGOO{\V*{*standard-input*}\\
\V*{*standard-output*}\\
@@ -722,9 +726,6 @@ \subsection{Streams}
\V*{*query-io*}}{\}}}
Streams for debugging and user interaction.
- \IT{\V*{*terminal-io*}}
- Bidirectional stream to user terminal.
-
\end{LIST}
View
13 clqr.tex
@@ -8,7 +8,6 @@
%
\newcommand{\maintitle}{Common Lisp Quick Reference}
-\newcommand{\revision}{\input{REVISION}}
\documentclass[8pt,pagesize,twoside,footexclude,headexclude]{scrartcl}
%
@@ -438,16 +437,17 @@ \section*{Index}
\hrule
\vspace{1.5mm}
\rmfamily\small
- \makebox[\textwidth][l]{\maintitle\ \hfill Revision \revision [\number\year-\number\month-\number\day]}
- \makebox[\textwidth][l]{Copyright \copyright\ 2008 Bert Burgemeister}\\
-
+ \makebox[\textwidth][l]{\maintitle\ \hfill \LaTeX\ source:
+ http://clqr.berlios.de}
+ \makebox[\textwidth][l]{Copyright \copyright\ 2008 Bert
+ Burgemeister\hfill Revision \input{REVISION}
+ [\input{DATE}\hspace{-.65ex}]}\\[1.5mm]
Permission is granted to copy, distribute and/or modify this
document under the terms of the GNU Free Documentation License,
Version 1.2 or any later version published by the Free Software
Foundation; with no Invariant Sections, no Front-Cover Texts and
- no Back-Cover Texts.\\
+ no Back-Cover Texts.\hfill
http://www.gnu.org/licenses/fdl.html\\
-
\vspace{-1mm}
\hrule
\end{minipage}
@@ -456,4 +456,3 @@ \section*{Index}
\end{document}
% -*-latex-*-
-

0 comments on commit 28e57ae

Please sign in to comment.