Commit f4f63979 authored by privet-kitty's avatar privet-kitty Committed by Francois-Rene Rideau
Browse files

Some aesthetical changes in UIOP's manual generation

parent d882f973
......@@ -22,17 +22,22 @@ clean-crap:
rm -f *.aux *.cp *.fn *.fns *.ky *.log *.pg *.toc *.tp *.tps *.vr
clean: clean-include
rm -rf *.pdf *.html *.info ${uiop}.texinfo ${uiop}
rm -rf *.pdf *.html *.info ${uiop}.texinfo ${uiop} *.fasl
fasl: docstrings.lisp
sbcl --no-userinit --eval '(require :asdf)' \
--load docstrings.lisp \
--eval '(compile-file "docstrings.lisp")' \
--eval '(quit)'
include: fasl
sbcl --no-userinit --eval '(require :asdf)' \
--load docstrings \
--eval '(quit)'
texinfo : include
sbcl --no-userinit --eval '(require :asdf)' \
--load docstrings.lisp \
--load docstrings \
--eval "(sb-texinfo:complete-texinfo-template \"template.texinfo\" \"${uiop}.texinfo\" \"include/\")" \
--eval '(quit)'
......@@ -88,7 +88,7 @@ you deserve to lose.")
(defparameter *symbol-characters* "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890*:-+&#"
"List of characters that make up symbols in a docstring.")
(defparameter *symbol-delimiters* " ,.!?;()'")
(defparameter *symbol-delimiters* " ,.!?;()'\"")
(defparameter *ordered-documentation-kinds*
'(package type structure condition class macro))
......@@ -440,7 +440,7 @@ with #\@. Optionally downcase the result."
;;; line markups
(defvar *not-symbols* '("ANSI" "CLHS" "OS" "CL" "CR" "LF" "CRLF" "CR+LF" "GCL" "MCL" "ABCL" "CCL" "CMUCL" "CLASP" "CLISP" "ECL" "MKCL" "SBCL" "SCL" "XCL"))
(defvar *not-symbols* '("ANSI" "CLHS" "ASDF" "DSL" "OS" "CL" "CR" "LF" "CRLF" "CR+LF" "CPU" "FASL" "POSIX" "GCL" "MCL" "ABCL" "CCL" "CMUCL" "CLASP" "CLISP" "ECL" "MKCL" "SBCL" "SCL" "XCL"))
(defun locate-symbols (line)
"Return a list of index pairs of symbol-like parts of LINE."
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment