1.0.5.13: better wordbreaks in manual
authorChristophe Rhodes <csr21@cantab.net>
Mon, 30 Apr 2007 11:26:08 +0000 (11:26 +0000)
committerChristophe Rhodes <csr21@cantab.net>
Mon, 30 Apr 2007 11:26:08 +0000 (11:26 +0000)
Patch from Richard Kreuter, sbcl-devel 2006-12-22

Also fix the Gray input stream example to inherit from an input
stream rather than from an output stream.

doc/manual/docstrings.lisp
doc/manual/gray-streams-examples.texinfo
doc/manual/sbcl.texinfo
doc/manual/texinfo-macros.texinfo [new file with mode: 0644]
version.lisp-expr

index fbefde6..1177d3d 100644 (file)
@@ -702,7 +702,7 @@ followed another tabulation label or a tabulation body."
   (when (member (get-kind doc) '(class structure condition))
     (let ((name (get-name doc)))
       ;; class precedence list
-      (format *texinfo-output* "Class precedence list: @code{~(~{@w{~A}~^, ~}~)}~%~%"
+      (format *texinfo-output* "Class precedence list: @code{~(~{@lw{~A}~^, ~}~)}~%~%"
               (remove-if (lambda (class)  (hide-superclass-p name class))
                          (mapcar #'class-name (ensure-class-precedence-list (find-class name)))))
       ;; slots
index b2d3ed1..c26d699 100644 (file)
@@ -48,7 +48,7 @@ character input streams must implement @codew{stream-read-char} and
 
 @group
 (defclass wrapped-character-input-stream
-    (wrapped-stream fundamental-character-output-stream)
+    (wrapped-stream fundamental-character-input-stream)
   ())
 @end group
 
index a1aa289..1bb042d 100644 (file)
@@ -4,6 +4,7 @@
 @settitle SBCL User Manual
 @c %**end of header
 
+@include texinfo-macros.texinfo
 @include variables.texinfo
 @set EDITION 0.1
 @settitle SBCL @value{VERSION} User Manual 
diff --git a/doc/manual/texinfo-macros.texinfo b/doc/manual/texinfo-macros.texinfo
new file mode 100644 (file)
index 0000000..95f47cf
--- /dev/null
@@ -0,0 +1,27 @@
+@c Some plain TeX macrology to wrap text in \hbox{} only if the text
+@c contains no hyphens.
+@iftex
+@tex
+\newif\ifdash
+\long\def\dashp#1{\expandafter\setnext#1-\dashphelper}
+\long\def\setnext#1-{\futurelet\next\dashphelper}
+\long\def\dashphelper#1\dashphelper{
+  \ifx\dashphelper\next\dashfalse\else\dashtrue\fi
+}
+\def\lw#1{\leavevmode\dashp{#1}\ifdash#1\else\hbox{#1}\fi}
+@end tex
+@end iftex
+
+@c A Texinfo binding for the plain TeX above.  Analogous to Texinfo's
+@c @w, but for Lisp symbols.  AFAICT, the comment characters are
+@c necessary to prevent treating the newline as a space.
+@macro lw{word}
+@iftex
+@tex
+\\lw{\word\}%
+@end tex
+@end iftex
+@ifnottex
+\word\@c
+@end ifnottex
+@end macro
index 6bdba7d..2c08dfb 100644 (file)
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.5.12"
+"1.0.5.13"