(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
@group
(defclass wrapped-character-input-stream
- (wrapped-stream fundamental-character-output-stream)
+ (wrapped-stream fundamental-character-input-stream)
())
@end group
@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
--- /dev/null
+@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
;;; 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"