clm.tex

\documentclass[12pt]{book}

% !!! Эту комбинацию не менять
\usepackage[T2A]{fontenc} % включаем русские шрифты
\usepackage[utf8]{inputenc} % включаем поддержку UTF8
\usepackage[russian,english]{babel} % включаем пакет для поддержки русского языка

\input commands.tex

\ifx \HCode\Undef

\else
  % Specify html filenames
  \let\oldinclude=\include
  \def\include#1{\NextFile{#1.html}\oldinclude{#1}}
\fi

\ifx \rulang\Undef
  \title{Common Lisp The Language, Second Edition}
\else %RUSSIAN
  \title{Язык Common Lisp, второе издание.}
\fi


% !!!
%%% Root file for Common Lisp Manual.  Copyright 1984, 1987 Guy L. Steele Jr.

\sloppy
\def\pagestatus{\error}

\ifchiron
  \let\tagline\relax
\else
  \def\tagline{\ifcase\month\or
    January\or February\or March\or April\or May\or June\or
    July\or August\or September\or October\or November\or December\fi~\number\day,~\number\year
    ---\pagestatus---Common Lisp: The Language 2/E---Digital Press---\copyright~\number\year
    ~Guy L. Steele Jr. All rights reserved.}
\fi

\def\tagline{}

\pagestyle{headings}

\usepackage{multind}

\usepackage{color,graphicx}
\usepackage{hyperref}
\usepackage{multicol}

\DeclareGraphicsExtensions{.pdf,.png,.jpg}

\makeindex{symbols}
\makeindex{issues}

\newcommand{\xjvotesname}{X3J13 Votes}
\newcommand{\symbolsname}{Symbols}

\ifdefined\rulang
%RUSSIAN
\AtBeginDocument{\renewcommand\contentsname{Содержание}
  \renewcommand{\chaptername}{Глава}
  \renewcommand{\appendixname}{Приложение}
  \renewcommand{\bibname}{Библиография}
  \renewcommand{\tablename}{Таблица}
  \renewcommand{\figurename}{Изображение}
  %\renewcommand{\alsoname}{Смотрите также}
  \renewcommand{\indexname}{Предментный указатель}
  \renewcommand{\listfigurename}{Список изображений}
  \renewcommand{\listtablename}{Список таблиц}
  \renewcommand{\partname}{Часть}
  %\renewcommand{\refname}{Ссылки}
  %\renewcommand{\seename}{Смотрите}
  \renewcommand{\xjvotesname}{Голосование X3J13}
  \renewcommand{\symbolsname}{Символы}
}
\fi

\begin{document}

\include{Title-page}

\pagenumbering{roman}

\include{frontmatter}   % toc, acknowledgements

\pagenumbering{arabic}

\include{intro}       % General info, notational conventions
\include{dtypes}      % Enumeration of data types
\include{scope}       % Discussion of scoping rules
\include{dtspec}      % Data type specifiers
\include{progs}       % Representation of programs, simple DEFUN
\include{preds}       % Primarily type discrimination predicates
\include{contrl}      % Flow of control, environment handling
\include{macro}       % Macros
\include{declar}      % Declarations
\include{symbol}      % Functions on symbols
\include{xpack}       % Packages
\include{number}      % Functions on numbers
\include{char}        % Functions on characters
\include{kseque}      % Functions on sequences (keyword style)
\include{list}        % Functions on lists
\include{hash}        % Hash tables
\include{array}       % Hairy array stuff
\include{string}      % Functions on strings
\include{struct}      % Structure package
\include{eval}        % Includes stack-crawling stuff
\include{stream}      % Stream functions
\include{io}          % Input/output functions
\include{files}       % File system interface
%%\include{xerror}    % Errors and the debugger
\include{misc}        % Miscellaneous stuff
\include{loop}        % LOOP
\include{pprint}      % Pretty-printing
\include{clos}        % Common Lisp Object System
\include{condition}   % Common Lisp Condition System
\include{amop}        % Art of Common Lisp Metaobject Protocol

%\appendix
%\include{series}      % Series
%\include{generators}  % Generators
%\include{backq}

\include{bib}         % Bibliography
%% \include{issues}      % Index to ANSI issues

% index
% Add chpater for non-html

\cleardoublepage
\phantomsection

\ifx \HCode\Undef
    \addcontentsline{toc}{chapter}{\indexname}
\fi

\cleardoublepage
\phantomsection

\printindex{issues}{\xjvotesname}

\ifdefined\HCode
  \NextFile{symbols.html}
\fi


\cleardoublepage
\phantomsection

\makeatletter
\renewenvironment{theindex}{%
  \parindent\z@
  \parskip\z@ plus .3pt\relax
  \newcounter{indexcc}
  \def\@newidxitem ##1 {
    \def\@tempa{##1}\def\@tempb{'diez}%
    \def\@tempc{'doublequote}%
    \def\@tempd{'diezbackslash}
    \ifx\@tempa\@tempb  % quote needed for sorting
    \@idxitem \# \refstepcounter{indexcc}\label{idxcc:diez}%
    \else
    \ifx\@tempa\@tempc           % quote needed for sorting
    \@idxitem " \refstepcounter{indexcc}\label{idxcc:doublequote}%
    \else%
    \ifx\@tempa\@tempd
    \@idxitem \#\textbackslash \refstepcounter{indexcc}\label{idxcc:diez}%
    \else
    \@idxitem ##1 \refstepcounter{indexcc}\label{idxcc:##1}%
    \fi\fi
    \fi
    }\relax
  \let\item\@newidxitem\relax%
  \def\indexspace{}
  %\let\item\@idxitem
}{\if@restonecol\onecolumn\else\clearpage\fi} 
\makeatother

\printindex{symbols}{\symbolsname}

\include{colophon}

\end{document}