Merge branch 'master' of ssh://git.informatimago.com/srv/git/public/emacs

Pascal J. Bourguignon [2017-01-24 22:56]
Merge branch 'master' of ssh://git.informatimago.com/srv/git/public/emacs
Filename
Makefile
compile.lisp
dxo.el
experiments/beautify-parens.el
experiments/c++-macros.el
experiments/cl-string-justify.el
experiments/decode-smiley.el
experiments/encodings.el
experiments/j-macros.el
experiments/make.conf.el
experiments/pjb-cl-string-justify.el
experiments/pjb-too-early.el
experiments/si-prefix.el
experiments/window-pane.el
gpx.el
init.lisp
inspect.el
insulte.el
make-depends
pjb-advices.el
pjb-asm7090.el
pjb-banks-old.el
pjb-banks.el
pjb-blink.el
pjb-bourse.el
pjb-c-style.el
pjb-c.el
pjb-caps-mode.el
pjb-cl-faces.el
pjb-cl-intro.lisp
pjb-cl-magic.el
pjb-cl.el
pjb-class.el
pjb-color.el
pjb-comint.el
pjb-computer-paper.el
pjb-constants.el
pjb-cvs.el
pjb-cvspass.el
pjb-date.el
pjb-dodo.el
pjb-dot.el
pjb-echo-keys.el
pjb-emacs-balance-windows.el
pjb-emacs-patches.el
pjb-emacs.el
pjb-erc-filter.el
pjb-erc-speak.el
pjb-erc.el
pjb-euro.el
pjb-find-tag-hook.el
pjb-font.el
pjb-gnus.el
pjb-google-translate.el
pjb-graph.el
pjb-html.el
pjb-http.el
pjb-i2p-expression.el
pjb-insert-image.el
pjb-invoices.el.restore
pjb-java.el
pjb-layers.el
pjb-list.el
pjb-loader.el
pjb-mail.el
pjb-make-depends.el
pjb-milliways.el
pjb-objc-edit.el
pjb-objc-gen.el
pjb-objc-ide.el
pjb-objc-mode.el
pjb-objc-parser-test.el
pjb-objc-parser.el
pjb-object.el
pjb-package.el
pjb-page.el
pjb-pgp.el
pjb-pl1.el
pjb-pmatch.el
pjb-queue.el
pjb-roman.el
pjb-ruby.el
pjb-s2p-expression.el
pjb-searches.el
pjb-secouer.el
pjb-selftrade.el
pjb-server.el
pjb-shell.el
pjb-sources.el
pjb-sources.el-bad
pjb-speak.el
pjb-state-coding.el
pjb-thi.el
pjb-transpose.el
pjb-utilities.el
pjb-vm-kill-file.el
pjb-vm.el
pjb-worldfact.el
pjb-xcode.el
pjb-xml.el
pjb-xresources.el
pjb-zone.el
pl1-keywords.lisp
psql.el
room.el
scratch.el
slime-rpc.el
split.el
summary.html
too-early.lisp
trustonic.el
ubudu.el
diff --git a/Makefile b/Makefile
index 02cb8db..6f3bf10 100644
--- a/Makefile
+++ b/Makefile
@@ -12,19 +12,19 @@
 #BUGS
 #LEGAL
 #    GPL
-#
+#
 #    Copyright Pascal J. Bourguignon 2003 - 2011
-#
+#
 #    This program is free software; you can redistribute it and/or
 #    modify it under the terms of the GNU General Public License
 #    as published by the Free Software Foundation; either version
 #    2 of the License, or (at your option) any later version.
-#
+#
 #    This program is distributed in the hope that it will be
 #    useful, but WITHOUT ANY WARRANTY; without even the implied
 #    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 #    PURPOSE.  See the GNU General Public License for more details.
-#
+#
 #    You should have received a copy of the GNU General Public
 #    License along with this program; if not, write to the Free
 #    Software Foundation, Inc., 59 Temple Place, Suite 330,
@@ -91,10 +91,10 @@ EMACS_SOURCES=\
 	pjb-utilities.el \
 	pjb-vm-kill-file.el \
 	pjb-work.el \
-	pjb-worldfact.el
+	pjb-worldfact.el

 EMACS_OBJECTS=$(EMACS_SOURCES:.el=.elc)
-LISP_OBJECTS=$(EMACS_OBJECTS)
+LISP_OBJECTS=$(EMACS_OBJECTS)

 all::$(EMACS_OBJECTS) summary.html
 	-@chmod a+r *
@@ -106,7 +106,7 @@ install::install-packages

 TRACE=@
 LISP_SOURCE_SUFFIXES= .el   .lisp
-LISP_OBJECT_SUFFIXES= .elc  .fas .lib   .x86f   .fasl
+LISP_OBJECT_SUFFIXES= .elc  .fas .lib   .x86f   .fasl

 .SUFFIXES:: $(LISP_SOURCE_SUFFIXES) $(LISP_OBJECT_SUFFIXES)

@@ -117,7 +117,7 @@ LISP_OBJECT_SUFFIXES= .elc  .fas .lib   .x86f   .fasl
 EMACS=emacs
 EMACS_FLAGS_DEFAULT=
 %.elc : %.el
-	@ echo "Generating $@"
+	@ echo "Generating $@"
 	$(TRACE) $(EMACS) -batch -q $(EMACS_FLAGS) -f batch-byte-compile $< 2>&1 \
 	| $(AWK) 'BEGIN{s=0;} /Loading .*fns-/{next;} /Warning: Function .* from cl package/{s=1;next;} {if(s==0){print $0}else{s=0;next;}}'
 # See also .emacs in this directory with the load-path used to compile.
@@ -127,7 +127,7 @@ EMACS_FLAGS_DEFAULT=
 # Compiling & installing lisp packages:
 #
 # Targets: install-packages
-# Input:   LISP_SOURCES CLISP_SOURCES CMUCL_SOURCES SBCL_SOURCES EMACS_SOURCES
+# Input:   LISP_SOURCES CLISP_SOURCES CMUCL_SOURCES SBCL_SOURCES EMACS_SOURCES
 # Output:  $(PACKAGES)/$(PACKAGE_PATH)/*
 install-packages :: do-install
 do-install ::	$(EMACS_SOURCES) \
@@ -155,7 +155,7 @@ summary summary.html:$(EMACS_SOURCES)
 clean::
 	-rm -f $(LISP_OBJECT_SUFFIXES:%=*%)

-cleanall::
+cleanall::
 	$(TRACE) for p in $(LISP_PROGRAMS) $(CLISP_PROGRAMS) $(SBCL_PROGRAMS) \
 			  $(CMUCL_PROGRAMS) $(EMACS_PROGRAMS) NONE ; do \
 		[ "$$p" = NONE ] || $(MAKE) $(MFLAGS) $${p}-clean PGMNAME=$$p ;\
diff --git a/compile.lisp b/compile.lisp
index db63ca3..ef85d9d 100644
--- a/compile.lisp
+++ b/compile.lisp
@@ -4,9 +4,9 @@
 ;;;;SYSTEM:             Common-Lisp
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Supplements the emacs Makefile.
-;;;;
+;;;;
 ;;;;    Usage:  (load "compile.lisp")
 ;;;;
 ;;;;AUTHORS
@@ -16,19 +16,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    GPL
-;;;;
+;;;;
 ;;;;    Copyright Pascal J. Bourguignon 2006 - 2011
-;;;;
+;;;;
 ;;;;    This program is free software; you can redistribute it and/or
 ;;;;    modify it under the terms of the GNU General Public License
 ;;;;    as published by the Free Software Foundation; either version
 ;;;;    2 of the License, or (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be
 ;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
 ;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;;;    PURPOSE.  See the GNU General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU General Public
 ;;;;    License along with this program; if not, write to the Free
 ;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
@@ -51,7 +51,7 @@
 (load "init.lisp")
 ;; package.lisp is loaded by init.lisp.
 ;;(package:load-package :com.informatimago.common-lisp.make-depends)
-(setf package:*PACKAGE-VERBOSE* nil)
+(setf package:*PACKAGE-VERBOSE* nil)
 (package:load-package "COM.INFORMATIMAGO.COMMON-LISP.LIST")
 ;;(package:load-package "COM.INFORMATIMAGO.COMMON-LISP.MAKE-DEPENDS")
 (load "PACKAGES:COM;INFORMATIMAGO;COMMON-LISP;MAKE-DEPENDS.LISP")
@@ -79,5 +79,5 @@



-
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
diff --git a/dxo.el b/dxo.el
index 431c5e2..22e20e0 100644
--- a/dxo.el
+++ b/dxo.el
@@ -5,7 +5,7 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Emacs configuration used at DxO Labs / Optics Pro Mac team.
 ;;;;
 ;;;;    Add to your ~/.emacs:
@@ -17,7 +17,7 @@
 ;;;;    To change the c-style manually:
 ;;;;
 ;;;;        M-x c-set-style RET dxo RET
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -25,19 +25,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    GPL3
-;;;;
+;;;;
 ;;;;    Copyright Pascal Bourguignon 2012 - 2012
-;;;;
+;;;;
 ;;;;    This program is free software: you can redistribute it and/or modify
 ;;;;    it under the terms of the GNU General Public License as published by
 ;;;;    the Free Software Foundation, either version 3 of the License, or
 ;;;;    (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be useful,
 ;;;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;;;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;;;    GNU General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU General Public License
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
@@ -54,18 +54,18 @@
 (c-add-style
  "dxo"
  '((c-backslash-column             .  72)
-
+
    (c-backslash-max-column         . 128)
-
+
    (c-basic-offset                 .   2)
-
+
    (c-block-comment-prefix         . "* ")
-
+
    (c-cleanup-list                 . (list-close-comma
                                       scope-operator))
-
+
    (c-comment-only-line-offset     . (0 . 0))
-
+
    ;; (c-comment-prefix-regexp)

    (c-doc-comment-style            . javadoc)
@@ -75,13 +75,13 @@
                                       ;; (brace-list-intro)
                                       (inexpr-class-open    . (before after))
                                       (inexpr-class-close   . (before after))
-
+
                                       (defun-open           . (before after)) ; Brace that opens a function definition.
                                       (defun-close          . (before after)) ; Brace that closes a function definition.
                                       (class-open           . (before after)) ; Brace that opens a class definition.
                                       (class-close          . (before after)) ; Brace that closes a class definition.
                                       (inline-open          . (before after)) ; Brace that opens an in-class inline method.
-                                      (inline-close         . (before after)) ; Brace that closes an in-class inline method.
+                                      (inline-close         . (before after)) ; Brace that closes an in-class inline method.
                                       (block-open           . (before after)) ; Statement block open brace.
                                       (block-close          . (before after)) ; Statement block close brace.
                                       (brace-list-open      . (before after)) ; Open brace of an enum or static array list.
@@ -103,136 +103,136 @@
                                       (access-label         . (after))
                                       (member-init-intro    . ())
                                       (inher-intro          . ())))
-
+
    (c-hanging-semi&comma-criteria  . ())
-
+
    ;; (c-indent-comment-alist)

    (c-indent-comments-syntactically-p . nil)
-
+
    (c-label-minimum-indentation       . 2)

    (c-offsets-alist                   . (
-                                         (string             . 0)
+                                         (string             . 0)
                                          ;; Inside multi-line string.
-                                         (c                  . 1)
+                                         (c                  . 1)
                                          ;; Inside a multi-line C style block comment.
-                                         (defun-open         . 0)
+                                         (defun-open         . 0)
                                          ;; Brace that opens a function definition.
-                                         (defun-close        . 0)
+                                         (defun-close        . 0)
                                          ;; Brace that closes a function definition.
-                                         (defun-block-intro  . +)
+                                         (defun-block-intro  . +)
                                          ;; The first line in a top-level defun.
-                                         (class-open         . 0)
+                                         (class-open         . 0)
                                          ;; Brace that opens a class definition.
-                                         (class-close        . 0)
+                                         (class-close        . 0)
                                          ;; Brace that closes a class definition.
-                                         (inline-open        . 0)
+                                         (inline-open        . 0)
                                          ;; Brace that opens an in-class inline method.
-                                         (inline-close       . 0)
+                                         (inline-close       . 0)
                                          ;; Brace that closes an in-class inline method.
-                                         (func-decl-cont     . +)
+                                         (func-decl-cont     . +)
                                          ;; The region between a function definition's
                                          ;; argument list and the function opening brace
                                          ;; (excluding K&R argument declarations).  In C, you
                                          ;; cannot put anything but whitespace and comments
                                          ;; between them; in C++ and Java, throws declarations
                                          ;; and other things can appear in this context.
-                                         (knr-argdecl-intro     . +)
+                                         (knr-argdecl-intro     . +)
                                          ;; First line of a K&R C argument declaration.
-                                         (knr-argdecl           . +)
+                                         (knr-argdecl           . +)
                                          ;; Subsequent lines in a K&R C argument declaration.
                                          (topmost-intro         . 0)
                                          ;; The first line in a topmost construct definition.
-                                         (topmost-intro-cont    . 0)
+                                         (topmost-intro-cont    . 0)
                                          ;; Topmost definition continuation lines.
-                                         (member-init-intro     . +)
+                                         (member-init-intro     . +)
                                          ;; First line in a member initialization list.
-                                         (member-init-cont      . ++)
+                                         (member-init-cont      . ++)
                                          ;; Subsequent member initialization list lines.
-                                         (inher-intro           . +)
+                                         (inher-intro           . +)
                                          ;; First line of a multiple inheritance list.
-                                         (inher-cont            . ++)
+                                         (inher-cont            . ++)
                                          ;; Subsequent multiple inheritance lines.
-                                         (block-open            . 0)
+                                         (block-open            . 0)
                                          ;; Statement block open brace.
-                                         (block-close           . 0)
+                                         (block-close           . 0)
                                          ;; Statement block close brace.
-                                         (brace-list-open       . 0)
+                                         (brace-list-open       . 0)
                                          ;; Open brace of an enum or static array list.
-                                         (brace-list-close      . 0)
+                                         (brace-list-close      . 0)
                                          ;; Close brace of an enum or static array list.
-                                         (brace-list-intro      . +)
+                                         (brace-list-intro      . +)
                                          ;; First line in an enum or static array list.
-                                         (brace-list-entry      . 0)
+                                         (brace-list-entry      . 0)
                                          ;; Subsequent lines in an enum or static array list.
-                                         (brace-entry-open      . +)
+                                         (brace-entry-open      . +)
                                          ;; Subsequent lines in an enum or static array
                                          ;; list that start with an open brace.
                                          (statement             . 0)
                                          ;; A C (or like) statement.
-                                         (statement-cont        . ++)
+                                         (statement-cont        . ++)
                                          ;; A continuation of a C (or like) statement.
-                                         (statement-block-intro . +)
+                                         (statement-block-intro . +)
                                          ;; The first line in a new statement block.
-                                         (statement-case-intro  . +)
+                                         (statement-case-intro  . +)
                                          ;; The first line in a case "block".
-                                         (statement-case-open   . +)
+                                         (statement-case-open   . +)
                                          ;; The first line in a case block starting with brace.
-                                         (substatement          . 0)
+                                         (substatement          . 0)
                                          ;; The first line after an if/while/for/do/else.
                                          (substatement-open     . 0)
                                          ;; The brace that opens a substatement block.
-                                         (substatement-label    . /)
+                                         (substatement-label    . /)
                                          ;; Labelled line after an if/while/for/do/else.
-                                         (case-label            . +)
+                                         (case-label            . +)
                                          ;; A "case" or "default" label.
-                                         (access-label          . 0)
+                                         (access-label          . 0)
                                          ;; C++ private/protected/public access label.
-                                         (label                 . /)
+                                         (label                 . /)
                                          ;; Any ordinary label.
-                                         (do-while-closure      . 0)
+                                         (do-while-closure      . 0)
                                          ;; The "while" that ends a do/while construct.
-                                         (else-clause           . 0)
+                                         (else-clause           . 0)
                                          ;; The "else" of an if/else construct.
-                                         (catch-clause          . 0)
+                                         (catch-clause          . 0)
                                          ;; The "catch" or "finally" of a try/catch construct.
-                                         (comment-intro         . 0)
+                                         (comment-intro         . 0)
                                          ;; A line containing only a comment introduction.
-                                         (arglist-intro         . +)
+                                         (arglist-intro         . +)
                                          ;; The first line in an argument list.
-                                         (arglist-cont          . +)
+                                         (arglist-cont          . +)
                                          ;; Subsequent argument list lines when no
                                          ;; arguments follow on the same line as the
                                          ;; arglist opening paren.
-                                         (arglist-cont-nonempty . +)
+                                         (arglist-cont-nonempty . +)
                                          ;; Subsequent argument list lines when at
                                          ;; least one argument follows on the same
                                          ;; line as the arglist opening paren.
-                                         (arglist-close         . 0)
+                                         (arglist-close         . 0)
                                          ;; The solo close paren of an argument list.
-                                         (stream-op             . +)
+                                         (stream-op             . +)
                                          ;; Lines continuing a stream operator construct.
-                                         (inclass               . +)
+                                         (inclass               . +)
                                          ;; The construct is nested inside a class definition.
                                          ;; Used together with e.g. `topmost-intro'.
-                                         (cpp-macro             . [0])
+                                         (cpp-macro             . [0])
                                          ;; The start of a C preprocessor macro definition.
-                                         (cpp-macro-cont        . [8])
+                                         (cpp-macro-cont        . [8])
                                          ;; Inside a multi-line C preprocessor macro definition.
-                                         (friend                . 0)
+                                         (friend                . 0)
                                          ;; A C++ friend declaration.
-                                         (objc-method-intro     . [0])
+                                         (objc-method-intro     . [0])
                                          ;; The first line of an Objective-C method definition.
-                                         (objc-method-args-cont . 0)
+                                         (objc-method-args-cont . 0)
                                          ;; Lines continuing an Objective-C method definition.
                                          (objc-method-call-cont . (c-lineup-ObjC-method-call-colons ++))
                                          ;; Lines continuing an Objective-C method call.
-                                         (extern-lang-open      . 0)
+                                         (extern-lang-open      . 0)
                                          ;; Brace that opens an "extern" block.
-                                         (extern-lang-close     . 0)
+                                         (extern-lang-close     . 0)
                                          ;; Brace that closes an "extern" block.
-                                         (inextern-lang         . +)
+                                         (inextern-lang         . +)
                                          ;; Analogous to the `inclass' syntactic symbol,
                                          ;; but used inside "extern" blocks.
                                          (namespace-open        . 0)
@@ -250,22 +250,22 @@
                                          (incomposition         . +)
                                          ;; Similar to the three `extern-lang' symbols, but for
                                          ;; CORBA CIDL "composition" blocks.
-                                         (template-args-cont    . +)
+                                         (template-args-cont    . +)
                                          ;; C++ template argument list continuations.
-                                         (inlambda              . +)
+                                         (inlambda              . +)
                                          ;; In the header or body of a lambda function.
-                                         (lambda-intro-cont     . ++)
+                                         (lambda-intro-cont     . ++)
                                          ;; Continuation of the header of a lambda function.
-                                         (inexpr-statement      . +)
+                                         (inexpr-statement      . +)
                                          ;; The statement is inside an expression.
-                                         (inexpr-class          . +)
+                                         (inexpr-class          . +)
                                          ;; The class is inside an expression.  Used e.g. for
                                          ;; Java anonymous classes.
                                          ))
    ;; Only called when c-syntactic-indentation is non nil.
    ;; (c-special-indent-hook . user-fun)

-
+
    (tab-width                     . 4)  ; the true one!

    (c-indent-level                . 2)  ; Indentation of C statements with
@@ -281,28 +281,28 @@
                                         ; C function arguments.

    (c-label-offset                . -)  ; Offset of C label lines and case
-                                        ; statements relative to usual
+                                        ; statements relative to usual
                                         ; indentation.

    (c-continued-statement-offset  . 4)  ; Extra indent for lines not starting
                                         ; new statements.

    (c-continued-brace-offset      . 0)  ; Extra indent for substatements that
-					; start with open-braces.
+                                        ; start with open-braces.


    (c-auto-newline                . t)  ; Non-nil means automatically newline
-					; before and after braces, and after
-					; colons and semicolons, inserted in C
-					; code. If you do not want a leading
-					; newline before braces then use:
-					; (define-key c-mode-map \"{\"
-					;          'electric-c-semi)"
+                                        ; before and after braces, and after
+                                        ; colons and semicolons, inserted in C
+                                        ; code. If you do not want a leading
+                                        ; newline before braces then use:
+                                        ; (define-key c-mode-map \"{\"
+                                        ;          'electric-c-semi)"

    (c-tab-always-indent           . t)  ; Non-nil means TAB in C mode should
-					; always reindent the current line,
-					; regardless of where in the line point
-					; is when the TAB command is used.
+                                        ; always reindent the current line,
+                                        ; regardless of where in the line point
+                                        ; is when the TAB command is used.
    ))


diff --git a/experiments/beautify-parens.el b/experiments/beautify-parens.el
index 4219333..db3c7e7 100644
--- a/experiments/beautify-parens.el
+++ b/experiments/beautify-parens.el
@@ -4,7 +4,7 @@
   "Common-Lisp
 IMPLEMENTATION: The clause variable symbols are substituted by one single
                 condition-case variable symbol.  This may cause problems
-                if the same symbol is used as data or if it's a dynamic
+                if the same symbol is used as data or if it's a dynamic
                 variable.
 "
   (let* ((var (gensym))
@@ -17,7 +17,7 @@ IMPLEMENTATION: The clause variable symbols are substituted by one single
                                    (body     (cddr clause)))
                                (cons (if (and (consp typespec)
                                               (eq 'or (car typespec)))
-                                         (cdr typespec)
+                                         (cdr typespec)
                                          typespec)
                                      (if (null clausvar)
                                          body
@@ -59,9 +59,9 @@ IMPLEMENTATION: The clause variable symbols are substituted by one single
       (forward-sexp))))

 ;; (let ((r '())) (forward-sexp)(push (point) r)(forward-sexp)(backward-sexp)(push (point) r) r)
-;;
+;;
 ;; ((abc))
-;; ( (abc) )
+;; ( (abc) )
 ;; (abc)
 ;; ( abc )

diff --git a/experiments/c++-macros.el b/experiments/c++-macros.el
index 0ea77f0..3f351c1 100644
--- a/experiments/c++-macros.el
+++ b/experiments/c++-macros.el
@@ -126,7 +126,7 @@


 (defmacro c++/foreach ((type var container) &rest statements)
-  (with-extended-c++-environment (type var container)
+  (with-extended-c++-environment (type var container)
     `(progn
        ,(c++/gen-insert-item (list "foreach" type var container))
        (insert "{\n")
diff --git a/experiments/cl-string-justify.el b/experiments/cl-string-justify.el
index 71810ae..d7f454d 100644
--- a/experiments/cl-string-justify.el
+++ b/experiments/cl-string-justify.el
@@ -15,7 +15,7 @@ Tilde immediately followed by a newline ignores the newline and any
 following non-newline whitespace  characters. With a :, the newline is
 ignored, but any following whitespace is left in place.  With an @,
 the newline is left in place, but any following whitespace is
-ignored.
+ignored.

 This commands prompts for the kind of justification to use.
 If the mark is not active, this command operates on the current paragraph.
@@ -43,7 +43,7 @@ taken to be paragraph breaks.
   (with-marker (end end)
     (goto-char begin)
     (flet ((justify-section (begin end)
-             ;; remove ~ and ~:
+             ;; remove ~ and ~:
              (goto-char begin)
              (while (re-search-forward "\\(~\n *\\|~:\n\\)" end t)
                (delete-region (match-beginning 0) (match-end 0)))
diff --git a/experiments/decode-smiley.el b/experiments/decode-smiley.el
index 523dcb2..3f4c5f8 100644
--- a/experiments/decode-smiley.el
+++ b/experiments/decode-smiley.el
@@ -4,273 +4,273 @@ http://www.geocities.com/dronak/smileys.html


 :)              Smiling, happy faces; don't take me too seriously
-		Happy
-		Midget smiley
-		Cheshire cat smile
-		Happy
-		Salamander
-		User is a midget
-		Smilie without a nose
-		Normal face
-		Leper
+                Happy
+                Midget smiley
+                Cheshire cat smile
+                Happy
+                Salamander
+                User is a midget
+                Smilie without a nose
+                Normal face
+                Leper

 :-)             Smiling, happy faces; don't take me too seriously
-		<smile> or <grin>
-		Your basic smiley
-		Ha ha
-		Comedy
-		Willie Shoemaker
-		"We are all, each of us, alone"
-		Happy
-		Humorous
-		Smiley standard
-		The normal smiling face
-		User is an orator
-		Happy user
-		Just kidding or happy
-		I'm a gentleman
-		User is nosy
+                <smile> or <grin>
+                Your basic smiley
+                Ha ha
+                Comedy
+                Willie Shoemaker
+                "We are all, each of us, alone"
+                Happy
+                Humorous
+                Smiley standard
+                The normal smiling face
+                User is an orator
+                Happy user
+                Just kidding or happy
+                I'm a gentleman
+                User is nosy

 :>              Smiling, happy faces; don't take me too seriously
-		Midget smiley
-		Hmm, let me think...
-		User is a midget
-		Devilish Grin
-		Sharp smile
+                Midget smiley
+                Hmm, let me think...
+                User is a midget
+                Devilish Grin
+                Sharp smile

 ;)              Winking happy faces (something said tongue-in-cheek)
-		Midget Wink
-		Winking
+                Midget Wink
+                Winking

 ;-)             Winking happy faces (something said tongue-in-cheek)
-		Wink (or wink and a smile)
-		Winking smiley
-		"If you touch my daughter again, they won't be blanks"
-		A practical joker who played one too many and got beat up
-		Beaten up
-		Could be pirate smiling face??
-		Crying with happiness
-		Getting fresh
-		Sardonic incredulity
-		Smiling face gets his lights punched out
-		User is making a flirtatious and/or sarcastic remark
-		Hinting
+                Wink (or wink and a smile)
+                Winking smiley
+                "If you touch my daughter again, they won't be blanks"
+                A practical joker who played one too many and got beat up
+                Beaten up
+                Could be pirate smiling face??
+                Crying with happiness
+                Getting fresh
+                Sardonic incredulity
+                Smiling face gets his lights punched out
+                User is making a flirtatious and/or sarcastic remark
+                Hinting

 ;>              Winking happy faces (something said tongue-in-cheek)
-		Midget wink
-		Saucy wink
+                Midget wink
+                Saucy wink

 B-)             Smiling face from a person wearing glasses
-		Smiling and wearing glasses or sunglasses
-		Message from Batman
-		User wears horn-rimmed glasses
-		Horn-rims
-		"Holy trichinosis!"
-		"I pray daily for death"
-		"Let's do the beach, man!"
-		User is ready for the beach
-		Cool or sunglasses
-		Ski glasses
+                Smiling and wearing glasses or sunglasses
+                Message from Batman
+                User wears horn-rimmed glasses
+                Horn-rims
+                "Holy trichinosis!"
+                "I pray daily for death"
+                "Let's do the beach, man!"
+                User is ready for the beach
+                Cool or sunglasses
+                Ski glasses

 8-)             Smiling face with a wide-eyed look
-		Smile with glasses
-		Smiling and wearing glasses
-		Wide-eyed look
-		User is wearing sunglasses
-		Smiley swimmer
-		Smiley with big eyes...perhaps wearing contact lenses
-		"I was the second gunman"
-		Excited
-		Bug-eyed smilie
-		Eight!?! (happy)
-		Swimmer
-
-8-(		Unhappy smiley
-		Wide-eyed unhappy smiley
-		Eight!?! (unhappy)
-
+                Smile with glasses
+                Smiling and wearing glasses
+                Wide-eyed look
+                User is wearing sunglasses
+                Smiley swimmer
+                Smiley with big eyes...perhaps wearing contact lenses
+                "I was the second gunman"
+                Excited
+                Bug-eyed smilie
+                Eight!?! (happy)
+                Swimmer
+
+8-(             Unhappy smiley
+                Wide-eyed unhappy smiley
+                Eight!?! (unhappy)
+
 :D              Wider happy face (or Minstrel singers)
-		Laughter
-		Big smile
+                Laughter
+                Big smile

 :-D             Wider happy face (or Minstrel singers)
-		Big mouth
-		User is laughing (at you!)
-		Big smile
-		Said with a smile
-		Talking too much
-		User is a blabber mouth
-		Laugh-happy user
-		Comedy
+                Big mouth
+                User is laughing (at you!)
+                Big smile
+                Said with a smile
+                Talking too much
+                User is a blabber mouth
+                Laugh-happy user
+                Comedy

 :-o             "Oh, nooooooo!" (a la Mr. Bill)
-		User singing national anthem
-		Uh oh!
-		Surprise / shocker
-		"Oh, the humanity!"
-		Mr. Bill
-		Wow!
-		Shocked
-		Yawn
-		Talking/Peaceably
-		More versions of shouting
-		Bored
+                User singing national anthem
+                Uh oh!
+                Surprise / shocker
+                "Oh, the humanity!"
+                Mr. Bill
+                Wow!
+                Shocked
+                Yawn
+                Talking/Peaceably
+                More versions of shouting
+                Bored

 :-(             Sad or disappointed face
-		Unhappy
-		Frowning smilie.
-		Boo hoo
-		Drama
-		"I will start with those you love most"
-		Has read too many 'smiley' articles
-		Mad
-		Sad face, 'that comment makes me sad (mad)'
-		Un-smiley
-		Displeasure
-		Sad user
-		Depressed of frowning
-		"Have an ordinary day"
+                Unhappy
+                Frowning smilie.
+                Boo hoo
+                Drama
+                "I will start with those you love most"
+                Has read too many 'smiley' articles
+                Mad
+                Sad face, 'that comment makes me sad (mad)'
+                Un-smiley
+                Displeasure
+                Sad user
+                Depressed of frowning
+                "Have an ordinary day"

 :-P             Tongue stuck out
-		Wider happy face (or Minstrel singers)
-		Nyahhhh!
-		Nyah nyah
-		"I have a longer tongue than Gene Simmons"
-		Has a secret to tell you
-		Telling secrets
-		Tongue hanging out in anticipation
-		User is wanting to lick your neck
-		Keeping a straight face (tight-lipped)
+                Wider happy face (or Minstrel singers)
+                Nyahhhh!
+                Nyah nyah
+                "I have a longer tongue than Gene Simmons"
+                Has a secret to tell you
+                Telling secrets
+                Tongue hanging out in anticipation
+                User is wanting to lick your neck
+                Keeping a straight face (tight-lipped)

 :-J             Tongue in cheek
-		Tongue-in-cheek comments
-		Surfer
+                Tongue-in-cheek comments
+                Surfer

 :-#             Message concerning something that shouldn't have been said
-		Censored
-		User wears braces
-		Braces
-		"My lips are sealed"
-		Mouth zipped
-		Punched in the mouth
-		Talking with Braces
-		Blowing a kiss
+                Censored
+                User wears braces
+                Braces
+                "My lips are sealed"
+                Mouth zipped
+                Punched in the mouth
+                Talking with Braces
+                Blowing a kiss


 :-$             Message indicating person is ill
-		Put your money where your mouth is
-		Smiley face with it's mouth wired shut
-		"These braces sure do hurt!"
-		Mouth wired shut
-		Sellout (does NOT rhyme with zealot!)
-		Uncertainty
-		Jewish user
+                Put your money where your mouth is
+                Smiley face with it's mouth wired shut
+                "These braces sure do hurt!"
+                Mouth wired shut
+                Sellout (does NOT rhyme with zealot!)
+                Uncertainty
+                Jewish user

 :-&             Message indicating person is angry
-		User is tongue tied
-		Smiley which is tongue-tied
-		Perplexed
-		User eating spaghetti
+                User is tongue tied
+                Smiley which is tongue-tied
+                Perplexed
+                User eating spaghetti

 :-*             Kiss...
-		Oooops (covering mouth with hand)
-		User just ate a sour pickle
-		User just ate something sour
-		Smiley after eating something bitter
-		After eating something bitter or sour
-		Star-tled
-		Blowing a kiss
+                Oooops (covering mouth with hand)
+                User just ate a sour pickle
+                User just ate something sour
+                Smiley after eating something bitter
+                After eating something bitter or sour
+                Star-tled
+                Blowing a kiss

 :-x             Kiss kiss
-		"My lips are sealed" smiley
-		"My lips are sealed"
-		Not telling any secrets
-		User kissing
-		Blowing a kiss
+                "My lips are sealed" smiley
+                "My lips are sealed"
+                Not telling any secrets
+                User kissing
+                Blowing a kiss

 :-(=)           Message from a person with big teeth.
-		Message about people with big teeth
-		Bucktooth smiley
-		Big teeth
+                Message about people with big teeth
+                Bucktooth smiley
+                Big teeth

 <:-)            Dumb questions
-		For dumb questions
-		User is Vietnamese peasant
-		Hero user
-		Dunce
-		Magician
-		Skier
+                For dumb questions
+                User is Vietnamese peasant
+                Hero user
+                Dunce
+                Magician
+                Skier

 |-(             Late night messages
-		Nightmare.
-		Smiley lost his contact lenses
-		Asleep with nightmares
-		Yawn
+                Nightmare.
+                Smiley lost his contact lenses
+                Asleep with nightmares
+                Yawn

 :^)             From a person with a large nose
-		Messages teasing people about their noses
-		User has a broken nose
-		Smiley with pointy nose (righty)
-		Smiley with a personality
-		3/4 view of person with elf-type sharp nose
-		Broken nose
-		Happy
+                Messages teasing people about their noses
+                User has a broken nose
+                Smiley with pointy nose (righty)
+                Smiley with a personality
+                3/4 view of person with elf-type sharp nose
+                Broken nose
+                Happy

 :*)             Clowning around
-		Smile with moustache
-		I'm drunk
-		User is drunk
-		Ed McMahon
-		Drunk smiling face
-		Everyman
-		Smilie with the nose of a clown
-
+                Smile with moustache
+                I'm drunk
+                User is drunk
+                Ed McMahon
+                Drunk smiling face
+                Everyman
+                Smilie with the nose of a clown
+
 :-{#}           From a person with braces
-		Messages teasing people about their braces
-		User is sick of messages teasing people about their braces
+                Messages teasing people about their braces
+                User is sick of messages teasing people about their braces

 &:-)            From a person with curly hair
-		Messages from people with curly hair
-		Curly hair
-		User is Guinan
-		Wig II
+                Messages from people with curly hair
+                Curly hair
+                User is Guinan
+                Wig II

 @:-)            From a person with wavy hair
-		User is wearing a turban
-		Smiley wearing a turban
-		Indian (East/Asian)
-		Elvis
-		A turban
+                User is wearing a turban
+                Smiley wearing a turban
+                Indian (East/Asian)
+                Elvis
+                A turban

 #:-)            From a person with matted hair
-		Done by someone with sort of matted hair
-		"Everything you know is wrong"
-		For people whose hair is in a mess
-		User has a crewcut
-		Smilie with a fur hat
-		Happy with Hair
+                Done by someone with sort of matted hair
+                "Everything you know is wrong"
+                For people whose hair is in a mess
+                User has a crewcut
+                Smilie with a fur hat
+                Happy with Hair

 O:-)            Angel
-		For those innocent souls
-		Angel smiley
-		Acting very innocent (halo)
-		With halo
+                For those innocent souls
+                Angel smiley
+                Acting very innocent (halo)
+                With halo

 C=:-)           Chef
-		User is a chef
-		Chef smiley
-		Galloping Gourmet
+                User is a chef
+                Chef smiley
+                Galloping Gourmet

 ;-)}<////>      Corporate-type guy (see the necktie?)

 :-) )-:         Masking theatrical comments

 :-|K-           Formal message
-		User is formally attired
-		Evening dress
+                User is formally attired
+                Evening dress

 <:>==           A turkey
-		A turkey emoticon
+                A turkey emoticon

 ...---...       S.O.S.

@@ -279,10 +279,10 @@ O:O             A girl is mooning you
 @*&$!%          You know what that means...

 2B|^2B          Message about Shakespeare
-		"Forty Seconal should suffice"
+                "Forty Seconal should suffice"

 (O--<           A fishy message...
-		User suspects something fishy is going on
+                User suspects something fishy is going on

 @}->--          A rose.

@@ -327,158 +327,158 @@ O:O             A girl is mooning you
 @--^--^--^--^------     A rose.

 (-_-)           Secret smile
-		User is happy (sideways)
+                User is happy (sideways)

 (.)(.)          Ms. Dos
-		User has big boobs
+                User has big boobs

 :/)             Not funny

 :-)))           Reeeel happy, big smile
-		I'm overweight
-		William Conrad
+                I'm overweight
+                William Conrad

 :->             Alternate happy face
-		User just made a really biting sarcastic remark.
-		Hey hey
-		Sarcastic smiley
-		Biting sarcastic face
-		Deformed lips
-		Happy
-		Yet another smiley
-		Smug
-		User just made a really devilish remark
-		Very Glad/Pleased/Very Happy
-		Leer
-		Grin
-		Smiley walrus
+                User just made a really biting sarcastic remark.
+                Hey hey
+                Sarcastic smiley
+                Biting sarcastic face
+                Deformed lips
+                Happy
+                Yet another smiley
+                Smug
+                User just made a really devilish remark
+                Very Glad/Pleased/Very Happy
+                Leer
+                Grin
+                Smiley walrus

 :-c             Real unhappy
-		Bummed out smiley
+                Bummed out smiley

 :-C             Unbelieving (jaw dropped)
-		User is really bummed
-		Real unhappy smiley
-		Dracula user
-		Count Dracula
+                User is really bummed
+                Real unhappy smiley
+                Dracula user
+                Count Dracula

 :-<             Forlorn
-		Real sad smiley
-		Walrus smiley
-		Frowning
-		Moustache
-		Amazed
-		Mad/Upset
-		Vampire
-		Dog
+                Real sad smiley
+                Walrus smiley
+                Frowning
+                Moustache
+                Amazed
+                Mad/Upset
+                Vampire
+                Dog

 ;-C             Sardonic incredulity

 :-}             Crooked Smile
-		Smiley variation on a theme
-		Beard
-		"Thish wine tashted pretty good"
-		Fiendish grin
-		Lipstick
-		Normal smiling face with pretty lips
-		Wears lipstick or some other lip appearance improving device
-		User has had a little too much to drink
-		Smilie with a curly smile
-		User happy Matthew
-		Ironic Smile
-		User is leering
+                Smiley variation on a theme
+                Beard
+                "Thish wine tashted pretty good"
+                Fiendish grin
+                Lipstick
+                Normal smiling face with pretty lips
+                Wears lipstick or some other lip appearance improving device
+                User has had a little too much to drink
+                Smilie with a curly smile
+                User happy Matthew
+                Ironic Smile
+                User is leering

 :-i             Semi-Smiley
-		User is half smiling
-		Smoking
+                User is half smiling
+                Smoking

 :-7             User after a wry statement
-		User just made a wry statement
-		Smiley after a wry statement
-		Smirking smiley
-		Smokes a pipe
-		Talking out of side of mouth
-		Wry face
+                User just made a wry statement
+                Smiley after a wry statement
+                Smirking smiley
+                Smokes a pipe
+                Talking out of side of mouth
+                Wry face

 (@ @)           You're kidding!

 :-"             Pursing lips
-		Whistling smiley
-		Heavy smoker
+                Whistling smiley
+                Heavy smoker

 :-v             Just another face (speaking) profiled from the side
-		Talking head smiley
-		Speaking
-		Orator
+                Talking head smiley
+                Speaking
+                Orator

 :-V             Shout
-		Shouting smiley
+                Shouting smiley

 :-O             Shout
-		Uh oh
-		Talkaktive smiley
-		Mr. Bill
-		Wow!
-		Birth
-		Ohh, big mouth, Mick Jagger
-		Yelling
-		Shocked user
-		Orator
+                Uh oh
+                Talkaktive smiley
+                Mr. Bill
+                Wow!
+                Birth
+                Ohh, big mouth, Mick Jagger
+                Yelling
+                Shocked user
+                Orator

 :-w             Speak with forked tongue

 :-W             Shout with forked tongue
-		Speak with forked tongue
+                Speak with forked tongue

 :-r             Bleahhh (sticking tongue out)
-		Smiley raspberry
-		Sticking tongue out
+                Smiley raspberry
+                Sticking tongue out

 :-f             Bleahhh (sticking tongue out)
-		Sticking tongue out
+                Sticking tongue out

 :-p             Bleahhh (sticking tongue out)
-		Smiley sticking its tongue out (at you!)
-		User is talking, talking, talking
+                Smiley sticking its tongue out (at you!)
+                User is talking, talking, talking

 :-1             Smirks
-		Smiley bland face
-		Bland face
+                Smiley bland face
+                Bland face

 :-,             Smirks
-		"Hmmmm."
-		Smirking
-		Blank with cigarette or cigar
+                "Hmmmm."
+                Smirking
+                Blank with cigarette or cigar

 <:-O            Eeek!
-		User just saw a mouse, Eeek!
+                User just saw a mouse, Eeek!

 :-T             Keeping a straight face (tight-lipped)

 :-y             Wider happy face (or Minstrel singers)
-		Said with a smile
-		Keeping a straight face (tight-lipped)
-		Speaking doubtfully
+                Said with a smile
+                Keeping a straight face (tight-lipped)
+                Speaking doubtfully

 :-|             Disgusted
-		Man playing an harmonica
-		"Have an ordinary day" smiley
-		User is having an ordinary day
-		Grim
-		No expression
-		No expression face, 'that comment doesn't phase me'
-		Dead face
-		Blank look
-		Smiley monkey
+                Man playing an harmonica
+                "Have an ordinary day" smiley
+                User is having an ordinary day
+                Grim
+                No expression
+                No expression face, 'that comment doesn't phase me'
+                Dead face
+                Blank look
+                Smiley monkey

 :'-(            Shedding a tear
-		User is crying
-		Crying
-		Upset
+                User is crying
+                Crying
+                Upset

 :~-(            Shedding a tear
-		Crying
-		Bawling/Really Crying and Upset
+                Crying
+                Bawling/Really Crying and Upset

 :~(~~~          Crying

@@ -487,41 +487,41 @@ O:O             A girl is mooning you
 :-)~~~          Another drool

 |-)             Getting tired
-		A good dream!  Or a face looking into bright sunlight.
-		Lt. LaForge
-		Data
-		Hee hee
-		Chinese
-		Same as :-) but poster is Oriental
-		Asleep (boredom)
-		Nip user
-		Dreaming Pleasently/Sleeping
-		Oriental
-		Ray-Bans
-		User is sniggering
+                A good dream!  Or a face looking into bright sunlight.
+                Lt. LaForge
+                Data
+                Hee hee
+                Chinese
+                Same as :-) but poster is Oriental
+                Asleep (boredom)
+                Nip user
+                Dreaming Pleasently/Sleeping
+                Oriental
+                Ray-Bans
+                User is sniggering

 :~)             Yummee - lick lips
-		Peter Ubberoth
-		Needs a nosejob
-		Pointy nose (righty)
-		Smiling face needs a nosejob, no explanation necessary
-		Ugly nose
-		Ill with a cold
-		I might sneeze
+                Peter Ubberoth
+                Needs a nosejob
+                Pointy nose (righty)
+                Smiling face needs a nosejob, no explanation necessary
+                Ugly nose
+                Ill with a cold
+                I might sneeze

 :-?             Licking your lips
-		User smokes a pipe
-		Smiley smoking a pipe
-		Smoking a pipe
-		Tongue in cheek
-		User with a fetish for Blue Oyster Cult
-		Puzzled/Questioning
-		Jean Chretien's face
-		Speaks like a politician
-		"Mais que voulez-vous?" (I can't help)
+                User smokes a pipe
+                Smiley smoking a pipe
+                Smoking a pipe
+                Tongue in cheek
+                User with a fetish for Blue Oyster Cult
+                Puzzled/Questioning
+                Jean Chretien's face
+                Speaks like a politician
+                "Mais que voulez-vous?" (I can't help)

 :-8             Talking out both sides of your mouth
-		I just ate a pickle
+                I just ate a pickle

 o=              A burning candle for flames

@@ -530,70 +530,70 @@ o=              A burning candle for flames
 8               Infinity

 .-)             User has one eye
-		User is Sammy Davis, Jr.
+                User is Sammy Davis, Jr.

 :-:             User is mutant
-		Mutant smiley
-		Mutant
-		Toothless
-
-		The invisible smilie
-		Smiley invisible man
-		Ghost smiley in invisible state
-		Here's the boat I lost
+                Mutant smiley
+                Mutant
+                Toothless
+
+                The invisible smilie
+                Smiley invisible man
+                Ghost smiley in invisible state
+                Here's the boat I lost

 :<)             For those with hairy lips
-		User is from an Ivy League School
-		User is a blabber mouth
+                User is from an Ivy League School
+                User is a blabber mouth

 :^{             For those with mustaches

 8*)             Smile with glasses and moustache
-		Glasses and a moustache
+                Glasses and a moustache

-B*)             Smile with Moustache and Designer Sunglasses!
+B*)             Smile with Moustache and Designer Sunglasses!

 :<)=            For those with beards too

 :-=)            Older user with mustache
-		Older smiley with mustache
-		Adolph Hitler
+                Older smiley with mustache
+                Adolph Hitler

 :-#|            User with bushy mustache
-		Smiley face with bushy mustache
-		Bushy mustache
+                Smiley face with bushy mustache
+                Bushy mustache

 ::-)            User wears glasses
-		User wears normal glasses
-		User has four eyes
-		Bi-focals
+                User wears normal glasses
+                User has four eyes
+                Bi-focals

 8:-)            Glasses on forehead
-		From a little girl
-		User is a little girl
-		Little girl smiley
-		Wizard
-		Spectacles on their forehead
+                From a little girl
+                User is a little girl
+                Little girl smiley
+                Wizard
+                Spectacles on their forehead

 B-|             User is wearing cheap sunglasses
-		Cheap sunglasses
-		Batman (as played by Michael Keaton)
+                Cheap sunglasses
+                Batman (as played by Michael Keaton)

 P-)             Pirate
-		Colonel Klink (Hogan's Heroes)
-		Getting fresh
+                Colonel Klink (Hogan's Heroes)
+                Getting fresh

 :-{             Count Dracula
-		Smiley variation on a theme
-		Mustache
-		User sad Matthew
-		Alternate sad face
+                Smiley variation on a theme
+                Mustache
+                User sad Matthew
+                Alternate sad face

 =|:-)=          Uncle Sam
-		Abe Lincoln
+                Abe Lincoln

 7:)             Ronald Reagan
-
+
 :~i             Smoking

 :~j             Smoking and smiling
@@ -601,106 +601,106 @@ P-)             Pirate
 :/i             No smoking

 :-I             Indifferent smilie.
-		Hmm
-		Indifferent
-		Thinking
-		Poker face
-		It's something, but I don't know what...
-		User without a sense of humor
-		Angry
+                Hmm
+                Indifferent
+                Thinking
+                Poker face
+                It's something, but I don't know what...
+                User without a sense of humor
+                Angry

 :-B             Drooling (or overbite)
-		User is David Letterman (gap-toothed smile)
-		Buttmouth user
+                User is David Letterman (gap-toothed smile)
+                Buttmouth user

 ):-) :-) :-)    Loud guffaw

 (:-)            Msgs dealing with bicycle helmets
-		Captain Picard
-		Smiley big-face
-		"I never sang for my grandfather"
-		Big-face
-		No hair
-		Surprised
-		User is bald
-		Wearing bicycle helmet
-		Smilie wearing skull cap
-		Soldier
+                Captain Picard
+                Smiley big-face
+                "I never sang for my grandfather"
+                Big-face
+                No hair
+                Surprised
+                User is bald
+                Wearing bicycle helmet
+                Smilie wearing skull cap
+                Soldier

 @=              Warning about nuclear war
-		User is pro-nuclear war
-		"Kafka was a momma's boy"
-		Flame about nuclear war, power or weapons follows
-		Pro-nuclear activist
+                User is pro-nuclear war
+                "Kafka was a momma's boy"
+                Flame about nuclear war, power or weapons follows
+                Pro-nuclear activist

 OO              Headlights on msg

 :_)             I used to be a boxer, but it really got my nose out of joint
-		User's nose is sliding off of his face
-		After a fight where his nose was smashed in
-		Viet Nam vet user (with nose broken out of joint by some VC)
-		Tongue in cheek
-		Boxer
-
+                User's nose is sliding off of his face
+                After a fight where his nose was smashed in
+                Viet Nam vet user (with nose broken out of joint by some VC)
+                Tongue in cheek
+                Boxer
+
 #:-o            "Oh, nooooooo!" (a la Mr. Bill)
-		"Jesus built my hotrod"
-		Smiley done by someone with matted hair
-		Mr. Bill
+                "Jesus built my hotrod"
+                Smiley done by someone with matted hair
+                Mr. Bill

 (:-$            Message indicating person is ill
-		Ill
-		Ill-informed about the Renaissance
+                Ill
+                Ill-informed about the Renaissance

 (:-&            Message indicating person is angry
-		Rosicrucian
-		Angry
+                Rosicrucian
+                Angry

 (:-(            Message indicating person is VERY sad
-		Unsmiley frowning
-		Very unhappy smiley
-		The saddest smiley
-		Sting
-		Frowning
+                Unsmiley frowning
+                Very unhappy smiley
+                The saddest smiley
+                Sting
+                Frowning

 (:^(            Message concerning people with broken noses
-		Jack Nicholson in Chinatown
-		Broken nose
+                Jack Nicholson in Chinatown
+                Broken nose

 (:<)            Message concerning blabber mouths
-		Rastafari
-		Blabber mouth
+                Rastafari
+                Blabber mouth

 ?-(             Message about people with a black eye
-		Black eye
+                Black eye

 *:*             Message about fuzzy things
-		Fuzzy
+                Fuzzy

 *:**            Message about fuzzy things with fuzzy mustaches
-		Fuzzy with a fuzzy mustache
+                Fuzzy with a fuzzy mustache

 %-)             Message about people with broken glasses
-		User is cross-eyed
-		User has been staring at a green screen for 15 hours straight
-		Elephant man
-		After staring at the terminal for 36 hours
-		Broken glasses
-		Drunk with laughter
-		Long bangs
+                User is cross-eyed
+                User has been staring at a green screen for 15 hours straight
+                Elephant man
+                After staring at the terminal for 36 hours
+                Broken glasses
+                Drunk with laughter
+                Long bangs

 +<:-|           Message from a monk/nun
-		The Pope
+                The Pope

 {0-)            Message from cyclops
-		Hair-parted-in-the-middle-scuba-diver user smiling
+                Hair-parted-in-the-middle-scuba-diver user smiling

 (:-|K-          Formal message
-		Formally attired
-		A suit and tie
+                Formally attired
+                A suit and tie

 @%&$%&          You know what that means
-		N.W.A. fan
-		User is swearing up a storm
+                N.W.A. fan
+                User is swearing up a storm

 ||*(            Handshake offered (giving)

@@ -711,34 +711,34 @@ OO              Headlights on msg
 >< ><           Message about/to someone wearing argyle socks

 <{:-)}          Message in a bottle
-		In a bottle
+                In a bottle

 <:-)<<|         Message from a space rocket
-		In a space rocket
+                In a space rocket

 (:-...          Heart-breaking message
-		Heart-broken
+                Heart-broken

 <<<<(:-)        Message from a hat sales-man

 (:>-<           Message from a thief: hands up! (mini whole body)

 <I==I)          A message on four wheels
-		User is on four wheels
+                User is on four wheels

 {               Alfred Hitchcock
-		A psycho
-
+                A psycho
+
 ..|._           Opposite of a rose

 &;-P            A suave guy on the make, who keeps advertising...just in case.

-*;-~i           A lady replying to the guy by closing both eyes & puffing
-			nonchalantly on her cigarette.
+*;-~i           A lady replying to the guy by closing both eyes & puffing
+                        nonchalantly on her cigarette.

 >:-)            Devil
-		Nasty user
-		A little devil
+                Nasty user
+                A little devil

 >;-)            Devilish Wink

@@ -755,7 +755,7 @@ OO              Headlights on msg
 (8-}            Percy Dovetonsils

 >-)             Oriental Smiling Face
-		An alien
+                An alien

 &B-]}<////>     Another corporate-type with aviator glasses, wavy hair & tie.

@@ -766,169 +766,169 @@ O^O             A FEMALE moon
 ;|8-)           Hagar caught lying

 7:^]            I resemble Ronald Reagan
-		Ronald Reagan
+                Ronald Reagan

 *<|:-)          I'm Santa Claus
-		Santa Claus (Ho Ho Ho)
+                Santa Claus (Ho Ho Ho)

 )-:|<*          Sanity Clause

 [:-)            I'm wearing a walkman
-		Smiley wearing a walkman
-		Listening to walkman
-		User has a flattop
-		Frankenstein user
-		Garibaldi from Babylon 5 (author says note the flat top)
-		User is wearing a hard-hat
-		A personal stereo
-		Frankenstein's monster
+                Smiley wearing a walkman
+                Listening to walkman
+                User has a flattop
+                Frankenstein user
+                Garibaldi from Babylon 5 (author says note the flat top)
+                User is wearing a hard-hat
+                A personal stereo
+                Frankenstein's monster

 d:-)            I'm a Braves fan
-		Message about baseball
-		Baseball smiley
-		Baseball player
-		Smilie with a cap
-		Jockey
-		A baseball cap
+                Message about baseball
+                Baseball smiley
+                Baseball player
+                Smilie with a cap
+                Jockey
+                A baseball cap

 :-\             Popeye smiling face
-		Undecided smiley
-		User is VERY sad
-		Thinking
-		Skeptical
+                Undecided smiley
+                User is VERY sad
+                Thinking
+                Skeptical

 ;-\             Popeye gets his lights punched out
-		Popeye beaten up
+                Popeye beaten up

 :-s             User after a BIZARRE comment
-		Smiley after a BIZARRE comment
-		Confused
+                Smiley after a BIZARRE comment
+                Confused

 -:-)            User sports a mohawk and admmires Mr. T
-		User is a punk rocker
-		Has mohawk
+                User is a punk rocker
+                Has mohawk

 :%)%            User has acne

 :n)             User with funny-looking right nose
-		Smiley with funny-looking right nose
+                Smiley with funny-looking right nose

 :u)             User with funny-looking left nose
-		Smiley with funny-looking left nose
+                Smiley with funny-looking left nose

 '-)             User only has a left eye, which is closed
-		Winking smiley
-		One eyed man
+                Winking smiley
+                One eyed man

 (-:             User is left-handed
-		Australian
-		Don Ellis from Tektronix
-		Left-handed
+                Australian
+                Don Ellis from Tektronix
+                Left-handed

 (-)             User needs a haircut

 (:I             Egghead
-		User is an egghead
+                User is an egghead

 {:-)            Smiley with its hair parted in the middle
-		Kirk
-		User wears a toupee
-		Smiley wears a toupee
-		New hair style
-
+                Kirk
+                User wears a toupee
+                Smiley wears a toupee
+                New hair style
+
 +:-)            Smiley priest
-		Priest smiley
-		Priest
+                Priest smiley
+                Priest

 =:-)            Smiley punk-rocker
-		From a hosehead
-		Smiley is a punk
-		Punk rocker
-		User is a dickhead
+                From a hosehead
+                Smiley is a punk
+                Punk rocker
+                User is a dickhead

 %-^             User is Picasso
-		Picasso
-		User was painted by Picaso
+                Picasso
+                User was painted by Picaso

 @:I             Turban

 (><)            Anally retentive

 :-!             Foot in mouth
-		Smiley bland face
-		Bland face
-		Malcom McUser
-		Excited/Exclaiming
+                Smiley bland face
+                Bland face
+                Malcom McUser
+                Excited/Exclaiming

 #-)             Partied all night
-		Lt. LaForge
-		Zombie
+                Lt. LaForge
+                Zombie

 :-(*)           About to vomit
-		That comment made me sick
-		Sick of netnews articles, about to vomit
+                That comment made me sick
+                Sick of netnews articles, about to vomit

 %-\             Hungover

 :-)8            Well dressed
-		Man with bowtie
-		Thespian
+                Man with bowtie
+                Thespian

 :-)-{8          From a big girl
-		User is a big girl
+                User is a big girl

 :x(             Habe a code in by dose

 8:]             From a gorilla
-		Gorilla
+                Gorilla

 (:)-)           Scuba diver
-		Likes to scuba dive
-		Scuba diving
+                Likes to scuba dive
+                Scuba diving

 (-:|:-)         Siamese twins

 {:V             Sounds like a duck

 %+{             From the loser of a fight
-		Lost a fight
+                Lost a fight

 d :-)           Hats off to your great idea

 q:-)            For those who wear their caps backwards
-		Wearing baseball cap backwards
-		User is a baseball player
-		Baseball catcher
-		Rapper
+                Wearing baseball cap backwards
+                User is a baseball player
+                Baseball catcher
+                Rapper

 >:-|            Spock
-		Trekkie
+                Trekkie

 :-/             McCoy
-		User is skeptical
-		Lefty undecided smiley
-		Retarded user
-		Mixed/Apprenhensive
+                User is skeptical
+                Lefty undecided smiley
+                Retarded user
+                Mixed/Apprenhensive

 :-{)}           Commander Riker

-<>:{(}          Lt. Worf
+<>:{(}          Lt. Worf

 **:-)           Counsellor Troi

-])              Lt. LaForge
+])              Lt. LaForge

 [:-|            Data

 {(:-)           I am William Shatner
-		Wearing toupee
+                Wearing toupee

 } (:-(          I am William Shatner in a high wind

 8(:-)           Zippy
-		Mickey Mouse
-		Mousketeer
-		Walt Disney
+                Mickey Mouse
+                Mousketeer
+                Walt Disney

 ******:-)       Marge Simpson

@@ -941,151 +941,151 @@ q:-)            For those who wear their caps backwards
 --              When it's the occasion to boow (Japanese symbol)

 >:->            User just made a really devilish remark.
-		Devilish smiley
-		Devilish
-		User is leering
+                Devilish smiley
+                Devilish
+                User is leering

 >;->            Winky and devil combined.
-		A very lewd remark was just made
+                A very lewd remark was just made

 [:]             User is a robot
-		Robot smiley
-		Robot
+                Robot smiley
+                Robot

 B:-)            Sunglasses on head
-		User has glasses on forehead
+                User has glasses on forehead

 :-)-8           User is a big girl (partial body)

 :-{)            User has a mustache
-		Moustache
-		Normal smiling face with a moustache
-		Happy with Mustache
+                Moustache
+                Normal smiling face with a moustache
+                Happy with Mustache

 :-{}            User wears lipstick
-		Smiley wears lipstick
-		Heavy lipstick
-		Mick Jagger
-		Big mouth
+                Smiley wears lipstick
+                Heavy lipstick
+                Mick Jagger
+                Big mouth

 }:-(            Toupee in an updraft
-		Bull headed
+                Bull headed

 :-[             User is a Vampire
-		Un-smiley blockhead
-		Vampire smiley
-		Biting criticism
-		Blockhead
-		Pouting
-		Sarcastic
-		Count Dracula
-		Bad Mood/Grumpy
-		Severe Displeasure
-
+                Un-smiley blockhead
+                Vampire smiley
+                Biting criticism
+                Blockhead
+                Pouting
+                Sarcastic
+                Count Dracula
+                Bad Mood/Grumpy
+                Severe Displeasure
+
 :-E             Bucktoothed vampire
-		Has major dental problems
+                Has major dental problems

 :-F             Bucktoothed vampire with one tooth missing

 :-)~            User drools
-		Drooling
+                Drooling

 :-~)            User has a cold

 :'-)            User is so happy, s/he is crying
-		Crying with happiness
+                Crying with happiness

 :-@             User is screaming
-		Smiley face screaming
-		User is saying, "It's true, I swear"
-		Beard has permanent wave *or* was drawn by Picasso.
-		Extremely angry
-		Swearing
-		User about to barf
-		Barking/Tounge Lashing
-		Tongue ring
+                Smiley face screaming
+                User is saying, "It's true, I swear"
+                Beard has permanent wave *or* was drawn by Picasso.
+                Extremely angry
+                Swearing
+                User about to barf
+                Barking/Tounge Lashing
+                Tongue ring

 :v)             User has a broken nose
-		Left-pointing nose smiley
-		Left-pointing broken nose
-		Big nose
+                Left-pointing nose smiley
+                Left-pointing broken nose
+                Big nose

 -:-(            Punk rocker (real punk rockeers don't smile)

 :=)             User has two noses
-		Orangutan smiley
+                Orangutan smiley

 +-:-)           User is the Pope or holds some other religious office
-		Priest
+                Priest

 `:-)            Shaved his right eyebrow off this morning

 ,:-)            David Ogden Stiers' toupee
-		Shaved his left eyebrow off this morning
+                Shaved his left eyebrow off this morning

 |-I             User is asleep
-		Sleeping
+                Sleeping

 |-O             User is yawning/snoring
-		Birth
-		Bored
-		User is bored by the article you submitted
+                Birth
+                Bored
+                User is bored by the article you submitted

 :-Q             User is a smoker
-		Smoker
-		Smoking smiley
-		User smoking a bud
-		Talking or Shouting with cigarette or cigar
+                Smoker
+                Smoking smiley
+                User smoking a bud
+                Talking or Shouting with cigarette or cigar

 O-)             Message from cyclops
-		Smiley after smoking a banana
-		Megaton Man, on patrol!
-		Scuba diver
-		Arc-welder
-		A Martian (happy)
+                Smiley after smoking a banana
+                Megaton Man, on patrol!
+                Scuba diver
+                Arc-welder
+                A Martian (happy)

 O :-)           User is an angel (at heart, at least)
-		Angel
+                Angel

 :-S             User just made an incoherent statement
-		What you say makes no sense
-		Sick smilie
-		Sheepish/confused
+                What you say makes no sense
+                Sick smilie
+                Sheepish/confused

 :-X             User's lips are sealed
-		Bow tie
-		A big wet kiss
-		User with taped-up mouth
-		User is swearing
+                Bow tie
+                A big wet kiss
+                User with taped-up mouth
+                User is swearing

 <|-)            User is Chinese
-		Rickshaw driver
-		A Vietnamese peasant
+                Rickshaw driver
+                A Vietnamese peasant

 <|-(            User is Chinese and doesn't like these kind of jokes/fortunes

 *<:-)           User is wearing a Santa Claus Hat
-		Santa Claus
-		Smilie with hat and pompom (cold weather smilie)
+                Santa Claus
+                Smilie with hat and pompom (cold weather smilie)

 (8-o            It's Mr. Bill!

 *:o)            It's Bozo the Clown!
-		User is a bozo
-		Clown
+                User is a bozo
+                Clown

 3:]             Pet smilie

 3:[             Mean Pet smilie
-		Pit bull smiley
+                Pit bull smiley

 d8=             Your pet beaver is wearing goggles and a hard hat

 E-:-)           User is a Ham radio operator
-		TV detector van operator
+                TV detector van operator

 :-9             User is licking his/her lips
-		Smiley licking it's lips
+                Smiley licking it's lips

 %-6             User is braindead

@@ -1094,172 +1094,172 @@ E-:-)           User is a Ham radio operator
 K:P             User is a little kid with a propeller beenie

 :-0             No Yelling!  (Quiet Lab)
-		Orator
-		Smiley orator
-		User can't find shift key
+                Orator
+                Smiley orator
+                User can't find shift key

 ..-)            User only has one eye

 ,-)             User only has one eye
-		Winking happy smiley
-		One eye ... and winking
-		Sammy Davis, Jr.
+                Winking happy smiley
+                One eye ... and winking
+                Sammy Davis, Jr.

 X-(             User just died
-		Net.suicide
-		You are brain dead
-		Dead user
+                Net.suicide
+                You are brain dead
+                Dead user

 8 :-)           User is a wizard

-C=}>;*{))       Mega-Smilie... A drunk, devilish chef with a toupee in an
-			updraft, a mustache, and a double chin
+C=}>;*{))       Mega-Smilie... A drunk, devilish chef with a toupee in an
+                        updraft, a mustache, and a double chin

 :]              Gleep...a friendly midget smilie who will gladly be your friend

 =)              Variation on a theme
-		Chinese smiley
-		Interested smiley (big eyes)
-		The "cute" smiley
-		A different smiley
+                Chinese smiley
+                Interested smiley (big eyes)
+                The "cute" smiley
+                A different smiley

 :}              What should we call these? (what?)
-		The Grinch
-		If the user is a frenchmen and he has a curly mustache
+                The Grinch
+                If the user is a frenchmen and he has a curly mustache

 :@              Screaming

 :I              Hmmm...
-		Hmmm, not funny!
-		Bored
-		Cute guy
-		Pensive
-		Bad joke, but since I like you, I'll try to smile
-		Happy
+                Hmmm, not funny!
+                Bored
+                Cute guy
+                Pensive
+                Bad joke, but since I like you, I'll try to smile
+                Happy

 :(              Sad
-		Sad-turtle smiley
-		Frowning
+                Sad-turtle smiley
+                Frowning

 :[              Real Downer
-		A vampire
-		Very unhappy
+                A vampire
+                Very unhappy

 :<              Midget unsmiley
-		What pretences!
-		Sad boy
+                What pretences!
+                Sad boy

 :{              Oh boy, the headmaster!

 :O              Yelling
-		Amazed
-		Feed me smileys
-		Big gob
+                Amazed
+                Feed me smileys
+                Big gob

 :C              Bummed

 :Q              Smoking
-		Split/chapped lip
+                Split/chapped lip

 :,(             Crying
-		Crying smiley
+                Crying smiley

 []              Hugs

 :*              Kisses
-		Blowing kisses
+                Blowing kisses

 |I              Asleep

 |^o             Snoring
-		Hepcat
+                Hepcat

 :-`             Smiley spitting out its chewing tobacco
-		Spitting out chewing tobacco
+                Spitting out chewing tobacco

 :-%             Smiley banker
-		Banker
-		Bearded
-		Talking out of both sides of mouth
+                Banker
+                Bearded
+                Talking out of both sides of mouth

 :-6             Smiley after eating something sour
-		Smiley after eating something spicy
+                Smiley after eating something spicy

 ):-)            Smiley big-face
-		Impish smiley
+                Impish smiley

 ):-(            Unsmiley big-face
-		Nordic smiley
+                Nordic smiley

 )8-)            Scuba smiley big-face

 =:-(            Real punks never smile
-		Punk rocker (real punk rockers don't smile)
+                Punk rocker (real punk rockers don't smile)

 :-q             Smiley trying to touch its tongue to its nose
-		Trying to touch tongue to nose
+                Trying to touch tongue to nose

 :-e             Disappointed smiley
-		Disappointed
+                Disappointed

 :-t             Cross smiley
-		Pouting smiley
+                Pouting smiley

 :-]             Smiley blockhead
-		Biting sarcasm
-		Blockhead
-		Sarcastic
-		Smilie with straight smile
-		Obnoxious user
-		Good Mood/Grinning
-		Grim Smile
+                Biting sarcasm
+                Blockhead
+                Sarcastic
+                Smilie with straight smile
+                Obnoxious user
+                Good Mood/Grinning
+                Grim Smile

 }:-)            Hair parted in the middle in an updraft
-		Wearing toupee in an updraft
-		I have a bull head
-		Devil
+                Wearing toupee in an updraft
+                I have a bull head
+                Devil

 :-a             Lefty smilely touching tongue to nose

 :-d             Lefty smiley razzing you
-		Said with a smile
-		User is making razzbery Ththtpppttt
-		User is sticking out their tongue
+                Said with a smile
+                User is making razzbery Ththtpppttt
+                User is sticking out their tongue

 g-)             Wearing pince-nez glasses

 :-j             Left smiling smilely
-		User has a crooked smile
-		Smoking and smiling
+                User has a crooked smile
+                Smoking and smiling

 :-k             User is biting his/her lip

 :-l             Yet another smiley
-		User is almost smiling
+                User is almost smiling

 :-z             Yet another cross smiley

 :-b             Left-pointing tongue smiley
-		"I have a longer tongue than Gene Simmons, only it is cloven"
-		User is sticking out tongue
+                "I have a longer tongue than Gene Simmons, only it is cloven"
+                User is sticking out tongue

 .-]             One-eyed smilely

 ,-}             Wry and winking

 0-)             Smiley cyclops (scuba diver?)
-		Cyclops
-		Arc-welder
-		Scuba diver
-		User wears a scuba mask
-		Happy invader from Mars
-		Cross eyed
+                Cyclops
+                Arc-welder
+                Scuba diver
+                User wears a scuba mask
+                Happy invader from Mars
+                Cross eyed

-}:^#})          Mega-smiley:  updrafted bushy-mustached pointy nosed smiley
-			with a double-chin
+}:^#})          Mega-smiley:  updrafted bushy-mustached pointy nosed smiley
+                        with a double-chin

 |-D             Ho ho
-		Laughing out loud, HO HO
+                Laughing out loud, HO HO

 ~~:-(           Net.flame

@@ -1270,48 +1270,48 @@ O |-)           Net.religion
 E-:-I           Net.ham-radio

 >:-I            Net.startrek
-		Trekkie
+                Trekkie

 3:o[            Net.pets

 |-P             Yuk!
-		Reaction to unusually ugly C code
+                Reaction to unusually ugly C code

 <:I             Dunce

 :-8(            Condescending stare

 >:-<            Mad
-		Angrily Mad/P'edoff
-		I'm getting angry!
+                Angrily Mad/P'edoff
+                I'm getting angry!

 8-|             Suspense / thriller
-		Eyes wide with surprise
+                Eyes wide with surprise

 :-              Male
-		Prolog programmer
+                Prolog programmer

 >-              Female

 8-#             Death
-		Dead smiley
-		User is dead
+                Dead smiley
+                User is dead

 8-O             "Omigod!!"
-		Took too many nodoz to work on thesis
-		User just before doubling over with pain
+                Took too many nodoz to work on thesis
+                User just before doubling over with pain

 ;-(             Crying smiley
-		'That makes me so mad that if I ever see you I'll punch your
-			lights out'
-		Beaten up
-		Sad face gets his lights punched out
-		Sad or mad and got beat up
+                'That makes me so mad that if I ever see you I'll punch your
+                        lights out'
+                Beaten up
+                Sad face gets his lights punched out
+                Sad or mad and got beat up

 ;^)             Smirking smiley

 :-)8<           Big girl smiley
-		User is a big girl
+                User is a big girl

 :-}X            Bow tie-wearing smiley

@@ -1322,7 +1322,7 @@ E-:-I           Net.ham-radio
 @:-}            Smiley just back from the hairdresser

 X:-)            Little kid with a propeller beanie
-		User is Aunt Jemima
+                User is Aunt Jemima

 l^o             Hepcat smiley

@@ -1335,7 +1335,7 @@ l^o             Hepcat smiley
 P-(             Pirate smiley

 :8)             Pigish smiley
-		Pig
+                Pig

 :/\)            Extremely bignosed smiley

@@ -1348,29 +1348,29 @@ l-O             Smiley is yawning
 l:-O            Flattop loudmouth smiley

 $-)             Yuppie smiley
-		Alex P. Keaton (from "Family Ties")
-		Won big at Las Vegas
-		Won the lottery
+                Alex P. Keaton (from "Family Ties")
+                Won big at Las Vegas
+                Won the lottery

 :----}          You lie like pinnochio
-		Pinnochio
+                Pinnochio

 8<:-)           Smiley is a wizard

 :#)             Drunk smiley

 H-)             Cross-eyed smiley
-		User is Geordie LaForge
+                User is Geordie LaForge

 ]-I             Smiley wearing sunglasses
-		Very cool sunglasses (so smirks)
+                Very cool sunglasses (so smirks)

 V^J             Smiley with glasses, seen from left side (portrait, talking)

 +-(             Smiley, shot between the eyes

-~:-P            Smiley, thinking and steaming
-		Having only one single hair
+~:-P            Smiley, thinking and steaming
+                Having only one single hair

 `'              Cat's eyes in the night

@@ -1378,16 +1378,16 @@ L-P             Totally scrambled smiley

 BI              A frog

- -(             Always should wear safety glasses, especially in the laser
-			burn-in room
-		User with gouged-out eyes
+ -(             Always should wear safety glasses, especially in the laser
+                        burn-in room
+                User with gouged-out eyes

 !-(             Black eye

 !-|             "I-am-a-Cylon-Centurian-with-one-red-eye-bouncing-back-
-			and-forth."
-		Cyclon Centurian
-		Popeye User
+                        and-forth."
+                Cyclon Centurian
+                Popeye User

 !.'v            Flat top (profile)

@@ -1422,29 +1422,29 @@ $$$$            For people starting up their own company
 %-{             Sad variation

 %-|             Been working all night
-		I've been on the computer all night
+                I've been on the computer all night

 %-}             Humor variation

 %-~             Picasso
-		User was painted by Picaso
+                User was painted by Picaso

 %\v             Picasso
-		User was painted by Picaso
+                User was painted by Picaso

 &-|             Tearful

 &.(..           Crying

 ':-)            Accidentally shaved off one of his eyebrows this morning
-		One eyebrow
+                One eyebrow

 '~;E            Unspecified 4-legged critter
-
+
       (         Unhappy Cheshire cat

 (!)             Reference to non-Vanderbilt SEC football
-		A tight ass
+                A tight ass

 ($)             Speculation on why Vanderbilt is in the SEC

@@ -1455,7 +1455,7 @@ $$$$            For people starting up their own company
 (-.-)Zzz...     Sleeping (sideways)

 (-::-)          Siamese twins
-		Putting heads together
+                Putting heads together

 (-E:            Wearing bifocals

@@ -1464,9 +1464,9 @@ $$$$            For people starting up their own company
 (00)            Mooning you

 (8-)            Wears glasses
-		Homer Simpson
-		I'm an Owl
-		Swimmer
+                Homer Simpson
+                I'm an Owl
+                Swimmer

 (8-{)}          Glasses, moustache and a beard

@@ -1477,7 +1477,7 @@ $$$$            For people starting up their own company
 (:-             Unsmiley frowning

 (:-#            I am smiling and I have braces (watch out for the glare!)
-		Said something he shouldn't have
+                Said something he shouldn't have

 (:-*            Kissing

@@ -1514,11 +1514,11 @@ $$$$            For people starting up their own company
 **-(            Too many shocks

 *-(             Cyclops got poked in the eye
-		Cyclops after meeting Odysseus
+                Cyclops after meeting Odysseus

 *-)             Shot dead
-		User was shot for the last posting
-		Cross-eyed smiley
+                User was shot for the last posting
+                Cross-eyed smiley

 *8-)            Beaker (the Muppet lab assistant)

@@ -1531,16 +1531,16 @@ $$$$            For people starting up their own company
 *L*             User is blotto (sideways)

 *|              For "oh what a beautiful sunset"
-		User is commenting on the sunset
+                User is commenting on the sunset

 +-(:-)          Religious leader
-		The Pope
+                The Pope

 +<.'v           Knight (profile)

 +<:-)           "Peace be upon you, my children..."
-		User is a bishop
-		Monk/nun
+                User is a bishop
+                Monk/nun

 +<||-)          Knight

@@ -1601,7 +1601,7 @@ $$$$            For people starting up their own company
 -]              One eye

 .---...         ABBA fan
-		SOS
+                SOS

 ...(            Wile E. Coyote after attempt on Road Runner's life

@@ -1609,9 +1609,9 @@ $$$$            For people starting up their own company

 ^v              Pointy nose (profile)

-_)              Suffering from Lorentz contraction (they're coming every
-			ten minutes now)
-		Suffering from Lorentz contractions
+_)              Suffering from Lorentz contraction (they're coming every
+                        ten minutes now)
+                Suffering from Lorentz contractions

 /8^{~           User has a lopsided hair line, glasses, moustache, and goatee

@@ -1630,10 +1630,10 @@ _)              Suffering from Lorentz contraction (they're coming every
 3:*>            Rudolph the reindeer

 3:-o            Cow
-		Bull
+                Bull

 4:-)            George Washington
-		Sailor
+                Sailor

 5:-)            Elvis Presley

@@ -1642,9 +1642,9 @@ _)              Suffering from Lorentz contraction (they're coming every
 7:-)            Fred Flintstone

 8)              Frog
-		Wearing shades
-		Real cross eyed
-		User wears glasses
+                Wearing shades
+                Real cross eyed
+                User wears glasses

 8-*             Just ate a hot pepper

@@ -1655,27 +1655,27 @@ _)              Suffering from Lorentz contraction (they're coming every
 8-S             Sees all evil

 8-]             "Wow, maaan"
-		User is FDR
+                User is FDR

 8-o             Mr. Bill
-		Shocked
+                Shocked

 8:)             Pig

 8=:-)           Galloping Gourmet
-		Chef
+                Chef

 8P              Bullfrog in mating season

 8^              Chicken

 8_)             Don't get your nose out of joint
-		User has his nose out of joint
+                User has his nose out of joint

 8b              Bullfrog in mating season

 : )             Leper
-		Happy face
+                Happy face

 :###)           Jimmy Durante

@@ -1693,13 +1693,13 @@ _)              Suffering from Lorentz contraction (they're coming every

 :+(             Punched nose, hurt

-:+)             Carl Friedrich Gauss
-		User has big nose
-		Teddy bear smiley
+:+)             Carl Friedrich Gauss
+                User has big nose
+                Teddy bear smiley

 :-'             Smoker
-		Chewing tobacco
-		User is spitting out chewing tobacco
+                Chewing tobacco
+                User is spitting out chewing tobacco

 :-'|            Has a cold

@@ -1708,16 +1708,16 @@ _)              Suffering from Lorentz contraction (they're coming every
 :-( :-( :-( :-! Taylor Caldwell

 :-()            User has stubbed toe
-		Negro user
-		Shout
-		"I stubbed my toe"
+                Negro user
+                Shout
+                "I stubbed my toe"

 :-(0)           Yelling

 :-(>~           "I just washed my goatee, and I can't do nuthin' with it."

 :-(O)           Yelling
-		Mick Jagger
+                Mick Jagger

 :-)   ,         Outie belly button

@@ -1738,11 +1738,11 @@ _)              Suffering from Lorentz contraction (they're coming every
 :-)'            Drooling

 :-))            Double chin
-		Very happy
-		Al Jolson
+                Very happy
+                Al Jolson

 :-)*            Speaks Esperanto
-		User is man with a bowtie
+                User is man with a bowtie

 :-)--           98-pound weakling (showing partial body)

@@ -1751,7 +1751,7 @@ _)              Suffering from Lorentz contraction (they're coming every
 :-)==           Arnold Schwarzenegger

 :-)X            Wearing a bowtie
-		Sen. Paul Simon
+                Sen. Paul Simon

 :-)}            Has goatee/beard

@@ -1760,11 +1760,11 @@ _)              Suffering from Lorentz contraction (they're coming every
 :------------)  Big liar

 :-.)            Madonna
-		Marilyn Monroe
-		Cindy Crawford
+                Marilyn Monroe
+                Cindy Crawford

 :->X==|         Smiley formal wear
-		Formal wear
+                Formal wear

 :-G-            Smoking cigarettes

@@ -1777,7 +1777,7 @@ _)              Suffering from Lorentz contraction (they're coming every
 :-R             Has the flu

 :-Y             A quiet aside
-		User is talking after the no yelling smiley
+                User is talking after the no yelling smiley

 :-bill          Zydeco Bill, with harmonica in mouth and washboard on chest

@@ -1814,10 +1814,10 @@ _)              Suffering from Lorentz contraction (they're coming every
 :?)             Philosopher

 :@)             Pig
-		Smilie with a pig nose
+                Smilie with a pig nose

 :P              Sticking out tongue
-		Blowing a raspberry
+                Blowing a raspberry

 :Q)             John Q. Public

@@ -1830,12 +1830,12 @@ _)              Suffering from Lorentz contraction (they're coming every
 :V)             Woodpecker

 :X              Lips are sealed
-		Sworn to secrecy
+                Sworn to secrecy

 :X)             Hearing no evil

 :^(             Has had his nose put out of joint
-		User has a broken nose
+                User has a broken nose

 :^D             "Great! I like it!"

@@ -1848,13 +1848,13 @@ _)              Suffering from Lorentz contraction (they're coming every
 :c<             Big nose variant

 :d              Stick out your tongue
-		Licking lips
+                Licking lips

 :o)             Stimpy (of Ren & Stimpy)
-		Smiley with a round nose
-		W.C. Fields
-		User has a pig nose
-		User has a cold
+                Smiley with a round nose
+                W.C. Fields
+                User has a pig nose
+                User has a cold

 :q              Vi user saying, "How do I get out of this damn emacs editor?"

@@ -1869,40 +1869,40 @@ _)              Suffering from Lorentz contraction (they're coming every
 ;(              Crying

 ;-?             Wry tongue in cheek
-		Constipated
+                Constipated

 ;-D             A friendly, winking, laughing smile

 ;-|             Beaten up but silent
-		No expression face gets his lights punched out
-		Says nothing but still gets beat up
+                No expression face gets his lights punched out
+                Says nothing but still gets beat up

 ;-}             Leer? (terminal dependent)
-		User is wry and winking
-		User is leering
+                User is wry and winking
+                User is leering

 ;:-)            Really bad toupee

 ;^?             Punched out
-		User was punched out for submitting sexist articles
+                User was punched out for submitting sexist articles

 <*:oDX          Clown with bowtie and dunce

 <:-(            Disappointed
-		Dunce
+                Dunce

 <=              For messages about housing in the Snow Belt

 <@:{(>X         Mustached chinese man with a toupee, goatee, bow tie

 <|-(=           Chinese and doesn't like this article
-		Chinese and unhappy
+                Chinese and unhappy

 <|-)=           Chinese
-		Chinese with a beard
+                Chinese with a beard

 =):-)           Uncle Sam
-		Happy in Cowboy Hat or Yippee
+                Happy in Cowboy Hat or Yippee

 =-O             The Enterprise

@@ -1919,7 +1919,7 @@ _)              Suffering from Lorentz contraction (they're coming every
 =8->            A nerd smiley that's unbearably pleased with itself

 =:-#}           Punk rocker with a mustache
-		Smiley punk with a mustache
+                Smiley punk with a mustache

 =:-H            Football player

@@ -1934,15 +1934,15 @@ _)              Suffering from Lorentz contraction (they're coming every
 =t==            Mexican run over by train

 =|:-)           Abe Lincoln
-		A top hat
+                A top hat

 >%)             Wile E. Coyote

 >-<             Absolutely livid!!

 >->             China man
-		Chinese
-		Illusionist
+                Chinese
+                Illusionist

 >-^);>          Fish

@@ -1953,7 +1953,7 @@ _)              Suffering from Lorentz contraction (they're coming every
 >:*)            Bozo the Clown

 >:-(            Mad, annoyed
-		Sick and tired of reading this nonsense
+                Sick and tired of reading this nonsense

 >:-b            Left-pointing tongue smiley

@@ -1976,9 +1976,9 @@ _)              Suffering from Lorentz contraction (they're coming every
 @-(             "Ulysses!  Bring me Ulysses!"

 @-)             Cyclops
-		Space... The Final Frontier
-		Seeing stars
-		Hypnotist
+                Space... The Final Frontier
+                Seeing stars
+                Hypnotist

 @.'v            Has curly hair (profile)

@@ -1995,13 +1995,13 @@ B^)             Hornrimmed glasses
 C:#             Football player

 C:-)            Large brain capacity
-		I'm an Egghead
-		"Bonjour, Monsieur..."
+                I'm an Egghead
+                "Bonjour, Monsieur..."

 C=>8*)          Devilish chef with glasses and a moustache

-C=}>;*{O)       Mega-smiley... a drunk, devilish chef with a toupee in an
-			updraft, a mustache, and a double chin
+C=}>;*{O)       Mega-smiley... a drunk, devilish chef with a toupee in an
+                        updraft, a mustache, and a double chin

 C|:-=           Charlie Chaplin

@@ -2042,7 +2042,7 @@ R-)             Broken glasses
 [8-{)           Bearded smiley with glasses and headphones

 [:-]            Square head
-		Robot
+                Robot

 [:|]            Robot (or other AI project)

@@ -2053,19 +2053,19 @@ R-)             Broken glasses
 \/\/\/\,8-O     Really should fix frayed line cord on terminal

 \:-)            French hat
-		A beret
+                A beret

 \:^)            Gumby smiley
-		User is gumby
+                User is gumby

 \o/             PTL (praise the lord, or pass the loot?) (sideways)

 ]:-)            The Devil
-		Smilie with a nurse hat
-		Member of the Royal Family
+                Smilie with a nurse hat
+                Member of the Royal Family

 ]:->            The Devil
-		User is devilish
+                User is devilish

 ^(^             Happy variation (sideways)

@@ -2074,7 +2074,7 @@ R-)             Broken glasses
 ^L^             Happy (sideways)

 ^v^v^           Mountains
-		User is near the mountains
+                User is near the mountains

 _:^)            American Indian

@@ -2086,13 +2086,13 @@ __.             Properly chastised and/or chagrined, or is merely asleep

 __/~`-'~\_/     Line of thought isn't quite a line

-__Q~`__         Cat on a wall
+__Q~`__         Cat on a wall

 Q~`             Cat

 _______         Wile E. Coyote under rock
-		A He-Ne laser line
-		Student EEG on Saturday night
+                A He-Ne laser line
+                Student EEG on Saturday night

 `-_-'           Have you hugged your wolf today?

@@ -2117,8 +2117,8 @@ o/              Raised hand
 oO:-)***        Santa Claus

 oo              "It's cold out"
-		Somebody's head-lights are on
-		A cups
+                Somebody's head-lights are on
+                A cups

 oo-             Puzzled, confused

@@ -2143,23 +2143,23 @@ y:-)            Bad toupee
 {=              For messages about housing

 {{-}}}          Refugee from the '60's
-		Hippie
+                Hippie

 {}              'No comment'
-		Hug
+                Hug

 |               For bike fleet messages

 |)              Salamander

 |-<>            Kissy face
-		Blowing a kiss
+                Blowing a kiss

 |-{             "Good Grief!"  (Charlie Brown)

 |:-)            Heavy eyebrows
-		User has the one eyebrow syndrome
-		Teacher
+                User has the one eyebrow syndrome
+                Teacher

 |:-O            Open mouth smiley (?)

@@ -2170,21 +2170,21 @@ y:-)            Bad toupee
 ||              For messages about cars or other four-wheeled vehicles

 |~(             "Someone just busted my nose"
-		User just had nose busted
+                User just had nose busted

 }(:-(           Wearing toupee in wind
-		A Viking
+                A Viking

 }-)             A wry grin

 }:-<            Cat

-}:~#})          Mega-smiley: updrafted bushy-mustached ugly nosed smiley
-			with a double-chin
+}:~#})          Mega-smiley: updrafted bushy-mustached ugly nosed smiley
+                        with a double-chin

 ~:-(            Net.flame
-		User is being flamed
-		User is particularly angry (steamed)
+                User is being flamed
+                User is particularly angry (steamed)

 ~\8-O           Needs to fix frayed cord on terminal

@@ -2204,7 +2204,7 @@ y:-)            Bad toupee

 |-(=   =)       Yawning smiley from Vietnam

-IIII8^)X        Cat in the Hat
+IIII8^)X        Cat in the Hat

 : .)            Cindy Crawford

@@ -2223,8 +2223,8 @@ C:\>            MS-DOS Programmer
 @_@             Boggled eyes smilie, or glasses (Japanese symbol)

 (_o_)           Kowtowing (bowing) person (Japanese symbol)
-		An ass that's been around
-		This ass costs you a lot less
+                An ass that's been around
+                This ass costs you a lot less

 ~\\ (^o^) /~/~  Octopus (Japanese symbol)

@@ -2233,7 +2233,7 @@ C:\>            MS-DOS Programmer
 (Y)oYo(Y)       Barutan, a monster from "Ultraman" (Japanese symbol)

 *^_^*           Blushing smilie (Japanese symbol)
-		Cute little girl
+                Cute little girl

 ^_^;;;          Embarassed smilie; cold sweat (Japanese symbol)

@@ -2246,10 +2246,10 @@ C:\>            MS-DOS Programmer
 =:=|            User is a priest

 *)              Mutant smiley
-		Here's Thor Hi-y'all.
+                Here's Thor Hi-y'all.

 ]B=8}           Dragon smiley
-		User is a dragon
+                User is a dragon

 `@_____         User is writing about snail mail

@@ -2262,13 +2262,13 @@ C:\>            MS-DOS Programmer
 ( o ) ( o )     User has big hooters

 (o)(o)          User has big boobs
-		Surprise
-		Perfect breasts
+                Surprise
+                Perfect breasts

 >[]I            User is watching television

 :^X^C           User is an emacs user saying "How do I get out of this damn
-			vi editor?"
+                        vi editor?"

 (OO)            User is mooning you (sideways)

@@ -2279,7 +2279,7 @@ oo---oo-Bo      User is a truck driver
 i-=<***         User is applying flame thrower

 ~~~c___         User is at the beach
-
+
  ,,,^..^,,,     User is a cat peeking over a fence (sideways)

 ~M`'~           User is camel (sideways)
@@ -2293,7 +2293,7 @@ i-=<***         User is applying flame thrower
 (;.;)/~         User is waving goodbye (sideways, Japanese style)

 (>_<)           User is furious (sideways)
-		User is hurt (Japanese style)
+                User is hurt (Japanese style)

 (=_=)~          User is sleepy (sideways, Japanese style)

@@ -2306,7 +2306,7 @@ i-=<***         User is applying flame thrower
 (*_*)           User is in love (sideways)

 ($_$)           User is being greedy (sideways)
-		Yuppie
+                Yuppie

 (x_x)           User is dead (sideways)

@@ -2318,7 +2318,7 @@ i-=<***         User is applying flame thrower

 #!^~/           User is kissing and wears shades (profile)

-*<o'v           User is wearing snow cap (profile)
+*<o'v           User is wearing snow cap (profile)

 |o'v            User has a flat top (profile)

@@ -2392,8 +2392,8 @@ C8<]            User is Darth Vader

 (8=X            User is Death (Mr. Death to you) (skull & X bones)

-(|-(            User is "Good Grief!"
-		User is Charlie Brown
+(|-(            User is "Good Grief!"
+                User is Charlie Brown

 (|-|  F         User is Robocop

@@ -2402,9 +2402,9 @@ C8<]            User is Darth Vader
 *<|:-)>         User is Santa Claus

 3:-)            User is Bart Simpson
-		User has curly hair
+                User has curly hair

-		Smiley cow
+                Smiley cow

 7:^)            User is Ronald Reagan

@@ -2423,13 +2423,13 @@ C8<]            User is Darth Vader
 C|:-=)          User is Charlie Chaplin

 (:-|            User is Captain Jean Luc Picard
-		Soldier
+                Soldier

 }}:-(           User is Worf

-=:)             User is a bunny
-		Smiley with raised eyebrows
-		Skull
+=:)             User is a bunny
+                Smiley with raised eyebrows
+                Skull

 =:x             User is a bunny

@@ -2438,7 +2438,7 @@ C|:-=)          User is Charlie Chaplin
 >>>>>:============      User is a vegetable (asparagus)

 (:=             User is a beaver
-		Skull
+                Skull

 :=8|            User is a baboon

@@ -2451,7 +2451,7 @@ C|:-=)          User is Charlie Chaplin
 .\/             User is a duck (profile)

 #B<>            User is a duck, with a spike haircut & Ray-Bans, quacking.
-
+
    )            User is the Cheshire cat

 (:-) :   8-     User is a male
@@ -2459,7 +2459,7 @@ C|:-=)          User is Charlie Chaplin
 {:-} 8   >      User is a female

 (:-) : ==8      User is a male on the make
-
+
 :-o : ^^:       User is a male after zipping up fly too fast

 {:-} 8   X      User is a female wearing chastity belt
@@ -2481,19 +2481,19 @@ $:-} B   >      User is a female prostitute
 {:-( :   >      User is a female with small breasts

 *:-} :   8-     User is a gay male (fem)
-
+
 :-( :   :~      User is an impotent male
-
+
 :-) : , 8-      User has an outie belly button
-
+
 :-) :   8-^-    User is in need of some corrective surgery
-
+
 :-) :   8-...   User is taking a leak
-
+
 :-\ :   8o      User after a cold shower

 {:-| 8( )>      User is a pregnant female
-
+
 :-} : =M8       User is taking matters into his own hand

 >:-( 8   >      User is a female after reading sexist opinions on feminists
@@ -2503,14 +2503,14 @@ $:-} B   >      User is a female prostitute
 {:-) 8   >d-:   Users are engaged in cuninlingus (showing body)

 @O=E<=          User is a woman in skirt wearing turtleneck sweater
-			(mini whole body)
+                        (mini whole body)

 B-)-[<          User is wearing sunglasses and swimming trunk (mini whole body)

 O>--<           User is dead on pavement  (mini whole body)

 o>8<|=          User is writing messages about interesting women
-			(mini whole body)
+                        (mini whole body)

 oO:)&           User is a grandmother

@@ -2561,9 +2561,9 @@ G-(             User is a scuba diver with a broken mask
 : (             User is a leper

 :-( )           User has had toes stepped on
-		Shocked
-		"You stepped on my toe"
-		User is SHOUTING VERY LOUD
+                Shocked
+                "You stepped on my toe"
+                User is SHOUTING VERY LOUD

 :-(=            User has buck teeth

@@ -2588,8 +2588,8 @@ G-(             User is a scuba diver with a broken mask
 >;-('           User is is so mad that s/he is spitting

 %-(             User is a practical joker who played one too many and got
-			beat up
-		Broken glasses
+                        beat up
+                Broken glasses

 ={:-)]          User is in a bottle

@@ -2610,21 +2610,21 @@ C:H             User is a football player
 I8${}           User is a Ubangi (bone in nose)

 K:-)            User is a little kid with a propeller beenie
-		Smiley with a graduation hat
-		A propeller hat/beanie
+                Smiley with a graduation hat
+                A propeller hat/beanie

 R-(             User has broken glasses

 @@@@@@:-)       User is Marge Simpson (Homer's wife)

 ~(:-)           User is Homer Simpson
-		Tonto
+                Tonto

 :-.             User has 'no comment'
-		Wispering/Talking Quietly.
+                Wispering/Talking Quietly.

 ~:o             User is a baby
-		Teacher
+                Teacher

 ~:@             User is a baby with a pacifier

@@ -2633,7 +2633,7 @@ R-(             User has broken glasses
 :-)  (-: +  :-o o-: + :-Pd-:    Users in a kissing sequence

 =-)             Sideways smily face
-		User is Aladdin
+                User is Aladdin

 :-o zz z z Z  Z Bored

@@ -2641,34 +2641,34 @@ R-(             User has broken glasses

 :^Y             Turned poker face

-:^r             Bleahhh (sticking tongue out)
+:^r             Bleahhh (sticking tongue out)

-:^y             Turned smiling face
+:^y             Turned smiling face

-:^W             Turned face with tongue out
+:^W             Turned face with tongue out

-:^"             Pursing lips
+:^"             Pursing lips

-:-[]            Robot face
+:-[]            Robot face

-:-[#]           Smilie with braces
-		Eating
+:-[#]           Smilie with braces
+                Eating

-%)              Artistic face
-		Here's a racing yacht
-		Cross-eyed
+%)              Artistic face
+                Here's a racing yacht
+                Cross-eyed

-C|:-)           Smilie with a bowler hat
+C|:-)           Smilie with a bowler hat

-:-)=            Smilie with beard
+:-)=            Smilie with beard

-|-Q             Smoking and yelling chinese
+|-Q             Smoking and yelling chinese

-!8-)            Nerd with combed hair
+!8-)            Nerd with combed hair

-B-]             Batman smiley
+B-]             Batman smiley

-K-[             Batman with eyes poked out
+K-[             Batman with eyes poked out

 =^-^=           Cat smile

@@ -2679,7 +2679,7 @@ K-[             Batman with eyes poked out
 |:/             Constipated

 :-+             User with too much lipstick
-		Exhausted
+                Exhausted

 :-*|            User with moustache

@@ -2690,7 +2690,7 @@ K-[             Batman with eyes poked out
 :-h             User with forked tongue

 :-)B            User with large breasts
-		User is a big girl
+                User is a big girl

 (*):            I Cyclops user

@@ -2701,7 +2701,7 @@ K-[             Batman with eyes poked out
 =(:-)           Punk user

 :::-)           ElephantmanUser
-		The Elephant Man
+                The Elephant Man

 ._/             Squashed user

@@ -2718,51 +2718,51 @@ K-[             Batman with eyes poked out
 @:-\            Elvis

 ___m_oo_m___            Spying at the wall
-
+
 ___m_OO_m___            REALLY spying at the wall
-
+
 ___m_+o+_m___           Clown spying at the wall
-
+
 ^^m^^oo^^m^^^           Spying at the wall with nails
-
+
 __mmmm_oo_mmmm__        Octopus spying at the wall
-
+
 __\/_oo_\/__            Crab spying at the wall
-
+
 ____V@_____             Snail spying at the wall
-
+
 __m_(-O-)_m__           Koala spying at the wall
-
+
 __m_.(%)._m__           Yet another pig spying at the wall
-
+
 ______,________         Yet another ant spying at the wall
-
+
 _____,P________         Ant with banner spying
-
+
 ___,,,,,,,,,,,,,,,,,,___        Ants marching and spying at the wall
-
+
 ___,,,,,,,,,,,,,,,,,P,___       Ant Platoon marching and spying at the wall
-
+
 ____________            Invisible Man spying at the wall
-
+
 __m__(((..)__m__        "Monica" spying at the wall
-
+
 ___m_--_m___            Chinese spying at the wall
-
+
 __m____m___             Dwarf spying at the wall
-
+
 ___m_O_m___             Cyclops spying at the wall
-
+
 ___m_@^@_m___           Man with glasses spying at the wall
-
+
 _m_oo_m_m_oo_m_         Twins spying at the wall
-
+
 _m_oo_mm_oo_m_          Siamese Twins spying at the wall
-
+
 --m--xx--m--            Dead cartoon spying  at the wall
-
+
 __m_oo_?__              Cap. Hook spying at the wall
-
+
 __m_oo__                One-handed spying at the wall

 <B-v            User using glasses and speaking
@@ -2797,8 +2797,8 @@ OOOOX-~(        Dead-Marge Simpson-sad user with a cold

 {:0             Orator user wearing a toupee

-}::-?           User wearing a toupee in a updraft, using normal glasses
-			and smoking a pipe
+}::-?           User wearing a toupee in a updraft, using normal glasses
+                        and smoking a pipe

 B:*/            Drunk-undecided user with sunglasses on head

@@ -2846,8 +2846,8 @@ O 8)            Angel user wearing sunglasses and smiling

 [B-~[           Vampire user using a walkman, using glasses and with a cold

-*!#^!*,-{\      Schizophrenic-one-winking-eye-only-undecided user
-			using a mustache
+*!#^!*,-{\      Schizophrenic-one-winking-eye-only-undecided user
+                        using a mustache

 <:-)  >-        Female user smiling

@@ -2857,8 +2857,8 @@ O 8)            Angel user wearing sunglasses and smiling

 ::-{}           User using normal glasses and wearing lipstick

-+-B:p           Religious user with sunglasses on head and pointing
-			the tongue out
++-B:p           Religious user with sunglasses on head and pointing
+                        the tongue out

 }0*O            Cyclops-drunk-big-mouth user wearing a toupee in a updraft

@@ -2885,7 +2885,7 @@ O 8)            Angel user wearing sunglasses and smiling
 @8[             Surprised-vampire user wearing a turban

 <:)             User smiling
-		A dunce (or fresher)
+                A dunce (or fresher)

 <&-I            Fool-tearful user

@@ -2962,8 +2962,8 @@ OOOO:@<         Pig-nose-Marge Simpson-mad user
 *<(;')          Frosty the Snowman

 /:-)            Gumby
-		A beret
-		User is a Frenchman
+                A beret
+                User is a Frenchman

 @@@@@@@@:)      Marge Simpson

@@ -3020,57 +3020,57 @@ o_o             Sideways Smiley Variation (?)
 ~x~             Sideways Smiley Variation (?)

 ><FISH>         A fish (?)
-
+
 >-",",","-)D>   A fish (?)
-
+
 __/\o_          A swimmer (?)
-		A caterpiller (?)
+                A caterpiller (?)

 /\o/\           A spider (?)
-
+
 /\_/\           A mountain range  (?)
-
+
 ^+^             Sideways Smiley Variation (?)
-
+
 \,/             A grin  (?)
-
+
 /'\             A mountain  (?)
-
+
 /~'v'~\         Girl with pigtails  (?)
-
+
 (~v~)           Sideways Smiley Variation  (?)
-
+
 =^.^=           A cat smiley
-		Callsign of KingKat
-
+                Callsign of KingKat
+
 -,-             Sleepy smiley
-		Not understanding or feeling ashamed of a misunderstanding
-
+                Not understanding or feeling ashamed of a misunderstanding
+
 -.-             Sleepy smiley
-		Resigned
-		Not understanding or feeling ashamed of a misunderstanding
-
+                Resigned
+                Not understanding or feeling ashamed of a misunderstanding
+
 \/              A grin  (?)
-
+
 (^_^)           Ear to ear smile
-		Asian smiley
+                Asian smiley

 ~=o  oOo  oOo  o@=<     (?)

-ooo  O\O  ooo           KILROY!
-
-ooo  *\*  ooo           Maybe;  (probably needs a wall)
-
-__m_(OuO)_m__           With a wall. (some tty has nice 0's)
-
---ooo-------ooo--       Hanged at the other  side of the wall ...
+ooo  O\O  ooo           KILROY!
+
+ooo  *\*  ooo           Maybe;  (probably needs a wall)
+
+__m_(OuO)_m__           With a wall. (some tty has nice 0's)
+
+--ooo-------ooo--       Hanged at the other  side of the wall ...

 c=:             Phallus
-
+
 C===:           XXL size

 c=.             Phallus of a Cyclop
-
+
  =:             Eunuch's phallus

 c=;             Eunuch's phallus with a crushed testicle
@@ -3094,7 +3094,7 @@ c=3             In abstinence for a while
 c=B             Clergyman

 (y)             Pubis
-
+
 8x              Scissors

 (8x)            Bobbit`s wife
@@ -3118,8 +3118,8 @@ c=B             Clergyman
 =o)             Big nose smiley

 (==)            Kosh from Babylon 5
-		Cotton reel
-		Hug
+                Cotton reel
+                Hug

 [-:-)           Garibaldi from Babylon 5 ("Male pattern baldness")

@@ -3152,10 +3152,10 @@ c=B             Clergyman
 <^O^>           Laughing loudly

 (@_@)           Stunned
-		Grin
+                Grin

 (o_o)           Shocked
-		Smile
+                Smile

 m(_ _)m         Deep bow used for apologizing or expressing thanks

@@ -3194,13 +3194,13 @@ v-|             Here's my life raft.
 ______2_2222_________           Ducks spying at the wall.

 _________@@__________           Imperial AT-AT spying over the wall of the
-				Hoth rebel base (pun intended).
-
+                                Hoth rebel base (pun intended).
+
 _________0-n_________________   Key forgotten for someone that was
-				spying at this wall.
-
+                                spying at this wall.
+
 __________p^o_________          One-armed person using a binocular for
-				spying at the wall, being far away.
+                                spying at the wall, being far away.
 <+|:')          The pope

 <+|:'@===       The vomiting pope
@@ -3209,11 +3209,11 @@ __________p^o_________          One-armed person using a binocular for

 (=(:->*         Uncle Sam

-((:- =)X        Charlie Chaplin
+((:- =)X        Charlie Chaplin

 : - =           Hitler

-(-|---( : - )   The Pope
+(-|---( : - )   The Pope

 [ : ]           Frankenstien

@@ -3221,53 +3221,53 @@ __________p^o_________          One-armed person using a binocular for

 ]:)|--<         I am the king

-*|:^)(.)(...)   Snowman
+*|:^)(.)(...)   Snowman

 :-)  -:         Smilie with an erection.
-
+
 :-) 8  -        Female.
-
+
 :-| 8( )-       Pregnant Female.
-
+
 :-(   :-        Impotent (Or let down).
-
+
 :-)   -8        Blue balls.
-
+
 ;-)  o===8      Braggart.
-
+
 :-\  8o         After a cold shower.
-
+
 ;-)   ===8      Circumcised.
-
+
 :-)  -^-:       In need of some corrective surgery.
-
+
 :-)  :-...      Taking a leak.
-
+
 :-}  -oo-:      Taking matters into hand.
-
+
 :-o  ^^^^:      After zipping up fly too fast.
-
+
 :-( :  -        You call those breasts?  I've seen bigger lumps in oatmeal!

 :-0===8         Oh yeah?  I bet that you...

 >]}             A dragon wearing sunglasses

-87)             Cartoon character with a long nose and happy..
+87)             Cartoon character with a long nose and happy..

-~87(            Cartoon character unhappy that he has only one hair on
-			his head
+~87(            Cartoon character unhappy that he has only one hair on
+                        his head

-%87)            Cartoon character happy he has his curly hair
+%87)            Cartoon character happy he has his curly hair

 87D             Cartoon character with a long nose.. and VERY happy

 87P O>w         Cartoon character enjoying eating his ice cream cone

 87P`` O>w       Cartoon character REALLY enjoying eating his ice cream
-			cone with drops of saliva dripping *smile*..
+                        cone with drops of saliva dripping *smile*..

-<:-EXB          Vampirella
+<:-EXB          Vampirella
 :p :q :d :b :D  User is licking his lips (sequence)

 |^)             Chink smiley face
@@ -3287,8 +3287,8 @@ x:<>            Smiley Edd the Duck
 <|)             Chinese smiley

 #(:             Left-handed user wearing a goatee
-		Left-handed user has a really bad tie on
-
+                Left-handed user has a really bad tie on
+
 :)>             Basic goatee smiley

 <(:             Basic goatee smiley (left-handed)
@@ -3302,7 +3302,7 @@ x:<>            Smiley Edd the Duck
 >-COD           User is "floundering" for something to say

 ___(member '(A B C D 1 (A B)) A)___     LISP code spying at the wall.
-						(but it returns `t')
+                                                (but it returns `t')

 *<|B-3D>---|E   Santa Claus (?)

@@ -3311,9 +3311,9 @@ ___(member '(A B C D 1 (A B)) A)___     LISP code spying at the wall.
 =B-(            User with spiked hair and sunglasses, frowning

 )-:             Bass-Ackwards smiley.
-		Left-handed frowning smiley.
+                Left-handed frowning smiley.

-o:-)            Smiley with bullet hole in head (a.k.a. Dain-Bramaged Smiley)
+o:-)            Smiley with bullet hole in head (a.k.a. Dain-Bramaged Smiley)
 [*>-]           Philippine Flag

 o>-<|=          For messages of interest only to women.
@@ -3327,7 +3327,7 @@ o>-<|=          For messages of interest only to women.
 @@@:)           Marge Simpson smiley

 :|              Data Smiley
-		Indifferent
+                Indifferent

 v)              Star Trek "The Traveler" Smiley

@@ -3336,7 +3336,7 @@ v)              Star Trek "The Traveler" Smiley
 -(:-)           German soldier from WWI

 |^j             Profile, smiling, wearing those long, rectangular
-			sunglasses thingies.
+                        sunglasses thingies.

 /O\             User is ducking.

@@ -3454,10 +3454,10 @@ I-O             Starship (top)

 :-)/ >-<-0      Licking Smiley with partner

-:-)/ >0<0       Licking Smiley with fat partner
+:-)/ >0<0       Licking Smiley with fat partner

-:-)/\/\/\/\/\/\/        Smiley with extendo froggie tongue for long distance
-				licking
+:-)/\/\/\/\/\/\/        Smiley with extendo froggie tongue for long distance
+                                licking

 :-)/\/\/\/\/\/\/>-<-0   Smiley licking a partner who is far away

@@ -3488,13 +3488,13 @@ __~~~~~~__      Another hat
 (:>             Smiling

 ',:@ )          Dog
-		Harold the not-pig
+                Harold the not-pig

-}"{		Butterfly
+}"{             Butterfly

 &               Duck

-< > <	        Fish
+< > <           Fish

 hTd             Chairs and table

@@ -3517,7 +3517,7 @@ hTd             Chairs and table
 :' (            Crying

 -)              Cross-eyed
-		Jose Feliciano
+                Jose Feliciano

 ====|:-)=       Abe Lincoln

@@ -3550,7 +3550,7 @@ O:)             Angel
 ]:>             Devil

 }:>             Devil
-		Devilish grin
+                Devilish grin

 =:-()           Scared

@@ -3559,7 +3559,7 @@ O:)             Angel
 (:\/            I'm a duck

 :-)===          I'm a giraffe
-		Arnold Schwarzenegger
+                Arnold Schwarzenegger

 :-} -oo-:       User is taking matters into hand

@@ -3600,7 +3600,7 @@ d:)             Little boy with his little hat
 ://             Smiley with its mouth taped shut

 O??             Boxer
-		I challenge you!
+                I challenge you!

 [O]             Macho man

@@ -3657,7 +3657,7 @@ o==|======-     Sword
 ];[             Al Gore

 =;=             Butterfly disguised as a dragonfly
-		Dragonfly
+                Dragonfly

 +;+             Butterfly with propellors

@@ -3680,7 +3680,7 @@ Y;Y             Butterfly with split ends
 ***             Caterpillar

 O               Cocoon
-		Death Star (Star Wars)
+                Death Star (Star Wars)

 `@;;;;;;;;;;;   Caterpillar

@@ -3689,7 +3689,7 @@ O               Cocoon
 -O              Blackjack

 -|---           Dagger
-		Cross
+                Cross

 --=<>           Club

@@ -3752,7 +3752,7 @@ O               Cocoon
 %^)             Goofy grin or smile (profile)

 %-)             Someone slightly stunned and smiling
-		The Elephant Man
+                The Elephant Man

 ]:(             Spanish Civil Guard

@@ -3762,9 +3762,9 @@ __(2,C>         Mouse

 <:3 )--         Mouse

-----{,_,">	Mouse
+----{,_,">      Mouse

-<",_,}-._	Mouse
+<",_,}-._       Mouse

 =8-@            Horrified smilie

@@ -3783,29 +3783,29 @@ __(2,C>         Mouse
 <~_~>           Smiley (?)

 <-_->           Sleepy smiley
-		Not understanding, feeling ashamed of a misunderstanding
+                Not understanding, feeling ashamed of a misunderstanding

 <-.->           Sleepy smiley
-		Not understanding, feeling ashamed of a misunderstanding
+                Not understanding, feeling ashamed of a misunderstanding

 <-.~>           Winking smiley

 [^_^]           Smiley (?)
-		Graduate
+                Graduate

 <^_^>           Chinese smiley (?)
-		Joy!
-		Very big grin
+                Joy!
+                Very big grin

 (^.^)           Smiley
-		Being happy
+                Being happy

 (^v^)           Smiley
-		Evil smile
-		A crow
+                Evil smile
+                A crow

 (^|^)           Smiley
-		Smiley with a large nose
+                Smiley with a large nose

 ---(8:>         Mouse

@@ -3830,7 +3830,7 @@ H:)             Matted hair 3
 @:)             Turban

 :0              Baby's first two teeth
-		Wesley smiley (screaming as he finally gets killed off)
+                Wesley smiley (screaming as he finally gets killed off)

 D-)             Cyclops

@@ -3851,7 +3851,7 @@ D-)             Cyclops
 (`.')           Angry

 (-oo-)          Baboon
-		Tie Bomber (star wars, seen from front)
+                Tie Bomber (star wars, seen from front)

 (o_)~           Baseball cap

@@ -3870,7 +3870,7 @@ D-)             Cyclops
 {a_6}           Glasses

 :-)>-           Goatee
-		A tie
+                A tie

 (^y^)           Goatee

@@ -3912,319 +3912,319 @@ C=>:*'))        Sick chef

 (#.#)           Zombie

-[<(=)>] 	Brazil
+[<(=)>]         Brazil

-[<O>] 	        Brazil
+[<O>]           Brazil

-[ |*| ] 	Canada
+[ |*| ]         Canada

-[|*|] 		Canada
+[|*|]           Canada

-[*    ] 	China
+[*    ]         China

-[*  ] 		China
+[*  ]           China

-[-+---] 	Denmark
-        	Finland
-        	Iceland
-        	Norway
-        	Sweden
+[-+---]         Denmark
+                Finland
+                Iceland
+                Norway
+                Sweden

-[+--] 		Denmark
-      		Finland
-      		Iceland
-      		Norway
-		Sweden
+[+--]           Denmark
+                Finland
+                Iceland
+                Norway
+                Sweden

-[--+--] 	England
+[--+--]         England

-[-+-] 		England
+[-+-]           England

-[ | | ] 	France
-        	Ireland
-        	Italy
+[ | | ]         France
+                Ireland
+                Italy

-[| |] 		France
-      		Ireland
-      		Italy
+[| |]           France
+                Ireland
+                Italy

-[=====] 	Germany
-        	Luxembourg
-        	Netherlands
-        	Spain
+[=====]         Germany
+                Luxembourg
+                Netherlands
+                Spain

-[===] 		Germany
-      		Luxembourg
-      		Netherlands
-      		Spain
+[===]           Germany
+                Luxembourg
+                Netherlands
+                Spain

-[  o  ] 	Japan
+[  o  ]         Japan

-[ o ] 		Japan
+[ o ]           Japan

-[>====] 	Kuwait
+[>====]         Kuwait

-[>==] 	   	Kuwait
+[>==]           Kuwait

-[-----] 	Poland
+[-----]         Poland

-[---] 		Poland
+[---]           Poland

-[> <] 	        Scotland
+[> <]           Scotland

-[  +  ] 	Switzerland
+[  +  ]         Switzerland

-[ + ] 		Switzerland
+[ + ]           Switzerland

-[>----] 	Czech Republic
+[>----]         Czech Republic

-[>--] 	   	Czech Republic
+[>--]           Czech Republic

-[->|<-] 	United Kingdom (UK)
+[->|<-]         United Kingdom (UK)

-[>|<] 	        United Kingdom (UK)
+[>|<]           United Kingdom (UK)

-[  *  ] 	Vietnam
+[  *  ]         Vietnam

-[ * ] 		Vietnam
+[ * ]           Vietnam

-.    		Particle Man
+.               Particle Man

---.    		Particle Man running
+--.             Particle Man running

-:    		Particle Man jumping up and down really fast
+:               Particle Man jumping up and down really fast

-\.    		Particle Man playing baseball
+\.              Particle Man playing baseball

-!    		Particle Man gets a bright idea
+!               Particle Man gets a bright idea

-?    		Particle Man sliding down a water slide
+?               Particle Man sliding down a water slide

-%    		Particle Man looking in the mirror
+%               Particle Man looking in the mirror

-*    		Particle Man discovers the pool is empty
+*               Particle Man discovers the pool is empty

-./\.   		Particle Man swordfighting with a flea
+./\.            Particle Man swordfighting with a flea

-o   		Particle Man after seeing very sexy water molecule
-		Very bored smiley
+o               Particle Man after seeing very sexy water molecule
+                Very bored smiley

-.)		Sammy Davis Jr.
-		A Cyclops
+.)              Sammy Davis Jr.
+                A Cyclops

-.oooO		Left foot
+.oooO           Left foot

-Oooo.		Right foot
+Oooo.           Right foot

-.ooo0		Left foot
+.ooo0           Left foot

-0ooo.		Right foot
+0ooo.           Right foot

-<@_@>		Bixie
+<@_@>           Bixie

-<x_x>		Dead
+<x_x>           Dead

-<$_$>		Rich!
+<$_$>           Rich!

-<*_*>		Love
+<*_*>           Love

-<u_u>		Zzzz
+<u_u>           Zzzz

-<+_+>		Uhhh
+<+_+>           Uhhh

-<g_g>		Tired
+<g_g>           Tired

->>----->	Arrow
+>>----->        Arrow

-<'___)~  	Mouse
+<'___)~         Mouse

-O//////])==============================		Light sabre
+O//////])==============================         Light sabre

-*~'`^`'~*-,._.,-*~'`^`'~*-,._.,-*~'`^`'~*  	Ascii waves
+*~'`^`'~*-,._.,-*~'`^`'~*-,._.,-*~'`^`'~*       Ascii waves

-=\\\\\\\(============================-		Foil
+=\\\\\\\(============================-          Foil

-||||||[::]|||||||||||||		Belt
+||||||[::]|||||||||||||         Belt

-__/\o_ 		Swimming
+__/\o_          Swimming

-__/\o_ o   	Water polo
+__/\o_ o        Water polo

 |==|iiii|>----- Needle

-c[] 	 	Cup of tea
+c[]             Cup of tea

 |==[)XXXX>---   Different needle

-<(O)>    	An eye
+<(O)>           An eye

-/\_i\o	 	Guy dead from a sword wound
+/\_i\o          Guy dead from a sword wound

-///\oo/\\\	Spider (or some kind of bug)
+///\oo/\\\      Spider (or some kind of bug)

-<')))))><	Fish
+<')))))><       Fish

 oxx)=---------- Sword

-<:~__)-		Mouse
+<:~__)-         Mouse

-.		Flea
-		Ant
+.               Flea
+                Ant

-@(_)~~~		Hot coffee
+@(_)~~~         Hot coffee

-__@/		Snail
+__@/            Snail

-{>:|		User is a Klingon
+{>:|            User is a Klingon

-::--))		Bad vertical hold
+::--))          Bad vertical hold

-X-O		Sat on a pin
+X-O             Sat on a pin

-:E		Spider
+:E              Spider

-8<		Scissors
+8<              Scissors

->8		Scissors
+>8              Scissors

-@/		Snail
+@/              Snail

-\@		Snail
+\@              Snail

-"@		Snail
+"@              Snail

-8//=/\-.	Sex
+8//=/\-.        Sex

-(#)---==	Badminton racket
+(#)---==        Badminton racket

-,---'---'---'---=@===	Fishing rod
+,---'---'---'---=@===   Fishing rod

-j		Hook
+j               Hook

-W		Tooth
+W               Tooth

-,=;=;=;=;=;=;=O~	Centipede
+,=;=;=;=;=;=;=O~        Centipede

-=8>-()<		Chicken
+=8>-()<         Chicken

-(:O:)		Handiplus
+(:O:)           Handiplus

-'Oqqqqqqqqqqqqo-	Centipede
+'Oqqqqqqqqqqqqo-        Centipede

-[{-_-}] ZZZzz zz z...	A sleeping baby (pillow included)
+[{-_-}] ZZZzz zz z...   A sleeping baby (pillow included)

-:<3o~		A mouse
+:<3o~           A mouse

-^..^__)~	A piggie (in the mud)
+^..^__)~        A piggie (in the mud)

-&8)		Smiley wearing a hairpiece
+&8)             Smiley wearing a hairpiece

-::::::========------= ( )    (8)	Playing pool
+::::::========------= ( )    (8)        Playing pool

 -<>--=|=---^-'-`~'--+--8---#--/\--/o_-----\0/----'`._,'`._,'-
-		Sea with:  island, island with palmtree, shark chasing man to
-		boat, far away island with palmtree, sundown, far away island
-		with two palmtrees, shark chasing man closer, man being pulled
-		under by seamonster coming from right while causing waves.
+                Sea with:  island, island with palmtree, shark chasing man to
+                boat, far away island with palmtree, sundown, far away island
+                with two palmtrees, shark chasing man closer, man being pulled
+                under by seamonster coming from right while causing waves.

---=\=---=\=---	Barbwire
+--=\=---=\=---  Barbwire

-3#`		Scorpion
+3#`             Scorpion

--=:\:=-		Kayak
+-=:\:=-         Kayak

-[:-)I		Frankenstein smiley
+[:-)I           Frankenstein smiley

->8=[..		User is an alien or Martian
+>8=[..          User is an alien or Martian

->8=[~		User is an alien or Martian
+>8=[~           User is an alien or Martian

-==(:o3)		The Easter Bunny smiley
+==(:o3)         The Easter Bunny smiley

-{:^>)		Grinning man with curly hair (and chin)
+{:^>)           Grinning man with curly hair (and chin)

-:)3		Counselor Troi smiley (the 3 are her boobs)
-		Female
+:)3             Counselor Troi smiley (the 3 are her boobs)
+                Female

-:{}		Riker smiley (with moustache and beard)
-		Wearing lipstick
+:{}             Riker smiley (with moustache and beard)
+                Wearing lipstick

-8{0}		Riker smiley (observing Troi's 3's)
+8{0}            Riker smiley (observing Troi's 3's)

-{{{ : }		Worf smiley (note wrinkled forehead and smile)
+{{{ : }         Worf smiley (note wrinkled forehead and smile)

-:)\[-8		Smiley beating off with his left hand
+:)\[-8          Smiley beating off with his left hand

-1-)		One!?! (happy)
+1-)             One!?! (happy)

-1-(		One!?! (unhappy)
+1-(             One!?! (unhappy)

-2-)		Two!?! (happy)
+2-)             Two!?! (happy)

-2-(		Two!?! (unhappy)
+2-(             Two!?! (unhappy)

-3-)		Three!?! (happy)
-		Odd look (happy)
+3-)             Three!?! (happy)
+                Odd look (happy)

-3-(		Three!?! (unhappy)
-		Odd look (unhappy)
+3-(             Three!?! (unhappy)
+                Odd look (unhappy)

-4-)		Four!?! (happy)
+4-)             Four!?! (happy)

-4-(		Four!?! (unhappy)
+4-(             Four!?! (unhappy)

-5-)		Five!?! (happy)
+5-)             Five!?! (happy)

-5-(		Five!?! (unhappy)
+5-(             Five!?! (unhappy)

-6-)		Six!?! (happy)
+6-)             Six!?! (happy)

-6-(		Six!?! (unhappy)
+6-(             Six!?! (unhappy)

-7-)		Seven!?! (happy)
+7-)             Seven!?! (happy)

-7-(		Seven!?! (unhappy)
+7-(             Seven!?! (unhappy)

-9-)		Nine!?! (happy)
+9-)             Nine!?! (happy)

-9-(		Nine!?! (unhappy)
+9-(             Nine!?! (unhappy)

-69-)		Cancer
-		Pisces
-		Happy Moon Child
+69-)            Cancer
+                Pisces
+                Happy Moon Child

-(^)_(^)		Basic smilie (Japanese symbol) wearing glasses
+(^)_(^)         Basic smilie (Japanese symbol) wearing glasses

-- -- --- === --- -- -	ASCII dividing line
+- -- --- === --- -- -   ASCII dividing line

-(=		Smiling
+(=              Smiling

-[-:		Happy face
+[-:             Happy face

-<-|		Cool guy smiling
+<-|             Cool guy smiling

-}~;		Bruto with mustache
+}~;             Bruto with mustache

-<^:		Smiling, profile
+<^:             Smiling, profile

-{-%		Drunk
+{-%             Drunk

-]:)		Goat
+]:)             Goat

-^_+		Sees a good thing
+^_+             Sees a good thing

-+_^		Sees a good thing
++_^             Sees a good thing

-(XXXXX];;;;;;;;;;>	Knife or Sword
+(XXXXX];;;;;;;;;;>      Knife or Sword

-/*^_^*\		Sailor Moon
+/*^_^*\         Sailor Moon

-'ommmmmmmmmmmmmmmmmmmmmmmo	Millipede
+'ommmmmmmmmmmmmmmmmmmmmmmo      Millipede

-oOoOoOoO_OoOoOoOo	Severe distress
+oOoOoOoO_OoOoOoOo       Severe distress

-[b-] <(RESISTANCE IS FUTILE)	Borg smiley saying Borg catch-phrase before
-					assimilating a new species
+[b-] <(RESISTANCE IS FUTILE)    Borg smiley saying Borg catch-phrase before
+                                        assimilating a new species

 (_!_)           A regular ass

@@ -4232,13 +4232,13 @@ oOoOoOoO_OoOoOoOo	Severe distress

 (_._)           A flat ass

-(_^_)      	A bubble ass
+(_^_)           A bubble ass

 (_^^_)          A bubble ass

 (_*_)           A sore ass
-		A French ass
-		Tongue in cheek
+                A French ass
+                Tongue in cheek

 (_!__)          A lop-sided ass

@@ -4247,7 +4247,7 @@ oOoOoOoO_OoOoOoOo	Severe distress
 (_O_)           An ass that's been around even more

 (_$_)           This ass will cost you
-		Money coming out of his ass
+                Money coming out of his ass

 (_/_)           An asian ass

@@ -4265,7 +4265,7 @@ oOoOoOoO_OoOoOoOo	Severe distress

 (_oo_)          An ass built for two

-(_o^o_)   	A wise ass
+(_o^o_)         A wise ass

 (_o^^o_)        A wise ass

@@ -4273,786 +4273,786 @@ oOoOoOoO_OoOoOoOo	Severe distress

 (_Y_)           An ass that can't say No

-(_?_)   	A dumb ass
+(_?_)           A dumb ass

-(88888:-)	Marge Simpson
+(88888:-)       Marge Simpson

-|#|[:](|)	Crow T. Robot, long view (from MST3K)
+|#|[:](|)       Crow T. Robot, long view (from MST3K)

-^_^		Smile (Japanese symbol)
+^_^             Smile (Japanese symbol)

-(@@)		"You're kidding!" (Japanese symbol)
+(@@)            "You're kidding!" (Japanese symbol)

-m(_)m		Humble bow of thanks or apology (Japanese symbol)
+m(_)m           Humble bow of thanks or apology (Japanese symbol)

-@|@		User has spent too long looking at the terminal
+@|@             User has spent too long looking at the terminal

-d:-p		Adolescent
+d:-p            Adolescent

-V(8-|		Air Force pilot
+V(8-|           Air Force pilot

-(|:-#		American footballer
+(|:-#           American footballer

-_(D)		Astronaut
+_(D)            Astronaut

-(O)-<-<	        Astronaut
+(O)-<-<         Astronaut

-~:-o		Baby (crying)
+~:-o            Baby (crying)

-(: )t		Bankrobber
-		Terrorist
+(: )t           Bankrobber
+                Terrorist

-C):-O		Barbershop quartet member
+C):-O           Barbershop quartet member

-<>:-)	        Bishop
+<>:-)           Bishop

-X-#		Boxer
+X-#             Boxer

-Q=:-)		Chef (graduated)
+Q=:-)           Chef (graduated)

-*:-))		Clown
+*:-))           Clown

-<*:oDX		Clown
+<*:oDX          Clown

-::(:-)		Cosmonaut
+::(:-)          Cosmonaut

-C):-)		Cowboy
+C):-)           Cowboy

-c|:-O		Cowboy
+c|:-O           Cowboy

-~(O)|		Deep sea diver
+~(O)|           Deep sea diver

-(O)|		Deep sea diver
+(O)|            Deep sea diver

-:-L]		Dentist
+:-L]            Dentist

-)X->		Devil
+)X->            Devil

-=|:-)X		Diplomat
+=|:-)X          Diplomat

-::--((		Earthquake victim
+::--((          Earthquake victim

-((cc--		Fractal geometrist
+((cc--          Fractal geometrist

-]:-]		Gaelic musician
-		A Celt
+]:-]            Gaelic musician
+                A Celt

-~(:-|		General or marshal
+~(:-|           General or marshal

-|<:-)		Graduate
+|<:-)           Graduate

-<|##		Hangman
+<|##            Hangman

-<:<)}		Hippie
+<:<)}           Hippie

-(##]		Hockey player
+(##]            Hockey player

-[8-F		Hockey player
+[8-F            Hockey player

-<*:-)		Magician
+<*:-)           Magician

-(#-[		Marine
+(#-[            Marine

->X#-[		Marines never die, they just regroup in Hell
+>X#-[           Marines never die, they just regroup in Hell

-*(:-|		Military officer
+*(:-|           Military officer

-MP(:-[		Military Policeman
+MP(:-[          Military Policeman

-o(:-)		Miner
+o(:-)           Miner

-(B-I=		Modern art critic
+(B-I=           Modern art critic

-@*~		Pink Floyd fan
+@*~             Pink Floyd fan

-oX)		Pirate
+oX)             Pirate

-+(:-|		Priest (orthodox)
++(:-|           Priest (orthodox)

-@-D		Psychologist
+@-D             Psychologist

-=[O-)]		Racing driver
+=[O-)]          Racing driver

-E:-)		Radio ham
+E:-)            Radio ham

-:--]		Robot
+:--]            Robot

-*#*!^*&:-)	Schizophrenic
+*#*!^*&:-)      Schizophrenic

-O-(		Scuba diver with a broken mask
+O-(             Scuba diver with a broken mask

-(B^|		Secret agent
+(B^|            Secret agent

-=(#-I		Sepultura fan
+=(#-I           Sepultura fan

-C):-|*		Sheriff
+C):-|*          Sheriff

-:)%		Skateboarder
+:)%             Skateboarder

-$(:-|		Soldier (dog-soldier)
+$(:-|           Soldier (dog-soldier)

-(:-)"		Soldier with medals / officer
+(:-)"           Soldier with medals / officer

-_(:-|		Soldier from the communications corps
+_(:-|           Soldier from the communications corps

-|-(:-|		Soldier from the radar division
+|-(:-|          Soldier from the radar division

-$:-$		Stockbroker
+$:-$            Stockbroker

-(:=<		Stormtrooper (Star Wars)
+(:=<            Stormtrooper (Star Wars)

-<:|-|)<	        Student of physics
+<:|-|)<         Student of physics

-S:-)		Superuser
+S:-)            Superuser

-:-)J		Surfer
+:-)J            Surfer

--=*:-)		TeX wizard
+-=*:-)          TeX wizard

-:->-<	        Thief -- hands up!
+:->-<           Thief -- hands up!

-(D)		Welder
+(D)             Welder

-<:-D		Witch
+<:-D            Witch

-:-)(-:		Just married!
+:-)(-:          Just married!

-)-::-(		Married
+)-::-(          Married

-:-|:-|		Deja' vu
+:-|:-|          Deja' vu

-o>8<(=		Message about interesting women
+o>8<(=          Message about interesting women

-%~v		"God I hate line noise!"
+%~v             "God I hate line noise!"

-,`:-C		"Huh?  What's the matter?" / "What's wrong?"
+,`:-C           "Huh?  What's the matter?" / "What's wrong?"

-,':-)		"That's a really interesting idea!"
+,':-)           "That's a really interesting idea!"

-;-S		"I kind of like it"
+;-S             "I kind of like it"

-I-8)~V-|!	A left-handed general of an AF Apache radar section
+I-8)~V-|!       A left-handed general of an AF Apache radar section

-~8-|		An alien
+~8-|            An alien

-!:-|		An Apache
+!:-|            An Apache

-\%*}		An Apache after too much fire water
+\%*}            An Apache after too much fire water

-=|:-)~D		An Englishman (with cup of tea)
+=|:-)~D         An Englishman (with cup of tea)

-@:]		A goblin
-		Wearing a turban
+@:]             A goblin
+                Wearing a turban

-_:-)		An Indian (American)
+_:-)            An Indian (American)

--(8-:):		An Indian (American)
+-(8-:):         An Indian (American)

-:^$		Jewish
+:^$             Jewish

->>:-1		A Klingon
+>>:-1           A Klingon

-*):-)		A Muslim
+*):-)           A Muslim

-*):||		A Muslim woman
+*):||           A Muslim woman

-H=D		A Negro
+H=D             A Negro

-3:o]		Pet smiley
+3:o]            Pet smiley

->:-o		Smiley antelope
+>:-o            Smiley antelope

-:=|		Smiley baboon
+:=|             Smiley baboon

-3:-]		Smiley bullock
+3:-]            Smiley bullock

-:@|		Smiley bull terrier
+:@|             Smiley bull terrier

-3:o		Smiley calf
+3:o             Smiley calf

-.V		Smiley duck
+.V              Smiley duck

-B|		Smiley frog
+B|              Smiley frog

-><:>==	        Smiley turkey
+><:>==          Smiley turkey

-(:[		Smiley worm (or ant)
+(:[             Smiley worm (or ant)

-=:7)~~		Rat/mouse (the 7 is its nose)
+=:7)~~          Rat/mouse (the 7 is its nose)

-=;7)~~		Winky rat, sarcastic as ever
+=;7)~~          Winky rat, sarcastic as ever

-=:7(~~		Sad rat
+=:7(~~          Sad rat

-=:7>~~	        Sarcastic rat (the default)
+=:7>~~          Sarcastic rat (the default)

->;7)~~		Winky and devil combined
+>;7)~~          Winky and devil combined

-~~(*:=		Left-handed mouse (drunk?)
+~~(*:=          Left-handed mouse (drunk?)

-=%7)~~		Rat that has been staring at a green screen for 15 hours
+=%7)~~          Rat that has been staring at a green screen for 15 hours

-=87)~~		Rat with eyeglasses
+=87)~~          Rat with eyeglasses

-O=:--~~		Holy Rat in punker look
+O=:--~~         Holy Rat in punker look

-=^..^=		CyberKat
+=^..^=          CyberKat

-/\oo/\		Spider or bat
+/\oo/\          Spider or bat

-:o		User is shocked
+:o              User is shocked

-[:)		Wearing a Walkman
+[:)             Wearing a Walkman

-:?		Smoking a pipe
+:?              Smoking a pipe

-:&		Tongue-tied
+:&              Tongue-tied

-:{)		Moustachioed
+:{)             Moustachioed

-:)=		A vampire
+:)=             A vampire

-:))		Double-chinned
-		Cheshire Cat
+:))             Double-chinned
+                Cheshire Cat

-xd:)		Wearing a propeller hat
+xd:)            Wearing a propeller hat

-:/		Crying
+:/              Crying

-:)~		Drooling
+:)~             Drooling

-:#		Screaming
+:#              Screaming

-%6		Brain dead
+%6              Brain dead

-(I		Asleep
+(I              Asleep

-:')		Crying
+:')             Crying

-X)		Dead
-		An alien
+X)              Dead
+                An alien

->:>		Devilish
+>:>             Devilish

-|O		Yawning
+|O              Yawning

-P)		A pirate
+P)              A pirate

-:)8-		Male
+:)8-            Male

-(: )		A balaclava
+(: )            A balaclava

-D)		A crash helmet
+D)              A crash helmet

-G:-)		A football helmet
+G:-)            A football helmet

-*/:-)		A tam o'shanter
+*/:-)           A tam o'shanter

-*\:-)		A tam o'shanter
+*\:-)           A tam o'shanter

-c):-)		A bowler hat
+c):-)           A bowler hat

-@}:-)		A gardening hat
+@}:-)           A gardening hat

-(|:-)		A helmet
+(|:-)           A helmet

-o<:-)		A bobble hat
+o<:-)           A bobble hat

-<|:-)		A party hat
+<|:-)           A party hat

-{|:-)		A Mao suit
+{|:-)           A Mao suit

-:-)o-		A tie
+:-)o-           A tie

-:-)x===>	A tie
+:-)x===>        A tie

-:-)8>		A tuxedo
+:-)8>           A tuxedo

-:-)x>	   	A tuxedo
+:-)x>           A tuxedo

-:-)8---		A tuxedo
+:-)8---         A tuxedo

-:-)o->		A suit and tie
+:-)o->          A suit and tie

-(: (=|		A ghost costume
+(: (=|          A ghost costume

-B-)[<		Sunglasses and swimming trunks
+B-)[<           Sunglasses and swimming trunks

-(:-) : 8-	User is male
+(:-) : 8-       User is male

-(:-) : -8	User is male and on the make
+(:-) : -8       User is male and on the make

-*:-} 8 *	User is female
+*:-} 8 *        User is female

-*:-} 8 O	User is female and on the make
+*:-} 8 O        User is female and on the make

-(:-[ : 8-	User is a male sadist
+(:-[ : 8-       User is a male sadist

-(:/] > 8-	User is a male masochist
+(:/] > 8-       User is a male masochist

-B-o		User is a bondage fetishest
+B-o             User is a bondage fetishest

-(8-( : -8	User is a masked rapist
+(8-( : -8       User is a masked rapist

-*:-} 8 8-	User is a transvestite
+*:-} 8 8-       User is a transvestite

-{8:||		User is a transsexual
+{8:||           User is a transsexual

-;-)o===8	User is a braggart
+;-)o===8        User is a braggart

-:-\ 8o		User after a cold shower
+:-\ 8o          User after a cold shower

-:-o ^^^^:	User after zipping up fly too fast
+:-o ^^^^:       User after zipping up fly too fast

-:-{ -__-:	User after slamming the toilet seat
+:-{ -__-:       User after slamming the toilet seat

-:-) <		User is a slut
+:-) <           User is a slut

-$:-} 8 *	User is a prostitute
+$:-} 8 *        User is a prostitute

-$:-) : 8-	User is a gigolo
+$:-) : 8-       User is a gigolo

-*:-} : 8-	User is a gay male
+*:-} : 8-       User is a gay male

-[:-) : *	User is a gay female
+[:-) : *        User is a gay female

-(:-) ?		User has had a sex-change
+(:-) ?          User has had a sex-change

-:-) >		User is celibate
+:-) >           User is celibate

-:-( :-		User is impotent (or let down)
+:-( :-          User is impotent (or let down)

-:-) -8		User has blue balls
+:-) -8          User has blue balls

-:-) -:		User has an erection
+:-) -:          User has an erection

-:-) -^-:	User is masturbating
+:-) -^-:        User is masturbating

-:-):-*8(-:	User is having sex
+:-):-*8(-:      User is having sex

-:-) :-...	User is taking a leak
+:-) :-...       User is taking a leak

-8-O --*		User just before doubling over with pain
+8-O --*         User just before doubling over with pain

->:-( 8 \*>-<	User has disparaging opinion of feminists
+>:-( 8 \*>-<    User has disparaging opinion of feminists

-@:-X@		User enjoys bondage
+@:-X@           User enjoys bondage

-<=8:-)		User is a dickhead
+<=8:-)          User is a dickhead

-:-)3		User is a big girl
+:-)3            User is a big girl

-:-)-}8		User is a big girl
+:-)-}8          User is a big girl

-;-)-8		User is a big girl winking at you
+;-)-8           User is a big girl winking at you

-:-)O		User is a very messed up girl
+:-)O            User is a very messed up girl

-:-{8		User is very unhappy with the results of her breast implant
-			surgery
+:-{8            User is very unhappy with the results of her breast implant
+                        surgery

-:-O=		User is showing their tongue to the doctor
+:-O=            User is showing their tongue to the doctor

->8-0		User is in the throes of composition
+>8-0            User is in the throes of composition

-:-)|		User is out on the town
+:-)|            User is out on the town

-|-[#]		User is about to explode
+|-[#]           User is about to explode

-|[*]		User is exploding NOW!
+|[*]            User is exploding NOW!

--:		User is upside down with a brick in theiir mouth
+-:              User is upside down with a brick in theiir mouth

-:::)		User is smiling despite being riddled by bullets
+:::)            User is smiling despite being riddled by bullets

-:-D*		User is lughing so much they don't realize that there's a
-			spider hanging from their lip
+:-D*            User is lughing so much they don't realize that there's a
+                        spider hanging from their lip

-:*D		User is drunk and laughing in church for no good reason
+:*D             User is drunk and laughing in church for no good reason

-;>)		User is smirking
+;>)             User is smirking

-:,-(		User is crying
+:,-(            User is crying

-:~(~~		User is crying
+:~(~~           User is crying

-3-O		User is snoring
+3-O             User is snoring

-I-)		User is sniggering
+I-)             User is sniggering

-%-(|)		User is laughing out loud
+%-(|)           User is laughing out loud

-:'-D		User is laughing so much that they're crying
+:'-D            User is laughing so much that they're crying

-:,-D		User is laughing so much that they're crying
+:,-D            User is laughing so much that they're crying

-:-):-):-)	User is guffawing loudly
+:-):-):-)       User is guffawing loudly

-]:-} =]]]]>	King Arthur
+]:-} =]]]]>     King Arthur

-=|:=)		Charlie Chaplin
+=|:=)           Charlie Chaplin

-*<:-)>		Santa Claus
+*<:-)>          Santa Claus

-o-<:-}}}	Santa Claus
+o-<:-}}}        Santa Claus

-*<(:-)		Santa Claus
+*<(:-)          Santa Claus

-o-(:-{o{{{{	Santa Claus
+o-(:-{o{{{{     Santa Claus

-o<:-}}		Santa Claus
+o<:-}}          Santa Claus

-=:o]		Bill Clinton
+=:o]            Bill Clinton

-(*): I		Cyclops
+(*): I          Cyclops

-(O-)		Cyclops
+(O-)            Cyclops

-:-[x>		Count Dracula
+:-[x>           Count Dracula

-:g)		The Elephant Man
+:g)             The Elephant Man

-[:-|I		Frankenstein's monster
+[:-|I           Frankenstein's monster

-}:-{|		Clark Gable
-		Snidley Whiplash
+}:-{|           Clark Gable
+                Snidley Whiplash

-:=(		Adolf Hitler
+:=(             Adolf Hitler

-:-=(		Adolf Hitler
+:-=(            Adolf Hitler

-:-) ---		John Holmes
+:-) ---         John Holmes

-(:-) : 8===	John Holmes
+(:-) : 8===     John Holmes

-:-) ===8	John Holmes
+:-) ===8        John Holmes

-(8 )		The Invisible Man
+(8 )            The Invisible Man

-?8-o		Elton John
+?8-o            Elton John

-:-((		Al Jolson
+:-((            Al Jolson

-C)B-)		The Lone Ranger
+C)B-)           The Lone Ranger

-}B-i		Groucho Marx
+}B-i            Groucho Marx

-:-) 8		Dolly Parton
+:-) 8           Dolly Parton

-+<(:-)		The Pope
++<(:-)          The Pope

-@:-()		Elvis Presley
+@:-()           Elvis Presley

-|:]		Robocop
+|:]             Robocop

-c)P-(		Long John Silver
+c)P-(           Long John Silver

-:8-1		Bart Simpson
+:8-1            Bart Simpson

-3 :-)		Bart Simpson
+3 :-)           Bart Simpson

-****:-)		Marge Simpson
+****:-)         Marge Simpson

-Q:-o		William Tell, Jr.
+Q:-o            William Tell, Jr.

-(8<|		Darth Vader
+(8<|            Darth Vader

-=)||)		Zorro
+=)||)           Zorro

-8===8		Satellite Of Love (from MST3K)
+8===8           Satellite Of Love (from MST3K)

->----(^_^)----<		A hug
+>----(^_^)----<         A hug

-(|)		E-moon
-		You are being mooned
+(|)             E-moon
+                You are being mooned

-~===[]		A candle
+~===[]          A candle

---------8<----m-oo--m---------	Cut here iin order to spy at the wall
+--------8<----m-oo--m---------  Cut here iin order to spy at the wall

-_________8______________	Snowman spying at the wall (too small?)
+_________8______________        Snowman spying at the wall (too small?)

-X-)		An alien
+X-)             An alien

->)		An alien
+>)              An alien

 >{|>            An alien
-		Geordi with his visor
+                Geordi with his visor

-@_0		User is having a stroke (one pupil smaller than other)
+@_0             User is having a stroke (one pupil smaller than other)

-0_@		User is having a stroke (one pupil smaller than other)
+0_@             User is having a stroke (one pupil smaller than other)

-@_O		User is having a stroke (one pupil smaller than other)
+@_O             User is having a stroke (one pupil smaller than other)

-O_@		User is having a stroke (one pupil smaller than other)
+O_@             User is having a stroke (one pupil smaller than other)

-(_<>_)		An ass ready for action!
-		Buttcake
+(_<>_)          An ass ready for action!
+                Buttcake

-(_^?_)		Neat shaven ass
+(_^?_)          Neat shaven ass

-(_@_)		Buck ass
+(_@_)           Buck ass

-(_+_)		A boinker (never stand behind one)
+(_+_)           A boinker (never stand behind one)

-(1+1=2)		A smart ass
+(1+1=2)         A smart ass

-(2+2=3)		A dumb ass
+(2+2=3)         A dumb ass

-`o._.o'		A head with eyes and a nose
+`o._.o'         A head with eyes and a nose

-\-(o)-(o)-/	Pair of glasses and eyes
+\-(o)-(o)-/     Pair of glasses and eyes

-.-=-.		UFO
+.-=-.           UFO

-.-=o=-.		UFO
+.-=o=-.         UFO

-.-~-.-~-.-~	Waves
+.-~-.-~-.-~     Waves

-/)/)/)/)/)/)	Waves
+/)/)/)/)/)/)    Waves

-c^o-o^		Putting glasses on
+c^o-o^          Putting glasses on

-|-o-|		Small Tie Fighter
+|-o-|           Small Tie Fighter

-`'~,.,~'`'~,.,~'`'~,.,~'`'~,.,~'	Wave or banner decor
+`'~,.,~'`'~,.,~'`'~,.,~'`'~,.,~'        Wave or banner decor

-|><|		Hour glass on side
+|><|            Hour glass on side

-^*_*^		Forward facing smiley
+^*_*^           Forward facing smiley

-//O\\		Spider
+//O\\           Spider

-'==xx\0		Dead guy
+'==xx\0         Dead guy

-'==>x\9		Dead girl
+'==>x\9         Dead girl

-'-=,o		Dead child
+'-=,o           Dead child

-.....`=o=^o>  <o^=o'.....	2 cars fixing to crash
+.....`=o=^o>  <o^=o'.....       2 cars fixing to crash

-.......`o=^o>    '-=,o		Car about to run over dead child
+.......`o=^o>    '-=,o          Car about to run over dead child

-@[O],[O]	Dude with glasses
+@[O],[O]        Dude with glasses

-@(o),(o)	Dude with glasses
+@(o),(o)        Dude with glasses

-O==I======>	Small sword
+O==I======>     Small sword

-xxx-------->	Arrow
+xxx-------->    Arrow

-..'...-=...,.o......`o=^o>	Car ran over dead child
+..'...-=...,.o......`o=^o>      Car ran over dead child

---~~~=:>[XXXXXXXXX]>	Rocket
+--~~~=:>[XXXXXXXXX]>    Rocket

-Y-Y^y^-/|\--Y^y^yY	Looking ahead on a desert highway
+Y-Y^y^-/|\--Y^y^yY      Looking ahead on a desert highway

-``'//^\=Z  -=O		Turtle after a tadpole
+``'//^\=Z  -=O          Turtle after a tadpole

-___/<^>\___	Front view of a stealth bomber
+___/<^>\___     Front view of a stealth bomber

-& &  >^\\\<|	Big fish going after little ones
+& &  >^\\\<|    Big fish going after little ones

-~^~^~'====>`~^~^~^~^~	Torpedo in water
+~^~^~'====>`~^~^~^~^~   Torpedo in water

-(<>..<>) 	Alien Grey
+(<>..<>)        Alien Grey

 _."._."._."._."._."._."._         Another waveform

-<'><		Mini-fish
+<'><            Mini-fish

-><`>		Mini-fish
+><`>            Mini-fish

-db db db 	Big dots
+db db db        Big dots

--<=+		Mini-plane
+-<=+            Mini-plane

-[`.`.`.`]	Data plug
+[`.`.`.`]       Data plug

-<<>><<>><<>><<>><<>>	Head-band
+<<>><<>><<>><<>><<>>    Head-band

->< >< >< >< >< >< ><	Big Xs
+>< >< >< >< >< >< ><    Big Xs

-<:>:<:>:<:>:<:>:<:>:<:>:	Head-Band
+<:>:<:>:<:>:<:>:<:>:<:>:        Head-Band

-|/|\|/|\|/|\|/|\|	Another bar
+|/|\|/|\|/|\|/|\|       Another bar

-)(*)(*)(*)(*)(*)(*)(*)(		Border
+)(*)(*)(*)(*)(*)(*)(*)(         Border

-\__o- \__o- \__o-  \__o-	Duckies
+\__o- \__o- \__o-  \__o-        Duckies

->(((((*.	Fishy
+>(((((*.        Fishy

-/^(o.o)^\	Bug
+/^(o.o)^\       Bug

---=============)@@@@@@-o	Sword
+--=============)@@@@@@-o        Sword

-[-oo-]		Tie Bomber
+[-oo-]          Tie Bomber

-3:-)		Bull or Cow
+3:-)            Bull or Cow

-*<:O)		Bozo the Clown
+*<:O)           Bozo the Clown

-*<( :-)}}}}	Santa
+*<( :-)}}}}     Santa

-(8)		Yo mamma's ass
+(8)             Yo mamma's ass

->:O)~		Wicked Clown
+>:O)~           Wicked Clown

-[-o-]		Darth Vader's Tie Fighter
+[-o-]           Darth Vader's Tie Fighter

-<-o->		Tie interceptor (star wars, seen from front)
+<-o->           Tie interceptor (star wars, seen from front)

-{-o-}		Darth Vader's tie fighter (star wars, seen from front)
+{-o-}           Darth Vader's tie fighter (star wars, seen from front)

->::<		X wing (star wars, seen from behind)
+>::<            X wing (star wars, seen from behind)

-<-E		Y wing (star wars, seen from above)
+<-E             Y wing (star wars, seen from above)

-<Q)		Mini-Millenium falcon (star wars, seen from above)
+<Q)             Mini-Millenium falcon (star wars, seen from above)

-<[=][		A-wing (star wars, seen from above)
+<[=][           A-wing (star wars, seen from above)

-(*)--(*)	Besbin twin cloud car (star wars, seen from front)
+(*)--(*)        Besbin twin cloud car (star wars, seen from front)

-::E--=		E-wing (star wars, seen from above)
+::E--=          E-wing (star wars, seen from above)

-<<<|->[		Victory star destroyer (star wars, seen from above)
+<<<|->[         Victory star destroyer (star wars, seen from above)

-C(((((cc-	Rebel transport (star wars, seen from above)
+C(((((cc-       Rebel transport (star wars, seen from above)

-=[<={[		Rebel snowspeeder (star wars, seen from above)
+=[<={[          Rebel snowspeeder (star wars, seen from above)

-<-E=->		Star cruiser (star wars, seen from above)
+<-E=->          Star cruiser (star wars, seen from above)

-,,,^._.^,,,	Cat
+,,,^._.^,,,     Cat

 oK              Someone walking

 O>              A birdie

-^?-)		Anonymous smiley
+^?-)            Anonymous smiley

-:-=|		Adolf Hitler smiley
+:-=|            Adolf Hitler smiley

-(:-))-|-<	Ever thought how Smiley's body looks like?
+(:-))-|-<       Ever thought how Smiley's body looks like?

-X=(;-))-|8-<=	Ever thought how Smiley's girlfriend looks like?
+X=(;-))-|8-<=   Ever thought how Smiley's girlfriend looks like?

-0=]:-)		Smiley with a top (silk) hat
+0=]:-)          Smiley with a top (silk) hat

 :s              A tounge tied person

 00              An Oreo being opened which resembles that you're going to
-			to take a snack break
+                        to take a snack break

 C=              Lightbulb resembling you have an idea

 = :>            Devil

-:B		Buck tooth boy
-		Person who needs braces
-		What's up doc?
+:B              Buck tooth boy
+                Person who needs braces
+                What's up doc?

-o_06		Face with a big drop of sweat
+o_06            Face with a big drop of sweat

-<><		Ichtus, a.k.a. Jesus fish
+<><             Ichtus, a.k.a. Jesus fish

-@(^_^)@		Princess Leia from Star Wars
+@(^_^)@         Princess Leia from Star Wars

-8===8<0>8===8	X-wing from Star Wars
+8===8<0>8===8   X-wing from Star Wars

-^.~		User is winking (Japanese-style symbol)
+^.~             User is winking (Japanese-style symbol)

-n.n		User is smiling
-		User is happy (Japanese-style symbol)
-		Cute smile, emphasis on cute
+n.n             User is smiling
+                User is happy (Japanese-style symbol)
+                Cute smile, emphasis on cute

-^_^x		Himura Kenshin from Rurouni Kenshin
-		User has a sweatdrop (Japanese symbol)
+^_^x            Himura Kenshin from Rurouni Kenshin
+                User has a sweatdrop (Japanese symbol)

-*(^-^)*		Sailor Moon from Bishoujo Senshi Sailor Moon
+*(^-^)*         Sailor Moon from Bishoujo Senshi Sailor Moon

-/*-_-*\		Sailor Moon from Bishoujo Senshi Sailor Moon
+/*-_-*\         Sailor Moon from Bishoujo Senshi Sailor Moon

-'-'--<3		Chibiusa's Time Key from Bishoujo Senshi Sailor Moon
+'-'--<3         Chibiusa's Time Key from Bishoujo Senshi Sailor Moon

-o^o-o|_		Forklift
+o^o-o|_         Forklift

-o^o-o{		Bulldozer
+o^o-o{          Bulldozer

-:-p*d-:		People French kissing
+:-p*d-:         People French kissing

-(o ) (o )	Headlights
+(o ) (o )       Headlights

-:-)`		Smiley with a dimple
+:-)`            Smiley with a dimple

----[ #]		Mouse
+---[ #]         Mouse

----( o)		Another mouse
+---( o)         Another mouse

----( 8)		Two-button mouse
+---( 8)         Two-button mouse

-(O)----		Trackball
+(O)----         Trackball

-E==)---		Joystick
+E==)---         Joystick

-[#]|		Computer
+[#]|            Computer

-[ ]|		Computer with blank screen
+[ ]|            Computer with blank screen

-_-~-_-~-*	Bouncy
+_-~-_-~-*       Bouncy

-+		Bouncy with a mohawk
++               Bouncy with a mohawk

-@		Bouncy on a bad hair day
+@               Bouncy on a bad hair day

-#		Bouncy with a fancy hairdo
+#               Bouncy with a fancy hairdo

-*-		Bouncy with a tie
+*-              Bouncy with a tie

-*- # + .	Bouncy family: father, mother, teenage son, and baby
+*- # + .        Bouncy family: father, mother, teenage son, and baby

-%*%==		Bouncy in a tree
+%*%==           Bouncy in a tree

--,O,'*		Hippo or cow
+-,O,'*          Hippo or cow

-/|**|`=		Mooo
+/|**|`=         Mooo

-`:-|		Spock
+`:-|            Spock

-:-<>		McCoy
+:-<>            McCoy

->;<*>-|--<	Person eating bouncy
+>;<*>-|--<      Person eating bouncy

-:)-8--<d:	Guess (?)
-		Woman performing oral sex on man
+:)-8--<d:       Guess (?)
+                Woman performing oral sex on man

-:9		Happy face sticking its tongue out
+:9              Happy face sticking its tongue out

-:6		Unhappy face with tongue out
-		Talking out of the side of the mouth
+:6              Unhappy face with tongue out
+                Talking out of the side of the mouth

-<*,^^,--	It's a dragon!
+<*,^^,--        It's a dragon!

-~~~<*,^^,--	It's a fire-breathing dragon!
+~~~<*,^^,--     It's a fire-breathing dragon!

--+#:|-|-<  <*,^^,--	Dragon vs. wizard
+-+#:|-|-<  <*,^^,--     Dragon vs. wizard

--+#:)->-< <* `vv`--	The wizard won
+-+#:)->-< <* `vv`--     The wizard won

--+#  ~~XO-!-(  `<*,^^,--	And sometimes thhe dragon wins.
+-+#  ~~XO-!-(  `<*,^^,--        And sometimes thhe dragon wins.

-8---		Male
+8---            Male

-(0)		Female
+(0)             Female

-8---(0)		Having sex
+8---(0)         Having sex

-=^V		Surprised (in profile)
+=^V             Surprised (in profile)

-o{||?:^D	Mike Nesmith from The Monkees (hat and wavy hair)
+o{||?:^D        Mike Nesmith from The Monkees (hat and wavy hair)

 ( :o)           Happy Bill Clinton

@@ -5063,329 +5063,329 @@ o{||?:^D	Mike Nesmith from The Monkees (hat and wavy hair)
 ( :op           Exhausted Bill Clinton

 ( 8o)           Bill Clinton checking out the new sexy interns
-		Bill Clinton jogging past a McDonalds
-
+                Bill Clinton jogging past a McDonalds
+
 ( :oF           Bill Clinton enjoying some French fries

-( :o)-		Bill Clinton enjoying a cigar
+( :o)-          Bill Clinton enjoying a cigar

-{:B		Walrus
+{:B             Walrus

-<3~~~<3~~~<3	Hearts, love
+<3~~~<3~~~<3    Hearts, love

-o^~^o		Pikachu from Pokemon
+o^~^o           Pikachu from Pokemon

-=^~^=		RyoOhki from Tenchi Muyo
+=^~^=           RyoOhki from Tenchi Muyo

-^~^		Mokona from Magic Knight Rayearth
+^~^             Mokona from Magic Knight Rayearth

-:oj		Smile with a dimple.
+:oj             Smile with a dimple.

-<^/O\~		Rodent
-		"You Dirty Rat!"
+<^/O\~          Rodent
+                "You Dirty Rat!"

-;o)		Just kidding
-		Winking Bozo the Clown variant
+;o)             Just kidding
+                Winking Bozo the Clown variant

-*<|:o)X		Clown in full costume including hat and bow tie
+*<|:o)X         Clown in full costume including hat and bow tie

-:)~>-8-(:	Man performing oral sex on woman
+:)~>-8-(:       Man performing oral sex on woman

-@%<})		Smiley with thinning hair and offset glasses
+@%<})           Smiley with thinning hair and offset glasses

-}87(=		Vampire
+}87(=           Vampire

-:-) (-:		Twins
+:-) (-:         Twins

--Z-O-O-M-> |=====>	The BRB Rocket
+-Z-O-O-M-> |=====>      The BRB Rocket

-*.| /		Indian (India)
+*.| /           Indian (India)

-*.|...		India
+*.|...          India

-O<---		Sex
+O<---           Sex

-O+O=		Love
+O+O=            Love

-$$$		Money
+$$$             Money

-<:3)~~~~~	Mouse
+<:3)~~~~~       Mouse

-) ; (		Male torso with erection
+) ; (           Male torso with erection

->^ -.- ^<	Cat
+>^ -.- ^<       Cat

-:)~~(:		Kiss
+:)~~(:          Kiss

-{:)>~~		Smiley (?)
+{:)>~~          Smiley (?)

-['j']		Elephant
+['j']           Elephant

-['.']		Smiley (?)
+['.']           Smiley (?)

-['-']		Smiley (?)
+['-']           Smiley (?)

-())CRAYOLA()>	Crayon
+())CRAYOLA()>   Crayon

-(__TNT__)~	TNT
+(__TNT__)~      TNT

-~~~~\0/~~~~	Can't swim (drowning)
+~~~~\0/~~~~     Can't swim (drowning)

-(>'.'<)		Cat
+(>'.'<)         Cat

-[ ((*) ]	Tunisia
+[ ((*) ]        Tunisia

-(./\.)		Saggy boobs
+(./\.)          Saggy boobs

-( 8^(l)		Homer Simpson
+( 8^(l)         Homer Simpson

-@@@@@@@= )	Marge Simpson
+@@@@@@@= )      Marge Simpson

-( o Y o )	Big boobs
-		Playboy model breasts
+( o Y o )       Big boobs
+                Playboy model breasts

-}8}! >		Devil
+}8}! >          Devil

-80)		Clinton happy face
+80)             Clinton happy face

-:G		Gag/ralf
+:G              Gag/ralf

-':/		Raised eyebrow, not funny
+':/             Raised eyebrow, not funny

->:D		Evil grin
+>:D             Evil grin

-|-/		Asleep/closing eyes
+|-/             Asleep/closing eyes

-';/		Been clobbered (for crashes/reboots)
+';/             Been clobbered (for crashes/reboots)

-;P		Playfully poking out tongue
+;P              Playfully poking out tongue

-~_^		Japanese style wink
+~_^             Japanese style wink

-(_8^(|)		Homer Simpson
+(_8^(|)         Homer Simpson

-| \|/ |		Shaved girl
+| \|/ |         Shaved girl

 <============))(((((((o)))))))((============>
-		Double bladed light saber
+                Double bladed light saber

-:o(		W.C. Fields
-		User has a pig-nose
-		User has a cold
+:o(             W.C. Fields
+                User has a pig-nose
+                User has a cold

-{=*}		A hug and kiss
+{=*}            A hug and kiss

-( ((x)(x)) )	Oh my god they killed kenny!
+( ((x)(x)) )    Oh my god they killed kenny!

-{{{{{>-o	Bride of Frankenstein
+{{{{{>-o        Bride of Frankenstein

-(c8)		Bald man with a big nose
+(c8)            Bald man with a big nose

-")		Smile
+")              Smile

-8 )		Glasses
+8 )             Glasses

-"<		Feeling surprised or really stupid (quack, quack)
+"<              Feeling surprised or really stupid (quack, quack)

-*		Kiss
+*               Kiss

-{*}		Hugs and kisses
+{*}             Hugs and kisses

-(---->		Umbrella
+(---->          Umbrella

-<*-)		Drunk wearing traffic cone
+<*-)            Drunk wearing traffic cone

-<%-)		Very drunk wearing traffing cone
+<%-)            Very drunk wearing traffing cone

-))))8>o		Don King
+))))8>o         Don King

-^5		High five
+^5              High five

-<|<|=		Tree
+<|<|=           Tree

-<XXXXXXXXX#######	Smoking a joint
+<XXXXXXXXX#######       Smoking a joint

-=-))		Very happy
+=-))            Very happy

-=-D		Big smile
+=-D             Big smile

-=-}		Grin
+=-}             Grin

-=-)***		Smiling with drool
+=-)***          Smiling with drool

-=-P****		Tongue hanging out with drool
+=-P****         Tongue hanging out with drool

-AlA		Madonna's cleavage
+AlA             Madonna's cleavage

-( + )( + )	Fake silicone breasts
+( + )( + )      Fake silicone breasts

-(*)(*)		High nipple breasts
+(*)(*)          High nipple breasts

-(@)(@)		Big nipple breasts
+(@)(@)          Big nipple breasts

-{ O }{ O }	D cups
+{ O }{ O }      D cups

-(oYo)		Wonder bra breasts
+(oYo)           Wonder bra breasts

-( ^ )( ^ )	Cold breasts
+( ^ )( ^ )      Cold breasts

-< o < o		Electric shock breasts
+< o < o         Electric shock breasts

-(/)(o)		Scratched breasts (ouch)
+(/)(o)          Scratched breasts (ouch)

-(%)(o)		Extra nipple breasts
+(%)(o)          Extra nipple breasts

-(^o)(o)		Zit on your breast
+(^o)(o)         Zit on your breast

-(o)(O)		Lopsided breasts
+(o)(O)          Lopsided breasts

-(Q)(O)		Pierced breasts
+(Q)(O)          Pierced breasts

-(p)(p)		Hanging tassels breasts
+(p)(p)          Hanging tassels breasts

-\o/\o/		Grandma's breasts
+\o/\o/          Grandma's breasts

-(  -  )(  -  )	Flat against the shower door breasts
+(  -  )(  -  )  Flat against the shower door breasts

-|o||o|		Android breasts
+|o||o|          Android breasts

-($)($)		Jenny McCarthy's breasts
+($)($)          Jenny McCarthy's breasts

-[::( )::]	Band Aid
+[::( )::]       Band Aid

-[  ]=====================D	A penis
+[  ]=====================D      A penis

-=0)		Happy
+=0)             Happy

-=0P		Making fun of
+=0P             Making fun of

-=0x		Without words
+=0x             Without words

-@...@		Two hearts loving from a distance
+@...@           Two hearts loving from a distance

-( o )( o )	Boobs
+( o )( o )      Boobs

-{____Y____}	Ass
+{____Y____}     Ass

-:-0_		Dr. Evil (from Austin Powers)
+:-0_            Dr. Evil (from Austin Powers)

-XP		French kiss
+XP              French kiss

-(______(_____________()~~~~~~~~~	Taking a smoke break
+(______(_____________()~~~~~~~~~        Taking a smoke break

-(-: :-)		Happy dancers
-		Happy dancing
+(-: :-)         Happy dancers
+                Happy dancing

-:)->()<]:	Ninja turtle on a skateboard
+:)->()<]:       Ninja turtle on a skateboard

-$(:>(		Price on his head
+$(:>(           Price on his head

-(:>)$$$$$$$$$$$		Who wants to be a millionaire?
+(:>)$$$$$$$$$$$         Who wants to be a millionaire?

-=o=		X Wing (Star Wars)
+=o=             X Wing (Star Wars)

-_A_		Imperial Shuttle (Star Wars)
+_A_             Imperial Shuttle (Star Wars)

-oI--		B-Wing (Star Wars)
+oI--            B-Wing (Star Wars)

-o-O-o		Y-Wing (Star Wars)
+o-O-o           Y-Wing (Star Wars)

-.n.		Snowspeeder (Star Wars)
+.n.             Snowspeeder (Star Wars)

-P		Slave 1, side view (Star Wars)
+P               Slave 1, side view (Star Wars)

-iO		Millenium Falcon, top view (Star Wars)
+iO              Millenium Falcon, top view (Star Wars)

-,:-|		The Rock (of WWF fame)
+,:-|            The Rock (of WWF fame)

---|--		The middle finger
-		The bird
-		The International Driver's Salute
+--|--           The middle finger
+                The bird
+                The International Driver's Salute

-x_x		Dead, unconcious, etc.
+x_x             Dead, unconcious, etc.

-/~~;.;~~\	Fountain of tears
+/~~;.;~~\       Fountain of tears

-)-)-)-)-)-)-)(:-)	Captain Picard wearing toupee travelling at Warp 7
+)-)-)-)-)-)-)(:-)       Captain Picard wearing toupee travelling at Warp 7

-;@		Playful/mock anger
+;@              Playful/mock anger

-;0		Playful/mock surprise
+;0              Playful/mock surprise

-/8-(		The Rock (of the WWF)
+/8-(            The Rock (of the WWF)

-`\o/`		User waving goodbye (or hello)
+`\o/`           User waving goodbye (or hello)

-~~`\o/`~~	Drowning user
+~~`\o/`~~       Drowning user

-_\M/_		Lotus flower
+_\M/_           Lotus flower

-@(~0~)@		Koala
+@(~0~)@         Koala

-~.~		Friendly smile, often understanding
+~.~             Friendly smile, often understanding

-__m^.^m__	Hanging on a wall
+__m^.^m__       Hanging on a wall

-UUIUU		Menorah [anyone else have another/better version?]
+UUIUU           Menorah [anyone else have another/better version?]

-{8^{l}		Homer Simpson
+{8^{l}          Homer Simpson

-(_))===D~~	Male ejaculation
+(_))===D~~      Male ejaculation

-@(*o*)@		Koala
+@(*o*)@         Koala

-..|..  (>_<)  ..|..	Eminem
+..|..  (>_<)  ..|..     Eminem

-@:^)		Wilma Flintstone
+@:^)            Wilma Flintstone

-}:|		Mad
+}:|             Mad

-**=		Stars and Stripes Forever
+**=             Stars and Stripes Forever

-@:-[---		Osama bin Laden
+@:-[---         Osama bin Laden

-(>@		Paramotor flying
+(>@             Paramotor flying

-@<)		Paramotor flying
+@<)             Paramotor flying

-<"}}}><\	Fish
+<"}}}><\        Fish

-=)(=		Kissing
+=)(=            Kissing

-9_9		Rolling eyes
+9_9             Rolling eyes

-~(8-)=		One hair, bespectacled, smiley, goatee
+~(8-)=          One hair, bespectacled, smiley, goatee

-}:-8  ~(	Bull s---
+}:-8  ~(        Bull s---

->')|||||||||||<<	Arrowana fish
+>')|||||||||||<<        Arrowana fish

-8>)		Eyes, nose, and mouth of a smiling face
+8>)             Eyes, nose, and mouth of a smiling face

-c-------7	Fishing boat (sent as "domain art", c-------7.net)
+c-------7       Fishing boat (sent as "domain art", c-------7.net)

-ixxxxi		Tennis nets (sent as "domain art", ixxxxi.net)
+ixxxxi          Tennis nets (sent as "domain art", ixxxxi.net)

-c-oo		Sunglasses (sent as "domain art", c-oo.biz)
+c-oo            Sunglasses (sent as "domain art", c-oo.biz)

-o--0--o		Jet fighter
+o--0--o         Jet fighter

-|  \!/  |	A male lying on his back with legs spread
+|  \!/  |       A male lying on his back with legs spread

-|  \*/  |	A female lying on his back with legs spread
+|  \*/  |       A female lying on his back with legs spread

-,l,,		The finger
+,l,,            The finger

-X_x		User is dead (variation)
+X_x             User is dead (variation)

-O_o		"Whoa..."
-		User is shocked (variation)
+O_o             "Whoa..."
+                User is shocked (variation)

-----,-<-'--<@	This is your Rosebud...
+----,-<-'--<@   This is your Rosebud...

-`BD		Bill Gates (or any guy with glasses and stupid grin)
+`BD             Bill Gates (or any guy with glasses and stupid grin)

-(_____((____________()~~~~~~~~	Cigarette
+(_____((____________()~~~~~~~~  Cigarette

 @+              A+ in French (see you, bye until the next e-mail)

diff --git a/experiments/encodings.el b/experiments/encodings.el
index bd11286..5230eef 100644
--- a/experiments/encodings.el
+++ b/experiments/encodings.el
@@ -8,7 +8,7 @@
 ;; (standard-display-8bit 128 255)

 (set-input-mode nil nil t nil) ;; INTERRUPT FLOW META [QUIT]
-;; (setq meta-prefix-char nil) ; to split ESC from M-
+;; (setq meta-prefix-char nil) ; to split ESC from M-

 (when (fboundp 'unify-8859-on-encoding-mode)
   (unify-8859-on-encoding-mode 1))
@@ -31,7 +31,7 @@

 (progn
   (case system-type
-    (darwin
+    (darwin
      (set-language-environment                "utf-8")
      (prefer-coding-system                    'utf-8-unix)
      (set-default-coding-systems              'utf-8-unix)
@@ -78,19 +78,19 @@
 ;; revert-buffer-with-coding-system.


-;; 	(set-language-environment		'German)
-;; 	(setq default-file-name-coding-system	'utf-8)
-;; 	(setq file-name-coding-system		'utf-8)
-;; 	(setq default-buffer-file-coding-system 'iso-latin-9-unix))
-;; 	(set-default-coding-systems		'mac-roman-unix)
-;; 	;(setq mac-keyboard-text-encoding	 kTextEncodingISOLatin1)
-;; 	(set-keyboard-coding-system		'sjis-mac)
-;; 	(set-clipboard-coding-system		'sjis-mac)
-;; 	(prefer-coding-system			'mac-roman-unix)
-;; 	(modify-coding-system-alist	 'file "\\.tex\\'" 'iso-latin-9-unix)
-;; 	(modify-coding-system-alist	 'process
+;;      (set-language-environment               'German)
+;;      (setq default-file-name-coding-system   'utf-8)
+;;      (setq file-name-coding-system           'utf-8)
+;;      (setq default-buffer-file-coding-system 'iso-latin-9-unix))
+;;      (set-default-coding-systems             'mac-roman-unix)
+;;      ;(setq mac-keyboard-text-encoding        kTextEncodingISOLatin1)
+;;      (set-keyboard-coding-system             'sjis-mac)
+;;      (set-clipboard-coding-system            'sjis-mac)
+;;      (prefer-coding-system                   'mac-roman-unix)
+;;      (modify-coding-system-alist      'file "\\.tex\\'" 'iso-latin-9-unix)
+;;      (modify-coding-system-alist      'process
 ;; "\\*[Ss][Hh][Ee][Ll][Ll].*\\'"  'utf-8-unix)
-;; 	;(set-buffer-process-coding-system	'utf-8 'utf8)
+;;      ;(set-buffer-process-coding-system      'utf-8 'utf8)

 (when (boundp 'aquamacs-version)
   (setf mac-command-modifier 'meta
@@ -252,7 +252,7 @@ SIDE must be the symbol `left' or `right'."

 ;; (delete-selection-mode t)
 (if (fboundp 'delete-region-and-yank)
-    (global-set-key (kbd "C-y")  'delete-region-and-yank)
+    (global-set-key (kbd "C-y")  'delete-region-and-yank)
     (global-set-key (kbd "C-y")  'yank))

 ;; A strange configuration with a narrow frame...
diff --git a/experiments/j-macros.el b/experiments/j-macros.el
index e5b6ddb..a56cf70 100644
--- a/experiments/j-macros.el
+++ b/experiments/j-macros.el
@@ -7,8 +7,8 @@
 ;; // EXAMPLE: classPathName=other.OwnerClass.pathName;eval(computeCxxClassName);otherClassName=cxxClassName;
 ;; String computeCxxClassName=" this{ Package currentPackage=rootPackage; string sep=~"~"; string s=classPathName; string[] items=s.segment(~":~"); int i; cxxClassName=~"~"; for(i=1; i<items.size()-1; i=i+1){ this{ Package subPackage; string item; boolean found=false; getItemSet(items,i,item); StdErr.write(item,NL); subPackage=currentPackage.getPackageByName(item); subPackage.TagTaggedValue.<while(not(found)){ getTagType().<while(not(found)){ found=Name==~"C++NoNameSpace~"; } } if(not(found)){ cxxClassName=cxxClassName+sep+subPackage.Name; sep=~"::~"; } currentPackage=subPackage; } } this{ string item; getItemSet(items,items.size()-1,item); cxxClassName=cxxClassName+sep+item; } } ";
 ;; // PARAMETERS:
-;; String           classPathName;                              // input
-;; String           cxxClassName;                               // output
+;; String           classPathName;                              // input
+;; String           cxxClassName;                               // output
 ;; // END FUNCTION

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -26,7 +26,7 @@ properly escaped.."
                 (re-search-forward "^\\([^\"/]\\|\"\\([^\"~]\\|~.\\)*\"\\|/[^/]\\)*\\(//.*\\)$" (point-max) t))
       (with-marker (current (match-end 3))
         (delete-region (match-beginning 3) current)
-        (goto-char current))
+        (goto-char current))
       (beginning-of-line 1))
     (goto-char (point-min))             ; remove spaces before
     (while (and (< (point) (point-max)) (re-search-forward "^ +" (point-max) t))
diff --git a/experiments/make.conf.el b/experiments/make.conf.el
index 80bc8f0..6909076 100644
--- a/experiments/make.conf.el
+++ b/experiments/make.conf.el
@@ -75,7 +75,7 @@
      (comment "package.keywords could look like this: ")
      (comment "      http://rafb.net/paste/results/SWPxKb71.txt")
      (USE (objc -apache apache2 cli cgi dri nptl nptlonly
-            -oracle
+            -oracle
             ;; doc gd-external oracle
             ;; NOT AT ALL: fdftk
             3dnow X Xaw3d a52 aac aalib accessibility acpi aim
diff --git a/experiments/pjb-cl-string-justify.el b/experiments/pjb-cl-string-justify.el
index 71810ae..d7f454d 100644
--- a/experiments/pjb-cl-string-justify.el
+++ b/experiments/pjb-cl-string-justify.el
@@ -15,7 +15,7 @@ Tilde immediately followed by a newline ignores the newline and any
 following non-newline whitespace  characters. With a :, the newline is
 ignored, but any following whitespace is left in place.  With an @,
 the newline is left in place, but any following whitespace is
-ignored.
+ignored.

 This commands prompts for the kind of justification to use.
 If the mark is not active, this command operates on the current paragraph.
@@ -43,7 +43,7 @@ taken to be paragraph breaks.
   (with-marker (end end)
     (goto-char begin)
     (flet ((justify-section (begin end)
-             ;; remove ~ and ~:
+             ;; remove ~ and ~:
              (goto-char begin)
              (while (re-search-forward "\\(~\n *\\|~:\n\\)" end t)
                (delete-region (match-beginning 0) (match-end 0)))
diff --git a/experiments/pjb-too-early.el b/experiments/pjb-too-early.el
index 550791e..bf0343c 100644
--- a/experiments/pjb-too-early.el
+++ b/experiments/pjb-too-early.el
@@ -5,13 +5,13 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Evaluate things too early.
 ;;;;
 ;;;;    Works only when paredit-mode is active, and with
 ;;;;    emacs-lisp-mode or lisp-mode+slime-mode
 ;;;;
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -19,19 +19,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    AGPL3
-;;;;
+;;;;
 ;;;;    Copyright Pascal J. Bourguignon 2012 - 2012
-;;;;
+;;;;
 ;;;;    This program is free software: you can redistribute it and/or modify
 ;;;;    it under the terms of the GNU Affero General Public License as published by
 ;;;;    the Free Software Foundation, either version 3 of the License, or
 ;;;;    (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be useful,
 ;;;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;;;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;;;    gnu affero general public license for more details.
-;;;;
+;;;;
 ;;;;    you should have received a copy of the gnu affero general public license
 ;;;;    along with this program.  if not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
@@ -172,7 +172,7 @@ A too-early index is a list of too-early-form"
       (setf (too-early-frame-main-window teframe) main-window))
     (when (too-early-frame-show-menu-p teframe)
       (too-early-frame-split-menu-window teframe))
-    (dolist (child (too-early-frame-child-buffers teframe))
+    (dolist (child (too-early-frame-child-buffers teframe))
       (too-early-frame-split-child-window teframe child))))


diff --git a/experiments/si-prefix.el b/experiments/si-prefix.el
index b6ab164..0df52ca 100644
--- a/experiments/si-prefix.el
+++ b/experiments/si-prefix.el
@@ -44,10 +44,10 @@

 (defun dichotomy (vector value compare &optional start end key)
   "
-PRE:	entry is the element to be searched in the table.
+PRE:    entry is the element to be searched in the table.
         (<= start end)
 RETURN: (list found index order)
-POST:	(<= start index end)
+POST:   (<= start index end)
         +-------------------+----------+-------+----------+----------------+
         | Case              |  found   | index |  order   |     Error      |
         +-------------------+----------+-------+----------+----------------+
@@ -116,7 +116,7 @@ TYPE        either float or integer
 "
   (let ((table (make-hash-table :test (function equal))))
     (loop
-       for value in '(0 0.0)
+       for value in '(0 0.0)
        for type in '(integer float)
        do (loop
              for prefix-code in '(:si :binary)
diff --git a/experiments/window-pane.el b/experiments/window-pane.el
index fb50bca..b203b44 100644
--- a/experiments/window-pane.el
+++ b/experiments/window-pane.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    A Sketch for split-bottom
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -15,19 +15,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    GPL
-;;;;
+;;;;
 ;;;;    Copyright Pascal J. Bourguignon 2010 - 2011
-;;;;
+;;;;
 ;;;;    This program is free software; you can redistribute it and/or
 ;;;;    modify it under the terms of the GNU General Public License
 ;;;;    as published by the Free Software Foundation; either version
 ;;;;    2 of the License, or (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be
 ;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
 ;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;;;    PURPOSE.  See the GNU General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU General Public
 ;;;;    License along with this program; if not, write to the Free
 ;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
diff --git a/gpx.el b/gpx.el
index fb78020..dde432c 100644
--- a/gpx.el
+++ b/gpx.el
@@ -30,10 +30,10 @@
     (verticalDilutionOfPrecision Double)
     (ageOfGpsData Double)
     (dGpsId Integer))
-
+
   (java-defstruct Segment
     (points ArrayList<Point>))
-
+
   (java-defstruct Track
     (name String)
     (comment String)
@@ -59,8 +59,8 @@


 (defun java-generate-structure-class (class-name slots)
-  (insert (format "\npublic class %s {\n" class-name))
-  (insert (format "  public %s(){}\n" class-name))
+  (insert (format "\npublic class %s {\n" class-name))
+  (insert (format "  public %s(){}\n" class-name))
   (dolist (slot slots)
     (destructuring-bind (name type &rest options) slot
       (let ((came (java-capitalize-first-letter (etypecase name
@@ -191,12 +191,12 @@
     (author String author)
     (year Integer year)
     (license String license))
-
+
   (gpx-parse Person
     (name String name)
     (email Email email)
     (link Link link))
-
+
   (gpx-parse Bounds
     (minimum-latitude Double minlat)
     (minimum-longitude Double minlon)
@@ -211,9 +211,9 @@
     (href String href)
     (text String text)
     (type String type))
-
-
-  (gpx-parse Point
+
+
+  (gpx-parse Point
     (latitude Double lat :attribute)
     (longitude Double lon :attribute)
     (elevation Double ele)
@@ -233,10 +233,10 @@
     (verticalDilutionOfPrecision Double vdop)
     (ageOfGpsData Double ageofdgpsdata)
     (dGpsId Integer dgpsid))
-
+
   (gpx-parse Segment
     (points ArrayList<Point> trkpt))
-
+
   (gpx-parse Track
     (name String name)
     (comment String cmt)
diff --git a/init.lisp b/init.lisp
index 40368e4..0a8a416 100644
--- a/init.lisp
+++ b/init.lisp
@@ -4,7 +4,7 @@
 ;;SYSTEM:             Common-Lisp
 ;;USER-INTERFACE:     NONE
 ;;DESCRIPTION
-;;
+;;
 ;;    Initialization for common-lisp packages.
 ;;
 ;;    This files remove some specificities from the lisp environment
@@ -23,19 +23,19 @@
 ;;BUGS
 ;;LEGAL
 ;;    GPL
-;;
+;;
 ;;    Copyright Pascal J. Bourguignon 2004 - 2004
-;;
+;;
 ;;    This program is free software; you can redistribute it and/or
 ;;    modify it under the terms of the GNU General Public License
 ;;    as published by the Free Software Foundation; either version
 ;;    2 of the License, or (at your option) any later version.
-;;
+;;
 ;;    This program is distributed in the hope that it will be
 ;;    useful, but WITHOUT ANY WARRANTY; without even the implied
 ;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;    PURPOSE.  See the GNU General Public License for more details.
-;;
+;;
 ;;    You should have received a copy of the GNU General Public
 ;;    License along with this program; if not, write to the Free
 ;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
@@ -46,7 +46,7 @@

 ;; clean the imported packages:
 (MAPC (LAMBDA (USED) (UNUSE-PACKAGE USED "COMMON-LISP-USER"))
-      (REMOVE (FIND-PACKAGE "COMMON-LISP")
+      (REMOVE (FIND-PACKAGE "COMMON-LISP")
               (COPY-SEQ (PACKAGE-USE-LIST "COMMON-LISP-USER"))))

 #+clisp
@@ -69,7 +69,7 @@
                      :print print :if-does-not-exist if-does-not-exist
                      :external-format external-format)))))))

-;; (DEFUN SCONC (&REST ARGS)
+;; (DEFUN SCONC (&REST ARGS)
 ;;   (apply (function CONCATENATE)
 ;;          'string
 ;;          (mapcar (lambda (item) (typecase item
@@ -77,10 +77,10 @@
 ;;                              (otherwise  (string item)))) ARGS)));;SCONC


-;; COM.INFORMATIMAGO.COMMON-LISP packages depends only on themselves,
+;; COM.INFORMATIMAGO.COMMON-LISP packages depends only on themselves,
 ;; from the current directory.

-(progn
+(progn
   (defvar *directories*  '())
   (defun get-directory (key &optional (subpath ""))
     (unless *directories*
@@ -131,17 +131,17 @@
                                  :name :wild :type :wild :version :wild)
                                 (make-pathname
                                  :case :common
-                                 :directory '(:absolute "USR" "LOCAL" "SHARE" "LISP" "PACKAGES"
+                                 :directory '(:absolute "USR" "LOCAL" "SHARE" "LISP" "PACKAGES"
                                               :wild-inferiors)
                                  :name :wild :type :wild :version :wild)))))
-
+
     :until (ignore-errors (load file))
     :finally (return translations)))

 ;; Import DEFINE-PACKAGE, and add translations:
 (IMPORT 'PACKAGE:DEFINE-PACKAGE)
 (SETF (LOGICAL-PATHNAME-TRANSLATIONS "PACKAGES")
-      (HANDLER-CASE (LOGICAL-PATHNAME-TRANSLATIONS "PACKAGES")
+      (HANDLER-CASE (LOGICAL-PATHNAME-TRANSLATIONS "PACKAGES")
         (ERROR NIL)))
 (apply (function PACKAGE:ADD-TRANSLATIONS) *translations*)

diff --git a/inspect.el b/inspect.el
index 2fac739..38d6193 100644
--- a/inspect.el
+++ b/inspect.el
@@ -81,7 +81,7 @@
 (defun inspect:function-argument-counts (function)
   "Return a cons continaing the minimum and maximum number of arguments
 the FUNCTION can take."
-  (let* ((args (split-lambda-list-on-keywords
+  (let* ((args (split-lambda-list-on-keywords
                 (maptree (lambda (item)
                            (if (memq item '(&optional &rest))
                                (intern (string-upcase item))
@@ -130,13 +130,13 @@ the FUNCTION can take."
      ;; text-properties-at
      length
      string-bytes)
-
+
     (integer
      identity)

     (float
      identity)
-
+
     (symbol
      symbol-name
      (boundp symbol-value)
@@ -155,12 +155,12 @@ the FUNCTION can take."
     (subr
      subr-name
      subr-arity)
-
+
     (marker
      marker-buffer
      marker-position
      marker-insertion-type)
-
+
     (char-table
      ;; char-table-extra-slot
      ;; char-table-range
@@ -172,8 +172,8 @@ the FUNCTION can take."
      overlay-start
      overlay-end
      overlay-properties)
-
-
+
+
     (buffer
      buffer-name
      buffer-file-name
@@ -185,7 +185,7 @@ the FUNCTION can take."
      buffer-modified-p
      buffer-modified-tick
      (:contents inspect:buffer-slots))
-
+

     (hash-table
      hash-table-test
@@ -218,9 +218,9 @@ the FUNCTION can take."
      process-status
      process-exit-status
      process-tty-name)
-
+
     (frame
-
+
       frame-name
       frame-title

@@ -287,10 +287,10 @@ the FUNCTION can take."
       window-list
       window-tree
       buffer-list)
-
+
     (window-configuration
      window-configuration-frame)
-
+
     (window
      window-atom-root window-body-size window-body-height
      window-body-width window-buffer window-buffer-height
@@ -336,7 +336,7 @@ Each attribute is either:


 (defun inspect:max-slot-name-width (slots)
-  (loop
+  (loop
      for slot in slots
      maximize (cond
                 ((symbolp slot) (length (symbol-name slot)))
diff --git a/insulte.el b/insulte.el
index cbb37f5..2db93b4 100644
--- a/insulte.el
+++ b/insulte.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Captain Haddock's insults generator.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -16,19 +16,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    AGPL3
-;;;;
+;;;;
 ;;;;    Copyright Pascal J. Bourguignon 2015 - 2016
-;;;;
+;;;;
 ;;;;    This program is free software: you can redistribute it and/or modify
 ;;;;    it under the terms of the GNU Affero General Public License as published by
 ;;;;    the Free Software Foundation, either version 3 of the License, or
 ;;;;    (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be useful,
 ;;;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;;;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;;;    GNU Affero General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU Affero General Public License
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
@@ -284,7 +284,7 @@
                         (setf ad (concat (subseq ad 0 (- (length ad) 2)) "ille")))
                        ((string= "eur"   (subseq ad   (- (length ad) 3)))
                         (setf ad (concat (subseq ad 0 (- (length ad) 1)) "se")))
-                       (t
+                       (t
                         (setf ad (concat ad "e")))))
                    (first (elt *insulte-nm* n)))))
          (ga  (if (member 'p (second a))
diff --git a/make-depends b/make-depends
index f0956dd..2fe5ae7 100644
--- a/make-depends
+++ b/make-depends
@@ -62,7 +62,7 @@ for arg ; do
     -t)
         trace=1
         ;;
-    -c)
+    -c)
         closure=1
         ;;
     -*)
@@ -87,7 +87,7 @@ if [ $closure -ne 0 ] ; then
      (load \"pjb-list.el\")
      (load \"pjb-make-depends.el\")
      (mapc (lambda (item) (princ item) (princ \" \"))
-           (nreverse (list-to-set (nreverse
+           (nreverse (list-to-set (nreverse
              (get-closed-dependencies $OFILES '( $IDIRES )))))) ) "
 else
     emacs -q -nw --batch -l .emacs --eval "
@@ -97,7 +97,7 @@ else
       (add-to-list 'load-path \"$DIR\")
       (load \"pjb-cl.el\")
       (load \"pjb-make-depends.el\")
-      (make-depends '( $OFILES ) '( $IDIRES )) )"
+      (make-depends '( $OFILES ) '( $IDIRES )) )"
 fi | grep -v Loading


diff --git a/pjb-advices.el b/pjb-advices.el
index 409169a..c1d6b99 100644
--- a/pjb-advices.el
+++ b/pjb-advices.el
@@ -9,7 +9,7 @@
 ;;;;    This module patches various emacs functions.
 ;;;;
 ;;;;AUTHORS
-;;;;    <PJB> Pascal J. Bourguignon
+;;;;    <PJB> Pascal J. Bourguignon
 ;;;;MODIFICATIONS
 ;;;;    2012-11-27 <PJB> Updated mail-setup advice for emacs-24.
 ;;;;    2002-08-13 <PJB> Creation.
@@ -54,7 +54,7 @@
 ;;   (let ((i 0))
 ;;     (while (get-buffer (format "%d<shell>" i))
 ;;       (setq i (1+ i)))
-;;     (if (= 0 i)
+;;     (if (= 0 i)
 ;;       (progn ;; no shell, let's make the first one
 ;;         ad-do-it
 ;;         (rename-buffer "0<shell>"))
@@ -62,8 +62,8 @@
 ;;         (switch-to-buffer (format "%d<shell>" (- i 1))))
 ;;       )));;shell
 ;; (ad-activate 'shell)
-;;
-;;
+;;
+;;
 ;; (defun nshell ()
 ;;   "Create a new shell."
 ;;   (interactive)
@@ -74,13 +74,13 @@
 ;;     (rename-buffer (format "%d<shell>" i)))
 ;;   );;nshell

-
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; mouse

 (require 'mouse)

-(defadvice mouse-drag-vertical-line
+(defadvice mouse-drag-vertical-line
   (around pjb-catch-errors (start-EVENT))
   "This advice prevents errors reporting from mouse-drag-vertical-line.
 It's not nice to report errors (or drop in the debugger), while mouse-dragging.
@@ -97,17 +97,17 @@ It's not nice to report errors (or drop in the debugger), while mouse-dragging.
 (require 'sendmail)
 (require 'mail-utils)

-(defvar bcc-user-mail-address user-mail-address
+(defvar bcc-user-mail-address user-mail-address
   "The address used for BCC: when creating a new mail with mail-self-blind set.")

-(defadvice mail-setup
+(defadvice mail-setup
   (after pjb-mail-setup-bcc (&rest args))
   "This advice replace the BCC: user-mail-address by BCC:bcc-user-mail-address."
   ;; not interactive
   (when mail-self-blind
     (save-excursion
       (goto-char (point-min))
-      (if (search-forward (format "BCC: %s" user-mail-address)
+      (if (search-forward (format "BCC: %s" user-mail-address)
                           (mail-text-start) t)
           (replace-match (format "BCC: %s" bcc-user-mail-address) t t)))))
 (ad-activate 'mail-setup)
@@ -119,14 +119,14 @@ It's not nice to report errors (or drop in the debugger), while mouse-dragging.
 (require 'rmailsort)
 (load "rmailsum"  nil t)  ;; no provide in rmailsum.

-(defadvice rmail-sort-by-correspondent
+(defadvice rmail-sort-by-correspondent
   (around pjb-rmail-sort-by-correspondant (reverse))
   "Sort messages of current Rmail file by other correspondent.
 If prefix argument REVERSE is non-nil, sort them in reverse order.
 The correspondant domain name is heavier than the correspondant name.
 Email addresses are not case sensitive."
   (interactive "P")
-  (rmail-sort-messages
+  (rmail-sort-messages
    reverse
    (function
     (lambda (msg)
@@ -137,9 +137,9 @@ Email addresses are not case sensitive."
              (atpos (string-index address ?@)))
         (downcase
          (if atpos
-             (concat
-              (unsplit-string
-               (reverse (split-string
+             (concat
+              (unsplit-string
+               (reverse (split-string
                          (substring address (+ 1 atpos)) "[.]")) ".")
               "@"
               (substring address 0 atpos))
@@ -163,7 +163,7 @@ Email addresses are not case sensitive."
     (substring string i l)))


-(defadvice x-parse-geometry
+(defadvice x-parse-geometry
   (before pjb-parse-geometry-chop-spaces (string))
   "This advice remove unwanted spaces from the argument."
   ;; not interactive
@@ -171,15 +171,15 @@ Email addresses are not case sensitive."
 (ad-activate 'x-parse-geometry)


-(defadvice set-face-attribute
+(defadvice set-face-attribute
   (before pjb-set-face-attribute (face frame &rest args))
-  (ad-set-args
+  (ad-set-args
    2 (let ((result nil) (couples args) key value)
        (while couples
          (setq key     (car couples)
                value   (cadr couples)
                couples (cddr couples))
-         (when (if (eq key :height)
+         (when (if (eq key :height)
                    (if (numberp value) (/= value 0) value)
                  value)
            (setq result (cons  key (cons value result)))))
@@ -206,9 +206,9 @@ Email addresses are not case sensitive."
 (require 'cus-edit)


-(defadvice custom-save-variables
+(defadvice custom-save-variables
   (around pjb-custom-save-variables-sorted ())
-  ;; we won't call ad-do-it because we mustn't let the original write any
+  ;; we won't call ad-do-it because we mustn't let the original write any
   ;; unsorted output.
   "Save all customized variables in `custom-file', sorted."
   ;; not interactive
@@ -219,8 +219,8 @@ Email addresses are not case sensitive."
         (princ "\n"))
       (princ "(custom-set-variables")
       (let ((customized-atoms nil))
-        (mapatoms (lambda (symbol)
-                    (when (get symbol 'saved-value)
+        (mapatoms (lambda (symbol)
+                    (when (get symbol 'saved-value)
                       (setq customized-atoms (cons symbol customized-atoms)))))
         (mapc
          (lambda (symbol)
@@ -256,7 +256,7 @@ Email addresses are not case sensitive."
 ;;;----------------------------------------------------------------------------
 ;;; w3

-;; (defadvice w3-parse-buffer
+;; (defadvice w3-parse-buffer
 ;;   (before pjb-w3-parse-buffer-invalid-chars (buffer))
 ;;   (save-excursion
 ;;     (set-buffer buffer)
@@ -292,7 +292,7 @@ Email addresses are not case sensitive."



-(defadvice gnus-summary-reply
+(defadvice gnus-summary-reply
   (around pjb-gnus-summary-reply-is-followup! (&optional YANK WIDE))
   "This advice replace reply by followup!"
   ;; no ad-do-it!
@@ -331,15 +331,15 @@ Email addresses are not case sensitive."
    (setq pjb-mail-default-reply-to     mail-default-reply-to)
    (setq pjb-user-mail-address         user-mail-address))
   (when address
-    (setq mail-default-reply-to   (if comment
+    (setq mail-default-reply-to   (if comment
                                     (format "%s <%s>" comment address)
                                     (format "<%s>"  address)))
     (setq user-mail-address       address)))


-(defadvice message-make-sender
+(defadvice message-make-sender
   (around pjb-message-make-sender ())
-  "This advice doesn't return the \"real\" user address.
+  "This advice doesn't return the \"real\" user address.
 Instead, it returns the user address the user wants to return.
 There's too much spam sent to addresses flowing on the newsgroups..."
   (if pjb-user-mail-address
@@ -372,7 +372,7 @@ There's too much spam sent to addresses flowing on the newsgroups..."
 (require 'register)

 (defvar *jump-to-register-offset* (lambda () 10)
-  "A function that returns the number of lines that should show above the
+  "A function that returns the number of lines that should show above the
 register point. (You could implement here a proportional rule like 30%.")


diff --git a/pjb-asm7090.el b/pjb-asm7090.el
index 2fc3fcd..4ab74b5 100644
--- a/pjb-asm7090.el
+++ b/pjb-asm7090.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    asm7090 stuff.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -15,19 +15,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    GPL
-;;;;
+;;;;
 ;;;;    Copyright Pascal Bourguignon 2005 - 2011
-;;;;
+;;;;
 ;;;;    This program is free software; you can redistribute it and/or
 ;;;;    modify it under the terms of the GNU General Public License
 ;;;;    as published by the Free Software Foundation; either version
 ;;;;    2 of the License, or (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be
 ;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
 ;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;;;    PURPOSE.  See the GNU General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU General Public
 ;;;;    License along with this program; if not, write to the Free
 ;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
@@ -73,26 +73,26 @@
       ;; (message "search-asm7090-fields %d %S\n%S" (point) limit line)
       ;; (message "search-asm7090-fields start=%d  end=%d\n" start end)
       (setf limit (1+ end))
-      (beginning-of-line)
+      (beginning-of-line)
       (cond
         ((= 0 (length line))
          ;; (message "  exit 0")
-         (re-search-forward
+         (re-search-forward
           "^\\(\\)\\(\\)\\(\\)\\(\\)\\(\\)\\(\\)\n" limit t))
         ((= (aref line 0) +asm7090-ibsys-char+)
          ;; (message "  exit 1")
-         (re-search-forward
+         (re-search-forward
           "^\\(\\)\\(\\)\\(\\)\\(\\)\\(.\\{1,72\\}\\)\\(.\\{0,8\\}\\)\n" limit t))
         ((= (aref line 0) +asm7090-comment-char+)
          ;; (message "  exit 2")
-         (re-search-forward
+         (re-search-forward
           "^\\(\\)\\(\\)\\(\\)\\(.\\{1,72\\}\\)\\(\\)\\(.\\{0,8\\}\\)\n" limit t))
         ((re-search-forward             ; only spaces
           "^ +\\(\\)\\(\\)\\(\\)\\(\\)\\(\\)\\(\\)\n" limit t))
         ;; (message "  exit 3") t
         ((< (length line) 7)
          ;; (message "  exit 4")
-         (re-search-forward
+         (re-search-forward
           "^\\(.\\{0,6\\}\\)\\(\\)\\(\\)\\(\\)\\(\\)\\(\\)\n" limit t))
         (t (let ((labs 0) (labe 6)
                  cods code
@@ -196,13 +196,13 @@
            (match-string-no-properties 5)
            (length (match-string-no-properties 6))
            (match-string-no-properties 6)))
-
+

 (defun asm7090-font-lock ()
   (interactive)
   (setq font-lock-defaults nil
         font-lock-keywords nil)
-  (font-lock-add-keywords
+  (font-lock-add-keywords
    nil
    (list
     (list
@@ -482,7 +482,7 @@
     (EFTM -0760 T 00002 "Enter Floating Trap Mode")
     (LFTM -0760 T 00004 "Leave Floating Trap Mode")
     ;; page 67.  Add Instructions for the IBM 7909 Data Channel
-
+
     ))


@@ -510,9 +510,10 @@
   (setf tab-stop-list     '(0 7 15 34 72)
         asm-comment-char   ?*)
   (local-set-key [tab] (function tab-to-tab-stop))
-  (local-set-key "
" (lambda ()
-                        (interactive)
-                        (asm7090-describe-codop)
+  (local-set-key "
+" (lambda ()
+                        (interactive)
+                        (asm7090-describe-codop)
                         (newline-and-indent)))
   (font-lock-mode 1)
   (message "asm7090 activated"))
@@ -522,7 +523,7 @@

 (defun add-card-id (start end prefix from)
   (interactive "r
-sPrefix:
+sPrefix:
 nFrom:")
   (setf prefix (subseq prefix 0 (min (length prefix) 7)))
   (let ((nf (format "%%-%ds%s%%0%dd"
diff --git a/pjb-banks-old.el b/pjb-banks-old.el
index 0d113d2..2cf7c4b 100644
--- a/pjb-banks-old.el
+++ b/pjb-banks-old.el
@@ -9,7 +9,7 @@
 ;;;;    This module exports
 ;;;;
 ;;;;AUTHORS
-;;;;    <PJB> Pascal J. Bourguignon
+;;;;    <PJB> Pascal J. Bourguignon
 ;;;;MODIFICATIONS
 ;;;;    199?/??/?? <PJB> Creation.
 ;;;;BUGS
@@ -40,7 +40,7 @@

 (defun clean-number-string (number-string)
   "
-RETURN: A cleaned string where the comas are replaced by dots,
+RETURN: A cleaned string where the comas are replaced by dots,
         and spaces and dashes are removed.
 "
   (dolist (p-r '( ("[ -][ -]*"               .  "")
@@ -74,13 +74,13 @@ RETURN: A cleaned string where the comas are replaced by dots,

 (defun pjb-bank-format-line (year month day credit debit description)
   (format "%04d-%02d-%02d %10s %10s %s\n\n"
-          year month day credit debit
+          year month day credit debit
           (if (< (length description) 48)
               description
             (substring (string-justify-left description 79 33) 33)))
   );;pjb-bank-format-line

-
+
 ;; ---------------------------------------------------------------------


@@ -89,8 +89,8 @@ RETURN: A cleaned string where the comas are replaced by dots,
   "Convert the lines following the point as from Caja Rural"
   (interactive)
   (let (credits debits)
-    (while (re-search-forward
-            (concat
+    (while (re-search-forward
+            (concat
              "\\([0-9][0-9]\\)-\\([0-9][0-9]\\)-\\([0-9][0-9]\\)|"
              "\\([0-9][0-9]\\)-\\([0-9][0-9]\\)|"
              "\\([^|]*\\)|"
@@ -152,7 +152,7 @@ RETURN: A cleaned string where the comas are replaced by dots,
         (while data
           ;; (printf "%S\n" (car data))
           (when  (string-match
-                  (concat
+                  (concat
                    "^"
                    "\\([0-9][0-9]\\)-\\([0-9][0-9]\\)-\\([0-9][0-9]\\)  "
                    "[-0-9]*  "
@@ -162,11 +162,11 @@ RETURN: A cleaned string where the comas are replaced by dots,
                    "$"
                    ) (car data))

-            (let* ((d   (string-to-number
+            (let* ((d   (string-to-number
                          (match-string-no-properties 1 (car data))))
-                   (m   (string-to-number
+                   (m   (string-to-number
                          (match-string-no-properties 2 (car data))))
-                   (y   (string-to-number
+                   (y   (string-to-number
                          (match-string-no-properties 3 (car data))))
                    (mv m);; should get them from input data...
                    (dv d);; should get them from input data...
@@ -208,8 +208,8 @@ RETURN: A cleaned string where the comas are replaced by dots,
   "Convert the lines following the point as from Caja Rural"
   (interactive)
   (let (credits debits)
-    (while  (re-search-forward
-             (concat
+    (while  (re-search-forward
+             (concat
               "  \\([0-9][0-9]\\)-\\([0-9][0-9]\\)-\\([0-9][0-9]\\) *\n"
               "       *[-0-9]* *\n"
               "\\(\\(        .*\n\\)+\\)"
@@ -248,7 +248,7 @@ RETURN: A cleaned string where the comas are replaced by dots,
 ;;;          (setq oridev (substring ori -3))
 ;;;          (setq ori    (substring ori 0 -4))
 ;;;          (if (string-equal "PTA" oridev)
-;;;              (setq ori (concat (string-replace
+;;;              (setq ori (concat (string-replace
 ;;;                                 (clean-number-string ori)
 ;;;                                 "\\.00$" "" t t) " ESP"))
 ;;;            (setq ori (concat (clean-number-string ori) " EUR"))))
@@ -269,13 +269,13 @@ RETURN: A cleaned string where the comas are replaced by dots,
   "Convert the lines following the point as from Evolve Bank (text)."
   (interactive)
   (let (credits debits)
-    (while (re-search-forward
-            (concat
-             "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)	"
-             "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)	"
-             "\\([^	]*\\)	"
-             "\\([-0-9]?[0-9,.]*\\)	"
-             "\\([-0-9]?[0-9,.]*\\)	"
+    (while (re-search-forward
+            (concat
+             "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)    "
+             "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)    "
+             "\\([^     ]*\\)   "
+             "\\([-0-9]?[0-9,.]*\\)     "
+             "\\([-0-9]?[0-9,.]*\\)     "
              "\\([-0-9]?[0-9,.]*\\)\n"
              ) nil t)
       (let ((d   (match-string-no-properties 1))
@@ -322,8 +322,8 @@ RETURN: A cleaned string where the comas are replaced by dots,
   (interactive)
   (let (credits debits)

-  (while
-      (re-search-forward
+  (while
+      (re-search-forward
        (concat
         "||"
         "\\([0-9][0-9]\\)-\\([0-9][0-9]\\)-\\([0-9][0-9][0-9][0-9]\\)|"
@@ -344,9 +344,9 @@ RETURN: A cleaned string where the comas are replaced by dots,
             (cre) (deb))

 ; (insert  (format "D: %s %s %s  V: %s %s  [%s]  I: %s  S:%s\n" d m y dv mv lab imp sol )))))
-
+
         (if (= ?- (string-to-char imp))
-            (progn
+            (progn
               (setq deb (clean-number-string imp))
               (setq cre ""))
             (progn
@@ -378,8 +378,8 @@ RETURN: A cleaned string where the comas are replaced by dots,
   "Convert the lines following the point as from Evolve Bank"
   (interactive)
   (let (credits debits)
-    (while (re-search-forward
-            (concat
+    (while (re-search-forward
+            (concat
              "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)|"
              "[/0-9]*|"
              "[^|]*|"
@@ -404,10 +404,10 @@ RETURN: A cleaned string where the comas are replaced by dots,
         (setq lab (replace-regexp-in-string "^ " "" (replace-regexp-in-string "  *" " " (replace-regexp-in-string "\\.\\.\\.*" "." (replace-regexp-in-string "\n" " " lab t t) t t) t t) t t))
         (setq ori (concat (if (string-equal "" cre) deb cre) " ESP"))
         (if (not (string-equal "" cre))
-            (setq cre (format "%.2f"
+            (setq cre (format "%.2f"
                               (euro-from-value (string-to-number cre) 'ESP))))
         (if (not (string-equal "" deb))
-            (setq deb (format "%.2f"
+            (setq deb (format "%.2f"
                               (euro-from-value (string-to-number deb) 'ESP))))
         (if (> (length lab) 24)
             (progn
@@ -430,13 +430,13 @@ RETURN: A cleaned string where the comas are replaced by dots,
   "Convert the lines following the point as from Evolve Bank (text)."
   (interactive)
   (let (credits debits)
-    (while (re-search-forward
-            (concat
-             "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)	"
-             "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)	"
-             "\\([^	]*\\)	"
-             "\\([-0-9]?[0-9,.]*\\)	"
-             "\\([-0-9]?[0-9,.]*\\)	"
+    (while (re-search-forward
+            (concat
+             "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)    "
+             "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)    "
+             "\\([^     ]*\\)   "
+             "\\([-0-9]?[0-9,.]*\\)     "
+             "\\([-0-9]?[0-9,.]*\\)     "
              "\\([-0-9]?[0-9,.]*\\)\n"
              ) nil t)
       (let ((d   (match-string-no-properties 1))
@@ -454,10 +454,10 @@ RETURN: A cleaned string where the comas are replaced by dots,
         (setq lab (replace-regexp-in-string "^ " "" (replace-regexp-in-string "  *" " " (replace-regexp-in-string "\\.\\.\\.*" "." (replace-regexp-in-string "\n" " " lab t t) t t) t t) t t))
         (setq ori (concat (if (string-equal "" cre) deb cre) " ESP"))
         (if (not (string-equal "" cre))
-            (setq cre (format "%.2f"
+            (setq cre (format "%.2f"
                               (euro-from-value (string-to-number cre) 'ESP))))
         (if (not (string-equal "" deb))
-            (setq deb (format "%.2f"
+            (setq deb (format "%.2f"
                               (euro-from-value (string-to-number deb) 'ESP))))
         (if (> (length lab) 24)
             (progn
@@ -481,8 +481,8 @@ RETURN: A cleaned string where the comas are replaced by dots,
   "Convert the lines following the point as from OpenBank"
   (interactive)

-  (while
-      (re-search-forward
+  (while
+      (re-search-forward
        (concat
         " *\\([0-9][0-9]\\)-\\([0-9][0-9]\\)-\\([0-9][0-9][0-9][0-9]\\) *\n"
         " *\\([0-9][0-9]\\)-\\([0-9][0-9]\\) *\n"
@@ -502,9 +502,9 @@ RETURN: A cleaned string where the comas are replaced by dots,
             (cre) (deb))

 ; (insert  (format "D: %s %s %s  V: %s %s  [%s]  I: %s  S:%s\n" d m y dv mv lab imp sol )))))
-
+
         (if (= ?- (string-to-char imp))
-            (progn
+            (progn
               (setq deb (clean-number-string imp))
               (setq cre ""))
             (progn
@@ -522,9 +522,9 @@ RETURN: A cleaned string where the comas are replaced by dots,
 (defun from-paritate ()
   "Convert the lines following the point as from Paritate Bank"
   (interactive)
-
-  (while
-      (re-search-forward
+
+  (while
+      (re-search-forward
 "^\\([0-9][0-9]\\)/\\([0-9][0-9]\\)/\\([0-9][0-9]\\)   \\(................................\\)\\* *\\([0-9][0-9.,]*[CD]\\) *\n\\(\\( [A-Z].*\n\\)*\\) *\\([0-9][0-9]*\\) *\\(#[0-9][0-9]* [0-9][0-9]* [0-9][0-9]*\\) *\\([0-9]*\\) *\\* *\\([0-9][0-9.,]*\\) *\n" nil t)
       (let ((m   (match-string-no-properties 1))
             (d   (match-string-no-properties 2))
diff --git a/pjb-banks.el b/pjb-banks.el
index db878ba..1a17320 100644
--- a/pjb-banks.el
+++ b/pjb-banks.el
@@ -10,9 +10,9 @@
 ;;;;    fetched from the web.
 ;;;;
 ;;;;AUTHORS
-;;;;    <PJB> Pascal J. Bourguignon
+;;;;    <PJB> Pascal J. Bourguignon
 ;;;;MODIFICATIONS
-;;;;    2004-10-18 <PJB> Updated. Added generation of journal-entries
+;;;;    2004-10-18 <PJB> Updated. Added generation of journal-entries
 ;;;;                     in from-cajamar-mozilla.
 ;;;;    199?/??/?? <PJB> Creation.
 ;;;;BUGS
@@ -43,7 +43,7 @@

 (defun clean-number-string (number-string)
   "
-RETURN: A cleaned string where the comas are replaced by dots,
+RETURN: A cleaned string where the comas are replaced by dots,
         and spaces and dashes are removed.
 "
   (if number-string
@@ -81,13 +81,13 @@ RETURN: A cleaned string where the comas are replaced by dots,

 (defun pjb-bank-format-line (year month day credit debit description)
   (format "%04d-%02d-%02d %10s %10s %s\n\n"
-    year month day credit debit
+    year month day credit debit
     (if (< (length description) 48)
       description
       (substring (string-justify-left description 79 33) 33)))
   );;pjb-bank-format-line

-
+
 ;; ---------------------------------------------------------------------

 (defun from-cajamar-mozilla ()
@@ -98,19 +98,19 @@ Use Mozilla, and copy-and-paste to emacs."
   (unless (re-search-forward (concat "Fecha\\(.\\|\n\\)*Moneda\n"
                                      "\\(\\(.\\|\n\\)*\\)\n"
                                      ".*NO HAY MAS MOVIMIENTOS") nil t)
-    (message
+    (message
      "Nothing found! (Needs from 'Fecha' to 'NO HAY MAS MOVIMIENTOS').")
     (return))
   (let* ((source (match-string 2))
-         (lines (split-string (replace-regexp-in-string  "\n" " " source t t)
+         (lines (split-string (replace-regexp-in-string  "\n" " " source t t)
                               " *eur\\. *"))
-         credits debits solde
+         credits debits solde
          (journal '()))
     (printf "\n\n") ;;; ###
     (dolist (line lines)
-      (when
+      (when
           (string-match
-           (concat
+           (concat
             "^"
             "\\([0-9][0-9]\\)-\\([0-9][0-9]\\)-\\([0-9][0-9]\\) *\t"
             "[0-9][0-9]-[0-9][0-9] *\t"
@@ -152,14 +152,14 @@ Use Mozilla, and copy-and-paste to emacs."
                     ((string-match "HACIENDA\\|SEGURIDAD" lab) "0/100")
                     ((zerop (length deb)) "0/100")
                     (t "16/100"))
-                  "\"FISCALID\""
-                  ,(if (or (string-match "FRA.N.: \\(.*\\)" lab)
+                  "\"FISCALID\""
+                  ,(if (or (string-match "FRA.N.: \\(.*\\)" lab)
                           (string-match "RECIBO REF:\\([^ ]*\\)" lab)
                           (string-match "JUSTIFICANTE: \\([^ ]*\\)" lab))
                     (format "\"%s\"" (match-string-no-properties 1 lab))
                     "\"FACTURA\"")
                   ,(format "\"%s\""
-                     (if (< (length lab) 48) lab
+                     (if (< (length lab) 48) lab
                          (replace-regexp-in-string
                           "\n" "\n                "
                           (string-trim " " (string-justify-left lab 48)))))
@@ -189,18 +189,18 @@ Use Mozilla, and copy-and-paste to emacs."
   (unless (re-search-forward (concat "Fecha\\(.\\|\n\\)*Moneda\n"
                                      "\\(\\(.\\|\n\\)*\\)\n"
                                      ".*NO HAY MAS MOVIMIENTOS") nil t)
-    (message
+    (message
      "Nothing found! (Needs from 'Fecha' to 'NO HAY MAS MOVIMIENTOS').")
     (return))
   (let* ((source (match-string 2))
-         (lines (split-string (replace-regexp-in-string  "\n" " " source t t)
+         (lines (split-string (replace-regexp-in-string  "\n" " " source t t)
                               " *eur\\. *"))
          credits debits solde)
     (printf "\n\n") ;;; ###
     (dolist (line lines)
-      (when
+      (when
           (string-match
-           (concat
+           (concat
             "^"
             "\\([0-9][0-9]\\)-\\([0-9][0-9]\\)-\\([0-9][0-9]\\) "
             "[0-9][0-9]-[0-9][0-9] "
@@ -247,8 +247,8 @@ See: from-cajamar-mozilla"
   (let ((credits '())
         (debits  '())
         (movements '()))
-    (while (re-search-forward
-            (concat
+    (while (re-search-forward
+            (concat
              "\\([0-9][0-9]\\)-\\([0-9][0-9]\\)-\\([0-9][0-9]\\)|"
              "\\([0-9][0-9]\\)-\\([0-9][0-9]\\)|"
              "\\([^|]*\\)|"
@@ -285,7 +285,7 @@ See: from-cajamar-mozilla"
           (if (string-equal "PTA" oridev)
             (setq ori (concat (replace-regexp-in-string "\\.00$" "" (clean-number-string ori) t t) " ESP"))
             (setq ori (concat (clean-number-string ori) " EUR"))))
-        (setq movements (nconc movements
+        (setq movements (nconc movements
                                (nconc (list
                                        :operation-date (list 0 0 0 d m y)
                                        :value-date     (list 0 0 0 dv mv yv)
@@ -320,7 +320,7 @@ See: from-cajamar-mozilla"
       (while data
         ;; (printf "%S\n" (car data))
         (when  (string-match
-                (concat
+                (concat
                  "^"
                  "\\([0-9][0-9]\\)-\\([0-9][0-9]\\)-\\([0-9][0-9]\\)  "
                  "[-0-9]*  "
@@ -329,11 +329,11 @@ See: from-cajamar-mozilla"
                  "\\([-0-9][0-9,.]*\\)"
                  "$"
                  ) (car data))
-          (let* ((d   (string-to-number
+          (let* ((d   (string-to-number
                        (match-string-no-properties 1 (car data))))
-                 (m   (string-to-number
+                 (m   (string-to-number
                        (match-string-no-properties 2 (car data))))
-                 (y   (string-to-number
+                 (y   (string-to-number
                        (match-string-no-properties 3 (car data))))
                  (mv m) ;; should get them from input data...
                  (dv d) ;; should get them from input data...
@@ -370,8 +370,8 @@ See: from-cajamar-mozilla"
   "Convert the lines following the point as from Caja Rural"
   (interactive)
   (let (credits debits)
-    (while  (re-search-forward
-             (concat
+    (while  (re-search-forward
+             (concat
               "  *\\([0-9][0-9]\\)-\\([0-9][0-9]\\)-\\([0-9][0-9]*\\) *\n"
               "       *\\([0-9][0-9]\\)-\\([0-9][0-9]\\) *\n"
               "\\(\\(        .*\n\\)+\\)"
@@ -417,8 +417,8 @@ See: from-cajamar-mozilla"
   "Convert the lines following the point as from Patagon"
   (interactive)
   (let (credits debits)
-    (while
-        (re-search-forward
+    (while
+        (re-search-forward
          (concat
           "||"
           "\\([0-9][0-9]\\)-\\([0-9][0-9]\\)-\\([0-9][0-9][0-9][0-9]\\)|"
@@ -439,7 +439,7 @@ See: from-cajamar-mozilla"
             (cre) (deb))
                                         ; (insert  (format "D: %s %s %s  V: %s %s  [%s]  I: %s  S:%s\n" d m y dv mv lab imp sol )))))
         (if (= ?- (string-to-char imp))
-          (progn
+          (progn
             (setq deb (clean-number-string imp))
             (setq cre ""))
           (progn
@@ -464,13 +464,13 @@ See: from-cajamar-mozilla"

 ;;; ;; ---------------------------------------------------------------------
 ;;; ;; old functions not used anymore.
-;;;
+;;;
 ;;; (defun from-evolvebank-table ()
 ;;;   "Convert the lines following the point as from Evolve Bank"
 ;;;   (interactive)
 ;;;   (let (credits debits)
-;;;     (while (re-search-forward
-;;;             (concat
+;;;     (while (re-search-forward
+;;;             (concat
 ;;;              "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)|"
 ;;;              "[/0-9]*|"
 ;;;              "[^|]*|"
@@ -495,40 +495,40 @@ See: from-cajamar-mozilla"
 ;;;         (setq lab (replace-regexp-in-string "^ " "" (replace-regexp-in-string "  *" " " (replace-regexp-in-string "\\.\\.\\.*" "." (replace-regexp-in-string "\n" " " lab t t) t t) t t) t t))
 ;;;         (setq ori (concat (if (string-equal "" cre) deb cre) " ESP"))
 ;;;         (if (not (string-equal "" cre))
-;;;             (setq cre (format "%.2f"
+;;;             (setq cre (format "%.2f"
 ;;;                               (euro-from-value (string-to-number cre) 'ESP))))
 ;;;         (if (not (string-equal "" deb))
-;;;             (setq deb (format "%.2f"
+;;;             (setq deb (format "%.2f"
 ;;;                               (euro-from-value (string-to-number deb) 'ESP))))
 ;;;         (if (> (length lab) 24)
 ;;;             (progn
 ;;;               (setq lab (substring (string-justify-left lab 66 41) 41))
 ;;;               (setq lin (format "20%2s-%2s-%2s %10s %10s         %-s%14s\n\n"
 ;;;                             y m d cre deb lab ori)))
-;;;
+;;;
 ;;;             (setq lin (format "20%2s-%2s-%2s %10s %10s         %-25s%14s\n\n"
 ;;;                               y m d cre deb lab ori)))
 ;;;         (setq credits (append credits (list cre)))
 ;;;         (setq debits  (append debits  (list deb)))
 ;;;         (store-match-data mat)
 ;;;         (replace-match lin nil nil)))
-;;;
+;;;
 ;;;     (insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
 ;;;     (insert (format "; débits  : %s\n" (pjb-string-amount-list debits)))
 ;;;     ));;from-evolvebank-table
-;;;
-;;;
+;;;
+;;;
 ;;; (defun from-evolvebank-xls-esp ()
 ;;;   "Convert the lines following the point as from Evolve Bank (text)."
 ;;;   (interactive)
 ;;;   (let (credits debits)
-;;;     (while (re-search-forward
-;;;             (concat
-;;;              "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)	"
-;;;              "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)	"
-;;;              "\\([^	]*\\)	"
-;;;              "\\([-0-9]?[0-9,.]*\\)	"
-;;;              "\\([-0-9]?[0-9,.]*\\)	"
+;;;     (while (re-search-forward
+;;;             (concat
+;;;              "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)        "
+;;;              "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)        "
+;;;              "\\([^ ]*\\)   "
+;;;              "\\([-0-9]?[0-9,.]*\\) "
+;;;              "\\([-0-9]?[0-9,.]*\\) "
 ;;;              "\\([-0-9]?[0-9,.]*\\)\n"
 ;;;              ) nil t)
 ;;;       (let ((d   (match-string-no-properties 1))
@@ -546,35 +546,35 @@ See: from-cajamar-mozilla"
 ;;;         (setq lab (replace-regexp-in-string "^ " "" (replace-regexp-in-string "  *" " " (replace-regexp-in-string "\\.\\.\\.*" "." (replace-regexp-in-string "\n" " " lab t t) t t) t t) t t))
 ;;;         (setq ori (concat (if (string-equal "" cre) deb cre) " ESP"))
 ;;;         (if (not (string-equal "" cre))
-;;;             (setq cre (format "%.2f"
+;;;             (setq cre (format "%.2f"
 ;;;                               (euro-from-value (string-to-number cre) 'ESP))))
 ;;;         (if (not (string-equal "" deb))
-;;;             (setq deb (format "%.2f"
+;;;             (setq deb (format "%.2f"
 ;;;                               (euro-from-value (string-to-number deb) 'ESP))))
 ;;;         (if (> (length lab) 24)
 ;;;             (progn
 ;;;               (setq lab (substring (string-justify-left lab 66 41) 41))
 ;;;               (setq lin (format "20%2s-%2s-%2s %10s %10s         %-s%14s\n\n"
 ;;;                             y m d cre deb lab ori)))
-;;;
+;;;
 ;;;             (setq lin (format "20%2s-%2s-%2s %10s %10s         %-25s%14s\n\n"
 ;;;                               y m d cre deb lab ori)))
 ;;;         (setq credits (append credits (list cre)))
 ;;;         (setq debits  (append debits  (list deb)))
 ;;;         (store-match-data mat)
 ;;;         (replace-match lin nil nil)))
-;;;
+;;;
 ;;;     (insert (format "; crédits : %s\n" (pjb-string-amount-list credits)))
 ;;;     (insert (format "; débits  : %s\n" (pjb-string-amount-list debits)))
 ;;;     ));;from-evolvebank-xls-esp
-;;;
-;;;
+;;;
+;;;
 ;;; (defun from-openbank ()
 ;;;   "Convert the lines following the point as from OpenBank"
 ;;;   (interactive)
-;;;
-;;;   (while
-;;;       (re-search-forward
+;;;
+;;;   (while
+;;;       (re-search-forward
 ;;;        (concat
 ;;;         " *\\([0-9][0-9]\\)-\\([0-9][0-9]\\)-\\([0-9][0-9][0-9][0-9]\\) *\n"
 ;;;         " *\\([0-9][0-9]\\)-\\([0-9][0-9]\\) *\n"
@@ -592,31 +592,31 @@ See: from-cajamar-mozilla"
 ;;;             (mat (match-data))
 ;;;             (lin)
 ;;;             (cre) (deb))
-;;;
+;;;
 ;;; ; (insert  (format "D: %s %s %s  V: %s %s  [%s]  I: %s  S:%s\n" d m y dv mv lab imp sol )))))
-;;;
+;;;
 ;;;         (if (= ?- (string-to-char imp))
-;;;             (progn
+;;;             (progn
 ;;;               (setq deb (clean-number-string imp))
 ;;;               (setq cre ""))
 ;;;             (progn
 ;;;               (setq deb "")
 ;;;               (setq cre (clean-number-string imp))))
-;;;
+;;;
 ;;;         (setq lab (replace-regexp-in-string "  *" " " (replace-regexp-in-string "\n" " " lab t t) t t))
 ;;;         (setq lab (substring (string-justify-left lab 66 41) 41))
 ;;;         (setq lin (format "%4s-%2s-%2s %10s %10s         %s\n"
 ;;;                         y m d cre deb lab))
 ;;;         (store-match-data mat)
 ;;;         (replace-match lin nil nil))));;from-openbank
-;;;
-;;;
+;;;
+;;;
 ;;; (defun from-paritate ()
 ;;;   "Convert the lines following the point as from Paritate Bank"
 ;;;   (interactive)
-;;;
-;;;   (while
-;;;       (re-search-forward
+;;;
+;;;   (while
+;;;       (re-search-forward
 ;;; "^\\([0-9][0-9]\\)/\\([0-9][0-9]\\)/\\([0-9][0-9]\\)   \\(................................\\)\\* *\\([0-9][0-9.,]*[CD]\\) *\n\\(\\( [A-Z].*\n\\)*\\) *\\([0-9][0-9]*\\) *\\(#[0-9][0-9]* [0-9][0-9]* [0-9][0-9]*\\) *\\([0-9]*\\) *\\* *\\([0-9][0-9.,]*\\) *\n" nil t)
 ;;;       (let ((m   (match-string-no-properties 1))
 ;;;             (d   (match-string-no-properties 2))
@@ -632,7 +632,7 @@ See: from-cajamar-mozilla"
 ;;;             (cre "")
 ;;;             (deb "")
 ;;;             (lin))
-;;;
+;;;
 ;;;         (if (= 67 (car (last (string-to-list inc))))
 ;;;             (setq cre (substring inc 0 (- (length inc) 1)))
 ;;;             (setq deb (substring inc 0 (- (length inc) 1))))
@@ -654,13 +654,13 @@ See: from-cajamar-mozilla"
 ;;;   "Convert the lines following the point as from Evolve Bank (text)."
 ;;;   (interactive)
 ;;;   (let (credits debits)
-;;;     (while (re-search-forward
-;;;             (concat
-;;;              "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)	"
-;;;              "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)	"
-;;;              "\\([^	]*\\)	"
-;;;              "\\([-0-9]?[0-9,.]*\\)	"
-;;;              "\\([-0-9]?[0-9,.]*\\)	"
+;;;     (while (re-search-forward
+;;;             (concat
+;;;              "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)        "
+;;;              "\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)        "
+;;;              "\\([^ ]*\\)   "
+;;;              "\\([-0-9]?[0-9,.]*\\) "
+;;;              "\\([-0-9]?[0-9,.]*\\) "
 ;;;              "\\([-0-9]?[0-9,.]*\\)\n"
 ;;;              ) nil t)
 ;;;       (let ((d   (match-string-no-properties 1))
diff --git a/pjb-blink.el b/pjb-blink.el
index 2c82056..674609c 100644
--- a/pjb-blink.el
+++ b/pjb-blink.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Alternate blinking parens.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -15,19 +15,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    GPL
-;;;;
+;;;;
 ;;;;    Copyright Pascal Bourguignon 2005 - 2011
-;;;;
+;;;;
 ;;;;    This program is free software; you can redistribute it and/or
 ;;;;    modify it under the terms of the GNU General Public License
 ;;;;    as published by the Free Software Foundation; either version
 ;;;;    2 of the License, or (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be
 ;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
 ;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;;;    PURPOSE.  See the GNU General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU General Public
 ;;;;    License along with this program; if not, write to the Free
 ;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
diff --git a/pjb-bourse.el b/pjb-bourse.el
index 0d40f44..4ff0062 100644
--- a/pjb-bourse.el
+++ b/pjb-bourse.el
@@ -9,7 +9,7 @@
 ;;;;    This module exports
 ;;;;
 ;;;;AUTHORS
-;;;;    <PJB> Pascal J. Bourguignon
+;;;;    <PJB> Pascal J. Bourguignon
 ;;;;MODIFICATIONS
 ;;;;    199?/??/?? <PJB> Creation.
 ;;;;BUGS
@@ -166,7 +166,7 @@
 ;;;---------------------------------------------------------------------

 (defclass DeviseAccount (PjbObject)
-  ((amounts
+  ((amounts
     :initform nil
     :accessor amounts
     :type     list
@@ -307,14 +307,14 @@ restants."
 ;;;---------------------------------------------------------------------

 (defclass Operation (PjbObject)
-  ((date
+  ((date
     :initform nil
     :initarg  :date
     :accessor date
     :type     symbol
     :documentation "Date of the Operation.
 This is a symbol with the format: YYYY-MM-DD.")
-   (symbol
+   (symbol
     :initform nil
     :initarg  :symbol
     :accessor symbol
@@ -330,16 +330,16 @@ Instances of theses subclasses are made by make-operation.


 ;; ---------- --- ---------- ---- -------- ------ ------ ------------
-;; DATE       DEV MONTANT    QUTE COURS    FRAIS  FRAIS% SYMBOL
+;; DATE       DEV MONTANT    QUTE COURS    FRAIS  FRAIS% SYMBOL
 ;; YYYY-MM-DD --ERROR:  OPERATION CLASS CANNOT DISPLAY-- SSSSSSSSSSSS
 ;; YYYY-MM-DD DEV 0000000.00 0000 00000.00 000.00 00.00% SSSSSSSSSSSS
 ;; YYYY-MM-DD SPLIT 0000 NEW SHARES FOR 0000 OLD SHARES  SSSSSSSSSSSS

-(defconstant operation-format-bad
+(defconstant operation-format-bad
   "%-10s --ERROR:  OPERATION CLASS CANNOT DISPLAY-- %s"
   "Format to print an abstract operation.")

-(defconstant operation-format-buy-sell
+(defconstant operation-format-buy-sell
   "%-10s %-3s %10.2f %4d %8.2f %6.2f %5.2f%% %s"
   "Format to print a buy or sell operation.")

@@ -361,14 +361,14 @@ Instances of theses subclasses are made by make-operation.
 ;;;--- Position --------------------------------------------------------
 ;;;---------------------------------------------------------------------
 (defclass Position (PjbObject)
-  ((buy-quantity
+  ((buy-quantity
     :initform 0
     :initarg  :buy-quantity
     :accessor buy-quantity
     :type     number
     :documentation "Total number of share bought.
     buy-quantity>=0.")
-   (buy-amount
+   (buy-amount
     :initform 0.0
     :initarg  :buy-amount
     :accessor buy-amount
@@ -383,7 +383,7 @@ Instances of theses subclasses are made by make-operation.
     :type     number
     :documentation "Total number of share sold.
     sell-quantity>=0.")
-   (sell-amount
+   (sell-amount
     :initform 0.0
     :initarg  :sell-amount
     :accessor sell-amount
@@ -391,7 +391,7 @@ Instances of theses subclasses are made by make-operation.
     :documentation "Total amount received for sells.
     This includes the deducted comission paid for the sells.
     (Expressed in the devise of the line).")
-   (comission
+   (comission
     :initform 0.0
     :initarg  :comission
     :accessor comission
@@ -404,7 +404,7 @@ Instances of theses subclasses are made by make-operation.
     :accessor nb-operations
     :type     number
     :documentation "Number of operations done.")
-   (open-date
+   (open-date
     :initform '0000-00-00
     :initarg  :open-date
     :accessor open-date
@@ -416,7 +416,7 @@ Instances of theses subclasses are made by make-operation.
     :accessor last-date
     :type     symbol
     :documentation "Date of the last operation.")
-   (owner-line
+   (owner-line
     :initform nil
     :initarg  :owner-line
     :accessor owner-line
@@ -548,14 +548,14 @@ RETURN: self."

 (defclass SplitOp (Operation)
   (
-   (oldQuantity
+   (oldQuantity
     :initform 0
     :initarg  :oldQuantity
     :accessor oldQuantity
     :type     number
     :documentation "Number of old shares.
 oldQuantity>=0")
-   (newQuantity
+   (newQuantity
     :initform 0
     :initarg  :newQuantity
     :accessor newQuantity
@@ -564,9 +564,9 @@ oldQuantity>=0")
 newQuantity>=0")
    )
   (:documentation "
-A split operation.
+A split operation.
 This kind of operation replaces oldQuantity shares by newQuantity shares.
-An allocation of new (free) shares can be modelized by a split from the
+An allocation of new (free) shares can be modelized by a split from the
 oldQuantity required to the newQuantity = number of new share + oldQuantity.
 "))

@@ -579,9 +579,9 @@ DO:     Apply this split operation onto the position."
   ;;DEBUG;;  (message (format "SplitOp::apply-to-position \n    split=%S \n%s"  self (as-string position)))

   ;; TODO: This should go into a Position::split method.
-  (setf (slot-value position 'sell-quantity)
+  (setf (slot-value position 'sell-quantity)
         (/ (*  (sell-quantity position) (newQuantity self)) (oldQuantity self)))
-  (setf (slot-value position 'buy-quantity)
+  (setf (slot-value position 'buy-quantity)
         (/ (*  (buy-quantity position) (newQuantity self)) (oldQuantity self)))
   ;;DEBUG;;  (message (format "%s\n" (as-string position)))
   )
@@ -604,22 +604,22 @@ DO:     Apply this split operation onto the position."

 (defclass BuySellOp (Operation)
   (
-   (quantity
+   (quantity
     :initform 0
     :initarg  :quantity
     :accessor quantity
     :type     number
     :documentation "Number of share bought or sold.
 quantity>=0")
-
-   (devise
+
+   (devise
     :initform nil
     :initarg  :devise
     :accessor devise
     :type     symbol
     :documentation "The devise symbol (see package pjb-euro).")

-   (price
+   (price
     :initform 0.0
     :initarg  :price
     :accessor price
@@ -667,12 +667,12 @@ Instances of theses subclasses are made by make-operation.
 NOTE:   Should be overriden by sell operation to return the opposite."
   (quantity self))

-
+
 (defmethod* as-string ((self BuySellOp))
   "RETURN: A human readable string representing the operation."
   (format operation-format-buy-sell
-    (date self) (devise self)
-    (amount-paid self) (signed-quantity self) (price self)
+    (date self) (devise self)
+    (amount-paid self) (signed-quantity self) (price self)
     (comission self) (comission-percent self) (symbol self)))

 ;;;END SellBuyOp -------------------------------------------------------
@@ -702,7 +702,7 @@ Reification of a buy operation.
 DO:     Apply this buy operation onto the position."
   (if (not (equal (devise (owner-line position)) (devise self)))
     (let ((msg (format "DEVISE MISMATCH WITH LINE FOR %s: %s %s\n"
-                 (symbol self)
+                 (symbol self)
                  (devise (owner-line position)) (devise self))))
       (printf msg)
       (error msg)))
@@ -748,7 +748,7 @@ Reification of a sell operation.
 DO:     Apply this sell operation onto the position."
   (if (not (equal (devise (owner-line position)) (devise self)))
     (let ((msg (format "DEVISE MISMATCH WITH LINE FOR %s: %s %s\n"
-                 (symbol self)
+                 (symbol self)
                  (devise (owner-line position)) (devise self))))
       (printf msg)
       (error msg)))
@@ -808,14 +808,14 @@ DO:     Apply this sell operation onto the position."
 ;;;---------------------------------------------------------------------

 (defclass Line (PjbObject)
-  ((symbol
+  ((symbol
     :initform nil
     :initarg  :symbol
     :accessor symbol
     :type     symbol
     :documentation
     "The ticker symbol of this line (stored as a lisp symbol).")
-   (devise
+   (devise
     :initform nil
     :initarg  :devise
     :accessor devise
@@ -823,7 +823,7 @@ DO:     Apply this sell operation onto the position."
     :documentation
     "The devise in which the shares of this line are dealt.
  (See: pjb-euro).")
-   (positions
+   (positions
     :initform nil
     :accessor positions
     :type     list
@@ -865,7 +865,7 @@ RETURN: self"
   (let ((p (car (slot-value self 'positions))))
     (if (and p (not (is-closed p)))
       (error "The last position is not closed."))
-    (setf (slot-value self 'positions)
+    (setf (slot-value self 'positions)
           (cons (make-instance Position
                   (format "%s-%d" (symbol self) (length p))
                   :owner-line self)
@@ -949,7 +949,7 @@ RETURN: self"
 (defmethod* closed-buy-amount ((self Line))
   "RETURN: The sum over closed positions of (amount-base position).
         (used to compute the percentage gain)."
-  (apply '+ (mapcar (lambda (pos) (buy-amount pos))
+  (apply '+ (mapcar (lambda (pos) (buy-amount pos))
                     (if (is-closed (last-position self))
                       (positions self)
                       (cdr (positions self))))))
@@ -957,7 +957,7 @@ RETURN: self"

 (defmethod* closed-gain ((self Line))
   "RETURN: The sum over closed positions of (gain position)."
-  (apply '+ (mapcar (lambda (pos) (gain pos))
+  (apply '+ (mapcar (lambda (pos) (gain pos))
                     (if (is-closed (last-position self))
                       (positions self)
                       (cdr (positions self))))))
@@ -975,13 +975,13 @@ RETURN: self"
 ;;------------------------------------------------------------------------

 (defclass Portfolio (PjbObject)
-  ((operations
+  ((operations
     :initform nil
     :accessor operations
     :type     list
     :documentation
     "The list of operations applied to this portfolio.")
-   (lines
+   (lines
     :initform nil
     :accessor lines
     :type     list
@@ -990,30 +990,30 @@ RETURN: self"
    ;; -----------------
    ;; total-opcom    total-comissions   total-comissions/total-amount-base (%)
    ;; total-credit   total-debit
-   (total-opcom
+   (total-opcom
     :initform (lambda () (make-instance DeviseAccount))
     :accessor total-opcom
-    :documentation
+    :documentation
     "The sum over operations of (amount operation).")
-   (total-amount-base
+   (total-amount-base
     :initform (lambda () (make-instance DeviseAccount))
     :accessor total-amount-base
     :documentation
-    "The sum over operations of (amount-base operation).")
-   (total-comissions
+    "The sum over operations of (amount-base operation).")
+   (total-comissions
     :initform (lambda () (make-instance DeviseAccount))
     :accessor total-comissions
-    :documentation
+    :documentation
     "The sum over operations of (comission operation).")
-   (total-credit
+   (total-credit
     :initform (lambda () (make-instance DeviseAccount))
     :accessor total-credit
-    :documentation
+    :documentation
     "The sum over sell operations of (amount operation).")
-   (total-debit
+   (total-debit
     :initform (lambda () (make-instance DeviseAccount))
     :accessor total-debit
-    :documentation
+    :documentation
     "The sum over buy operations of (amount operation).")
    ;; Line row:
    ;; ---------
@@ -1026,20 +1026,20 @@ RETURN: self"
    ;;              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^   ^^^^^^^^^^^^^^^^^
    ;;                   Total over running positions     Total over closed pos.
    ;; total-invested  total-closed-gains  total-closed-gains/total-closedbase (%)
-   (total-invested
+   (total-invested
     :initform (lambda () (make-instance DeviseAccount))
     :accessor total-invested
-    :documentation
+    :documentation
     "The sum over lines of (amount-invested line).")
-   (total-closed-gains
+   (total-closed-gains
     :initform (lambda () (make-instance DeviseAccount))
     :accessor total-closed-gains
-    :documentation
+    :documentation
     "The sum over lines of (closed-gain line).")
-   (total-closed-base
+   (total-closed-base
     :initform (lambda () (make-instance DeviseAccount))
     :accessor total-closed-base
-    :documentation
+    :documentation
     "The sum over lines of (closed-buy-amount line)."))
   (:documentation "
 Reification of a Portfolio.
@@ -1070,8 +1070,8 @@ RETURN: self."

 (defmethod* compute-operation-totals ((self Portfolio))
   "DO:     compute the following totals from the operations.
-        total-opcom, total-amount-base, total-comissions,
-        total-credit, total-debit
+        total-opcom, total-amount-base, total-comissions,
+        total-credit, total-debit
 RETURN: self."
   ;; 1- Reset the totals.
   (setf (slot-value self 'total-opcom)       (make-instance DeviseAccount))
@@ -1116,7 +1116,7 @@ POST: (eq (line-with-symbol self (symbol line)) line)"
   ;; sort-lines is an emacs function!
   "DO:     Sort the lines list on the symbol.
 RETURN: self."
-  (setf (slot-value self 'lines)
+  (setf (slot-value self 'lines)
         (sort (lines self)
               (lambda (a b)
                 (setq a (symbol-name (car a))
@@ -1245,7 +1245,7 @@ On peut placer 0, 1 ou plusieurs options:
           (t-comissions  (total-comissions  portfolio))
           )

-      (setq toutes-les-devises (sort (remove-duplicates (devises t-opcom))
+      (setq toutes-les-devises (sort (remove-duplicates (devises t-opcom))
                                      'compare-slessp-sn))
       (mapc
        (lambda (devise)
@@ -1297,12 +1297,12 @@ On peut placer 0, 1 ou plusieurs options:
         (setq line (cdr (car p-lines))
               p-lines (cdr p-lines))
         ;;; Print a line.
-        (printf pfor (symbol line)
+        (printf pfor (symbol line)
                 ;; over running position:
                 (quantity line) (devise line) (amount-invested line)
                 (comission line) (paid-per-share line)
                 ;; over closed positions:
-                (closed-gain line)
+                (closed-gain line)
                 (percent (closed-gain line) (closed-buy-amount line)))))
     (printf "%s" plin)
     ;; Compute the line totals.
@@ -1388,11 +1388,11 @@ On peut placer 0, 1 ou plusieurs options:
               "----" "--------" "----" "--------" "-------" "---"
               "----------" "----------" "----" "--------"))
     (if (not (is-closed last))
-      (insert (format "%66s %8.2f\n" ""
+      (insert (format "%66s %8.2f\n" ""
                       (/ (- (sell-amount last) (buy-amount last))
                          (- (sell-quantity last) (buy-quantity last))))))
     (mapc
-     (lambda (p)
+     (lambda (p)
        (insert (format "%4d %8.2f %4d %8.2f %7.2f %3d %10s %10s %4d %8.2f\n"
                  (buy-quantity p)
                  (buy-amount p)
diff --git a/pjb-c-style.el b/pjb-c-style.el
index 35cc8fa..21c4454 100644
--- a/pjb-c-style.el
+++ b/pjb-c-style.el
@@ -125,19 +125,19 @@

        (defun-block-intro     . +)
        ;; The first line in a top-level defun.
-
+
        (class-open            . 0)
        ;; Brace that opens a class definition.
-
+
        (class-close           . 0)
        ;; Brace that closes a class definition.
-
+
        (inline-open           . 0)
        ;; Brace that opens an in-class inline method.
-
+
        (inline-close          . 0)
        ;; Brace that closes an in-class inline method.
-
+
        (func-decl-cont        . +)
        ;; The region between a function definition's
        ;; argument list and the function opening brace
@@ -145,105 +145,105 @@
        ;; cannot put anything but whitespace and comments
        ;; between them; in C++ and Java, throws declarations
        ;; and other things can appear in this context.
-
+
        (knr-argdecl-intro     . +)
        ;; First line of a K&R C argument declaration.
-
+
        (knr-argdecl           . +)
        ;; Subsequent lines in a K&R C argument declaration.
-
+
        (topmost-intro         . 0)
        ;; The first line in a topmost construct definition.
-
+
        (topmost-intro-cont    . (c-lineup-string-cont
                                  0))
        ;; Topmost definition continuation lines.
-
+
        (member-init-intro     . +)
        ;; First line in a member initialization list.
-
+
        (member-init-cont      . ++)
        ;; Subsequent member initialization list lines.
-
+
        (inher-intro           . +)
        ;; First line of a multiple inheritance list.
-
+
        (inher-cont            . ++)
        ;; Subsequent multiple inheritance lines.
-
+
        (block-open            . 0)
        ;; Statement block open brace.
-
+
        (block-close           . 0)
        ;; Statement block close brace.
-
+
        (brace-list-open       . 0)
        ;; Open brace of an enum or static array list.
-
+
        (brace-list-close      . 0)
        ;; Close brace of an enum or static array list.
-
+
        (brace-list-intro      . +)
        ;; First line in an enum or static array list.
-
+
        (brace-list-entry      . 0)
        ;; Subsequent lines in an enum or static array list.
-
+
        (brace-entry-open      . 0)
        ;; Subsequent lines in an enum or static array
        ;; list that start with an open brace.
-
+
        (statement             . (c-lineup-runin-statements
                                  0))
        ;; A C (or like) statement.
-
+
        (statement-cont        . (c-lineup-string-cont
                                  ++))
        ;; A continuation of a C (or like) statement.
-
+
        (statement-block-intro . +)
        ;; The first line in a new statement block.
-
+
        (statement-case-intro  . +)
        ;; The first line in a case "block".
-
+
        (statement-case-open   . +)
        ;; The first line in a case block starting with brace.
-
+
        (substatement          . +)
        ;; The first line after an if/while/for/do/else.
-
+
        (substatement-open     . 0)
        ;; The brace that opens a substatement block.
-
+
        (substatement-label    . /)
        ;; Labelled line after an if/while/for/do/else.
-
+
        (case-label            . *)
        ;; A "case" or "default" label.
-
+
        (access-label          . -)
        ;; C++ private/protected/public access label.
-
+
        (label                 . /)
        ;; Any ordinary label.
-
+
        (do-while-closure      . 0)
        ;; The "while" that ends a do/while construct.
-
+
        (else-clause           . 0)
        ;; The "else" of an if/else construct.
-
+
        (catch-clause          . 0)
        ;; The "catch" or "finally" of a try/catch construct.
-
+
        (comment-intro         . 0)
        ;; A line containing only a comment introduction.
-
+
        (arglist-intro         . (c-lineup-arglist-intro-after-paren
                                  +))
        ;; The first line in an argument list.
-
+
        (arglist-cont          . (c-lineup-string-cont
                                  c-lineup-arglist-intro-after-paren
                                  c-lineup-argcont
@@ -251,7 +251,7 @@
        ;; Subsequent argument list lines when no
        ;; arguments follow on the same line as the
        ;; arglist opening paren.
-
+
        (arglist-cont-nonempty . (c-lineup-string-cont
                                  c-lineup-arglist-intro-after-paren
                                  c-lineup-argcont
@@ -259,86 +259,86 @@
        ;; Subsequent argument list lines when at
        ;; least one argument follows on the same
        ;; line as the arglist opening paren.
-
+
        (arglist-close         . (c-lineup-argcont
                                  c-lineup-arglist-intro-after-paren
                                  -))
        ;; The solo close paren of an argument list.
-
+
        (stream-op             . (c-lineup-streamop +))
        ;; Lines continuing a stream operator construct.
-
+
        (inclass               . +)
        ;; The construct is nested inside a class definition.
        ;; Used together with e.g. `topmost-intro'.
-
+
        (cpp-macro             . [0])
        ;; The start of a C preprocessor macro definition.
-
+
        (cpp-macro-cont        . [8])
        ;; Inside a multi-line C preprocessor macro definition.
-
+
        (friend                . 0)
        ;; A C++ friend declaration.
-
+
        (objc-method-intro     . 0)
        ;; The first line of an Objective-C method definition.
-
+
        (objc-method-args-cont . (c-lineup-ObjC-method-args-2
                                  +))
        ;; Lines continuing an Objective-C method definition.
-
+
        (objc-method-call-cont . (c-lineup-ObjC-method-call-colons
                                  c-lineup-ObjC-method-call
                                  +))
        ;; Lines continuing an Objective-C method call.
-
+
        (extern-lang-open      . 0)
        ;; Brace that opens an "extern" block.
-
+
        (extern-lang-close     . 0)
        ;; Brace that closes an "extern" block.
-
+
        (inextern-lang         . +)
        ;; Analogous to the `inclass' syntactic symbol,
        ;; but used inside "extern" blocks.
-
+
        (namespace-open        . 0)
-
+
        (namespace-close       . 0)
-
+
        (innamespace           . +)
        ;; Similar to the three `extern-lang' symbols, but for
        ;; C++ "namespace" blocks.
-
+
        (module-open           . 0)
-
+
        (module-close          . 0)
-
+
        (inmodule              . +)
        ;; Similar to the three `extern-lang' symbols, but for
        ;; CORBA IDL "module" blocks.
-
+
        (composition-open      . 0)
-
+
        (composition-close     . 0)
-
+
        (incomposition         . +)
        ;; Similar to the three `extern-lang' symbols, but for
        ;; CORBA CIDL "composition" blocks.
-
+
        (template-args-cont    . (c-lineup-template-args +))
        ;; C++ template argument list continuations.
-
+
        (inlambda              . +)
        ;; In the header or body of a lambda function.
-
+
        (lambda-intro-cont     . ++)
        ;; Continuation of the header of a lambda function.
-
+
        (inexpr-statement      . +)
        ;; The statement is inside an expression.
-
+
        (inexpr-class          . +)
        ;; The class is inside an expression.  Used e.g. for
        ;; Java anonymous classes.
diff --git a/pjb-c.el b/pjb-c.el
index 71dd41e..df511fc 100644
--- a/pjb-c.el
+++ b/pjb-c.el
@@ -9,7 +9,7 @@
 ;;;;    This module exports C indenting functions.
 ;;;;
 ;;;;AUTHORS
-;;;;    <PJB> Pascal J. Bourguignon
+;;;;    <PJB> Pascal J. Bourguignon
 ;;;;MODIFICATIONS
 ;;;;    2003-02-25 <PJB> Updated, from pjb-objc-mode.el, for emacs 21.2.
 ;;;;    199?-??-?? <PJB> Creation.
@@ -137,7 +137,7 @@ DO:     Move the point at the beginning of the comment.

 (defun pjb-c-first-line-of-comment (syntcont)
   "
-RETURN: whether the current line is on the first line of a comment,
+RETURN: whether the current line is on the first line of a comment,
         discounting the comment-intro on the previous line.
 EXAMPLES:
      // YES comment-intro  /* NO  comment-intro  /*    NO  comment-intro
@@ -150,7 +150,7 @@ EXAMPLES:
     (save-excursion
       (if boc
         ;; within a /* comment.
-        (progn
+        (progn
           (pjb-c-beginning-of-comment)
           (and (= (point) (cdr boc))
                (= 1 (count-lines (point) curr-point))))
@@ -166,7 +166,7 @@ EXAMPLES:
 RETURN: whether the given syntcont is really a comment intro, and not a mere
         // comment following a // comment or a comment inside a /* comment.
 "
-  (and (eq (caar syntcont) 'comment-intro)
+  (and (eq (caar syntcont) 'comment-intro)
        (not (assoc 'c syntcont)))
   );;pjb-c-really-comment-intro

@@ -221,27 +221,27 @@ SEE ALSO:       c-indent-line
             (goto-char (match-end 0))
             (forward-comment -1)
             0) ;;(- (current-column) (c-langelem-col langelem)))
-           ((pjb-c-first-line-of-comment c-syntactic-context)
+           ((pjb-c-first-line-of-comment c-syntactic-context)
             (message "first line of comment")
             c-basic-offset)
            (t
             ;; The indentation of the other lines of the comment
             ;; is the same as that of the previous line.
-            ;; TODO: We should check if the previous lines begins
+            ;; TODO: We should check if the previous lines begins
             ;;       with a keyword.
             ;;         EXEMPLE:        comment tralala
             ;;                         comment tralala
             (message "In middle of comment")
             (cond
-             ((pjb-c-keyword-comment-line c-syntactic-context)
+             ((pjb-c-keyword-comment-line c-syntactic-context)
               (message "keyword line")
               c-basic-offset)
              ((save-excursion
                 (forward-line -1)
-                (pjb-c-keyword-comment-line c-syntactic-context))
+                (pjb-c-keyword-comment-line c-syntactic-context))
               (message "just after keyword line")
               (+ c-basic-offset pjb-c-keyword-comment-indent))
-             (t
+             (t
               (message "other comment line")
               ;; same indentation as previous line.
               (save-excursion
@@ -252,7 +252,7 @@ SEE ALSO:       c-indent-line



-(defconst pjb-c-todo-regexp
+(defconst pjb-c-todo-regexp
   "\\(\\(//\\)? *\\(TODO\\|SEE\\):.*\\|/\\* *\\(TODO\\|SEE\\):\\(\\*[^/]\\|[^\\*]\\)* \\*/\\)"
   "regexp to match a TODO: (obsolete SEE:) comment.");;pjb-c-todo-regexp

@@ -264,13 +264,13 @@ SEE ALSO:       c-indent-line


 ;; (defconst pjb-c-C++-method-key
-;;   (concat
+;;   (concat
 ;;    "^\\s *"
 ;;    "\\(ABSTRACTMETHOD\\|CLASSMETHOD\\|METHOD"
 ;;    "\\|PROCEDURE\\|CONSTRUCTOR2?\\|DESTRUCTOR\\)"
 ;;    "([^)]*\\(([^)]*)\\)?[^)]*)\\s *"))
-;;
-;;
+;;
+;;
 ;; (defun pjb-c++-mode-hook ()
 ;;   "A hook for C++ mode where we install our own pjb-c-C++-method-key."
 ;;   (setq c-method-key pjb-c-C++-method-key))
@@ -293,7 +293,7 @@ SEE ALSO:       c-indent-line
 ;;;                                         ; C function arguments.

 ;;; (setq c-label-offset               -4) ;  Offset of C label lines and case
-;;;                                         ; statements relative to usual
+;;;                                         ; statements relative to usual
 ;;;                                         ; indentation.

 ;;; (setq c-continued-statement-offset  4) ;  Extra indent for lines not starting
diff --git a/pjb-caps-mode.el b/pjb-caps-mode.el
index ab920f9..761316c 100644
--- a/pjb-caps-mode.el
+++ b/pjb-caps-mode.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    caps-mode
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -15,19 +15,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    AGPL3
-;;;;
+;;;;
 ;;;;    Copyright Pascal J. Bourguignon 2015 - 2015
-;;;;
+;;;;
 ;;;;    This program is free software: you can redistribute it and/or modify
 ;;;;    it under the terms of the GNU Affero General Public License as published by
 ;;;;    the Free Software Foundation, either version 3 of the License, or
 ;;;;    (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be useful,
 ;;;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;;;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;;;    GNU Affero General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU Affero General Public License
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
diff --git a/pjb-cl-faces.el b/pjb-cl-faces.el
index df43612..ae782a0 100644
--- a/pjb-cl-faces.el
+++ b/pjb-cl-faces.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Defines font-lock faces for COMMON-LISP symbols.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -15,19 +15,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    GPL
-;;;;
+;;;;
 ;;;;    Copyright Pascal Bourguignon 2004 - 2011
-;;;;
+;;;;
 ;;;;    This program is free software; you can redistribute it and/or
 ;;;;    modify it under the terms of the GNU General Public License
 ;;;;    as published by the Free Software Foundation; either version
 ;;;;    2 of the License, or (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be
 ;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
 ;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;;;    PURPOSE.  See the GNU General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU General Public
 ;;;;    License along with this program; if not, write to the Free
 ;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
@@ -54,13 +54,13 @@


 ;;; (mapcar
-;;;  (lambda (kind)
+;;;  (lambda (kind)
 ;;;    (insert (format "%S\n"
-;;;              (list kind
+;;;              (list kind
 ;;;                    (intern
 ;;;                     (concatenate 'string
-;;;                       "font-lock-cl-"
-;;;                       (replace-regexp-in-string
+;;;                       "font-lock-cl-"
+;;;                       (replace-regexp-in-string
 ;;;                        " " "-" (string-downcase kind))
 ;;;                       "-face"))
 ;;;                     '(spec tty glight gdark clight cdark default)))))
@@ -77,14 +77,14 @@
   `(ident-list
     (((type tty) (class color)) ,tty)
     (((class grayscale) (background light)) ,gray-light)
-    (((class grayscale) (background dark)) ,gray-dark)
-    (((class color) (background light)) ,color-light)
-    (((class color) (background dark)) ,color-dark)
+    (((class grayscale) (background dark)) ,gray-dark)
+    (((class color) (background light)) ,color-light)
+    (((class color) (background dark)) ,color-dark)
     (t ,default))
   ) ;;spec


-;; :family :width :height
+;; :family :width :height
 ;; :weight :slant :underline :overline :strike-through :box
 ;; :foreground :background :stipple :inverse-video :inherit

@@ -306,7 +306,7 @@
             (:underline nil :bold t  :foreground "CornflowerBlue")
             (:underline nil :bold t )))
     ("Keyword" ;; from the KEYWORD package
-     ("\\(\\<:\\sw\\sw+\\>\\)"
+     ("\\(\\<:\\sw\\sw+\\>\\)"
       (0 font-lock-cl-keyword-face t))
      font-lock-cl-keyword-face
      ,(spec (:foreground "magenta")
@@ -375,7 +375,7 @@
 ;;;              (goto-char (match-end 0)))
 ;;;             ((looking-at "|#")
 ;;;              (decf level)
-;;;              (when (= 0 level)
+;;;              (when (= 0 level)
 ;;;                (push (cons start (match-end 0)) comments)
 ;;;                (setf state :out))
 ;;;              (goto-char (match-end 0)))
@@ -383,14 +383,14 @@
 ;;;             ((looking-at ".")))))
 ;;;         (goto-char (match-end 0)))))
 ;;;   );;pjb-cl$update-cache
-
+


 ;; dichotomy (vector value compare &optional start end key)
-;; PRE:	entry is the element to be searched in the table.
+;; PRE: entry is the element to be searched in the table.
 ;;         (<= start end)
 ;; RETURN: (values found index order)
-;; POST:	(<= start index end)
+;; POST:        (<= start index end)
 ;;         +-------------------+----------+-------+----------+----------------+
 ;;         | Case              |  found   | index |  order   |     Error      |
 ;;         +-------------------+----------+-------+----------+----------------+
@@ -404,9 +404,9 @@

 ;;; (defun pjb-cl$find-in-cache (min max cache)
 ;;;   (multiple-value-bind (found index order)
-;;;       (dichotomy cache min (lambda (a b) (cond ((< a b) -1)
+;;;       (dichotomy cache min (lambda (a b) (cond ((< a b) -1)
 ;;;                                           ((= a b) 0)
-;;;                                           (t 1)))
+;;;                                           (t 1)))
 ;;;                  0 (length cache) (function car))
 ;;;     (let ((se))
 ;;;       (cond
@@ -467,13 +467,13 @@
                (start)
                (found nil)
                (done  nil))
-              (done
+              (done
                (progn
                  (message "pjb-cl$find-object done found=%S" found)
-                 (fo-put-in-cache limit kind found
+                 (fo-put-in-cache limit kind found
                                   (if found (match-beginning 0) from)
                                   (if found (match-end 0)       from))
-                 (unless found
+                 (unless found
                    ;; we must reset the matches
                    (goto-char from)
                    (looking-at (regexp-quote
@@ -503,7 +503,7 @@
                   (goto-char (match-end 0)))
                  ((looking-at "|#")
                   (decf level)
-                  (when (= 0 level)
+                  (when (= 0 level)
                     (goto-char start)
                     (looking-at (format ".{%d}" (- (match-end 0) start)))
                     (setf done t found t))
@@ -515,21 +515,21 @@
           )))) ;;pjb-cl$find-object


-(defun pjb-cl$find-string (limit)
+(defun pjb-cl$find-string (limit)
   (pjb-cl$find-object limit 'string)
   ;; (pjb-cl$update-cache)
   ;; (pjb-cl$find-in-cache (point) limit (clfss-strings pjb-cl$*state*))
   ) ;;pjb-cl$find-string


-(defun pjb-cl$find-symbol (limit)
+(defun pjb-cl$find-symbol (limit)
   (pjb-cl$find-object limit 'symbol)
   ;; (pjb-cl$update-cache)
   ;; (pjb-cl$find-in-cache (point) limit (clfss-symbols pjb-cl$*state*))
   ) ;;pjb-cl$find-symbol


-(defun pjb-cl$find-comment (limit)
+(defun pjb-cl$find-comment (limit)
   (pjb-cl$find-object limit 'comment)
   ;; (pjb-cl$update-cache)
   ;; (pjb-cl$find-in-cache (point) limit (clfss-comments pjb-cl$*state*))
@@ -538,7 +538,7 @@



-(custom-declare-group
+(custom-declare-group
  'common-lisp-faces
  (mapcar (lambda (kf) (list (kf-face kf) 'custom-face)) *kind-to-face-map*)
  "COMMON-LISP Faces"
@@ -546,7 +546,7 @@


 (map nil
-     (lambda (kf)
+     (lambda (kf)
        (let ((kind (kf-kind kf))
              (face (kf-face kf))
              (spec (kf-spec kf)) )
@@ -1756,7 +1756,7 @@
     STRING-TRIM TAN STRING-UPCASE TANH STRING/= TENTH STRING< TERPRI
     STRING<= THE STRING= THIRD STRING> THROW STRING>= TIME STRINGP TRACE
     STRUCTURE TRANSLATE-LOGICAL-PATHNAME STRUCTURE-CLASS
-    TRANSLATE-PATHNAME STRUCTURE-OBJECT TREE-EQUAL STYLE-WARNING TRUENAME
+    TRANSLATE-PATHNAME STRUCTURE-OBJECT TREE-EQUAL STYLE-WARNING TRUENAME
     TRUNCATE VALUES-LIST TWO-WAY-STREAM VARIABLE
     TWO-WAY-STREAM-INPUT-STREAM VECTOR TWO-WAY-STREAM-OUTPUT-STREAM
     VECTOR-POP TYPE VECTOR-PUSH TYPE-ERROR VECTOR-PUSH-EXTEND
@@ -1776,11 +1776,11 @@
     )) ;;*common-lisp-exports*


-(defun up-down-case (sym)
+(defun up-down-case (sym)
   "
 RETURN: A list containg the name of sym in down case and in up case.
 "
-  (list (string-downcase (symbol-name sym))
+  (list (string-downcase (symbol-name sym))
         (string-upcase   (symbol-name sym))))


@@ -1838,7 +1838,7 @@ RETURN: A regexp that match the given REGEXP, but
             ;;                   (1 ,face t))))))
             (list (format-regexp-in lock)))
            ((null lock)
-            ;; "Warning"
+            ;; "Warning"
             ;; (error "No lock and no symbols")
             nil)
            ((some-format-p (car lock))
@@ -1865,7 +1865,7 @@ RETURN: A regexp that match the given REGEXP, but
                  (greek-letter-font-lock))
                (copy-list
                 `(
-                  (,(format "(%s[ 	']*\\(\\sw+\\)?"
+                  (,(format "(%s[       ']*\\(\\sw+\\)?"
                             (regexp-opt
                              (mapcar (function cl:string)
                                      '(catch throw block return-from))
@@ -1874,20 +1874,20 @@ RETURN: A regexp that match the given REGEXP, but
                              'words))
                     (1 font-lock-cl-special-operator-face t)
                     (2 font-lock-constant-face nil t))
-                  (,(format "(%s[ 	']*\\(\\sw+\\)?"
+                  (,(format "(%s[       ']*\\(\\sw+\\)?"
                             (regexp-opt
                              (mapcar (function cl:string)
                                      '(provide require))
                              ;; (mapcan (function up-down-case) '(provide require))
                              'words))
                     (1 font-lock-cl-function-face t)
-                    (2 font-lock-constant-face nil t))
-                  (,(format "(%s"
+                    (2 font-lock-constant-face nil t))
+                  (,(format "(%s"
                             (regexp-opt
                              (mapcar (function cl:string)
                                      '(abort assert error signal))
                              ;; (mapcan (function up-down-case)
-                             ;;         '(abort assert error signal))
+                             ;;         '(abort assert error signal))
                              'words))
                     (1 font-lock-cl-warning-face t))))
                (common-lisp-font-lock)))))))
diff --git a/pjb-cl-intro.lisp b/pjb-cl-intro.lisp
index fb122c6..e7b129f 100644
--- a/pjb-cl-intro.lisp
+++ b/pjb-cl-intro.lisp
@@ -3,11 +3,11 @@

 (DEFUN no-package (tree)
   (COND ((SYMBOLP tree)
-         (COND ((CHAR= (CHARACTER "?")
+         (COND ((CHAR= (CHARACTER "?")
                        (CHAR (SYMBOL-NAME tree)
                              (1- (LENGTH (SYMBOL-NAME tree)))))
                 (INTERN (FORMAT nil "~A-P"
-                                (SUBSEQ (SYMBOL-NAME tree) 0
+                                (SUBSEQ (SYMBOL-NAME tree) 0
                                         (1- (LENGTH (SYMBOL-NAME tree)))))))
                (t (INTERN (SYMBOL-NAME tree)))))
         ((ATOM tree) tree)
@@ -35,7 +35,7 @@ lambda-list-kind:  (member +cl-lambda-list-kinds+)
     (do ((llk '(&MANDATORY &OPTIONAL &KEY &ALLOW-OTHER-KEYS &AUX &REST &BODY))
          (args (if (member (first lambda-list) +cl-lambda-list-keywords+)
                    lambda-list
-                   (cons '&MANDATORY lambda-list))
+                   (cons '&MANDATORY lambda-list))
                (cdr args))
          (chunk '())
          (result '()))
@@ -74,7 +74,7 @@ lambda-list-kind:  (member +cl-lambda-list-kinds+)

 (WITH-OPEN-FILE (out (MAKE-PATHNAME :defaults (USER-HOMEDIR-PATHNAME)
                                     :NAME "CL-INTRO" :type "DATA"
-                                    :CASE :common)
+                                    :CASE :common)
                      :direction :output
                      :if-does-not-exist :create :if-exists :supersede)
   (let ((*print-pretty* nil))
diff --git a/pjb-cl-magic.el b/pjb-cl-magic.el
index b121578..8c556ea 100644
--- a/pjb-cl-magic.el
+++ b/pjb-cl-magic.el
@@ -5,7 +5,7 @@
 ;;SYSTEM:             POSIX
 ;;USER-INTERFACE:     NONE
 ;;DESCRIPTION
-;;
+;;
 ;;    Automagically insert parenthesis while typing Common-Lisp code.
 ;;
 ;;    There are 338 functions, macros or special operators in COMMON-LISP
@@ -13,9 +13,9 @@
 ;;    parenthesis can be deduced automatically.
 ;;
 ;;    When a space is typed, the current sexps is analysed, and parenthesis
-;;    are added before the point accordingly to what is known of the
-;;    Common-Lisp syntax.
-;;    In addition, the expected argument is indicated in the mini-buffer.
+;;    are added before the point accordingly to what is known of the
+;;    Common-Lisp syntax.
+;;    In addition, the expected argument is indicated in the mini-buffer.
 ;;
 ;;    Usage with slime:  (byte-compile-file "pjb-cl-magic.el")
 ;;                       (load-file "pjb-cl-magic.elc")
@@ -24,21 +24,21 @@
 ;;
 ;;    To use with another common-lisp mode, add to your common-lisp mode hook:
 ;;                       (local-set-key  " " 'pjb-cl-magic-space)
-;;
+;;
 ;;    This is a proof-of-concept.  There remains quite a number of
-;;    missing features (see BUGS below).
+;;    missing features (see BUGS below).
 ;;
 ;;    More sophisticated or complete handling would need to parse the
 ;;    whole file or the whole project sources, (or worse, introspect
 ;;    an inferior-lisp where the already typed in code would have
-;;    been REPLed, like in Slime).
+;;    been REPLed, like in Slime).
 ;;    This would be impractical (having to patch (or hook) a lot of
 ;;    emacs input, or too slow (here, we have to parse again the current
 ;;    sexps every time a space is typed).
-;;
-;;    My conclusion is that it would be better to have a synthesizer
+;;
+;;    My conclusion is that it would be better to have a synthesizer
 ;;    editor, (which could be implemented in emacs or hemlock).
-;;
+;;
 ;;AUTHORS
 ;;    <PJB> Pascal Bourguignon <pjb@informatimago.com>
 ;;MODIFICATIONS
@@ -49,7 +49,7 @@
 ;;
 ;;    - It only knows about symbols from the COMMON-LISP package.
 ;;
-;;    - It does not handle nicely open strings, comments (#|...|#) or
+;;    - It does not handle nicely open strings, comments (#|...|#) or
 ;;      or even inserting spaces inside a string (you'd have to type C-q SPC).
 ;;
 ;;    - It infinite loops when  a space is typed inside a |xxx symbol...
@@ -77,26 +77,26 @@
 ;;    - No analysis of lexical bindings, so typing:
 ;;          defun x (list) (car list
 ;;      gives:
-;;          (DEFUN x (list) (CAR (LIST
+;;          (DEFUN x (list) (CAR (LIST
 ;;      instead of:
 ;;          (DEFUN x (list) (CAR list)
 ;;      (but of course, the former could be what is wanted...)
 ;;
 ;;LEGAL
 ;;    GPL
-;;
+;;
 ;;    Copyright Pascal Bourguignon 2004 - 2004
-;;
+;;
 ;;    This program is free software; you can redistribute it and/or
 ;;    modify it under the terms of the GNU General Public License
 ;;    as published by the Free Software Foundation; either version
 ;;    2 of the License, or (at your option) any later version.
-;;
+;;
 ;;    This program is distributed in the hope that it will be
 ;;    useful, but WITHOUT ANY WARRANTY; without even the implied
 ;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;    PURPOSE.  See the GNU General Public License for more details.
-;;
+;;
 ;;    You should have received a copy of the GNU General Public
 ;;    License along with this program; if not, write to the Free
 ;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
@@ -181,7 +181,7 @@
 ;;----------------------------------------------------------------------

 (defstruct lambda-list
-  "Cached data about a lambda-list.
+  "Cached data about a lambda-list.
 The purpose is to be able to determine rapidely what to do when a SPC is typed
 after a COMMON-LISP symbol.
 - symbol, kind and lambda-list are the raw data coming from *raw-lambda-lists*
@@ -191,7 +191,7 @@ after a COMMON-LISP symbol.
 - rest-p:             whether &REST or &BODY parameters are present.
 - allow-other-keys-p: whether &ALLOW-OTHER-KEYS is present.
 - keys:               list of keyword names.
-- help:               an a-list used to generate the help.
+- help:               an a-list used to generate the help.
                       Use the lambda-list-get-help to get the help string!
 - actions:            a vector of action functions. Use the lambda-list-action
                       function to get the right action!
@@ -211,7 +211,7 @@ after a COMMON-LISP symbol.

 (defparameter *cl-lambda-lists* nil
   "A hash table mapping COMMON-LISP symbols to lambda-list structures.
-This table is built from the *raw-lambda-lists* list
+This table is built from the *raw-lambda-lists* list
 SEE: load-lambda-lists.")


@@ -252,9 +252,9 @@ NOTE:    Call lambda-list-action to get the correct action!


 ;; sexp            length   action
-;; (char             1      [0]=accept
-;; (char arg         2      [0]=accept [1]=accept
-;; (char arg arg     3      [0]=accept [1]=accept [2]=close
+;; (char             1      [0]=accept
+;; (char arg         2      [0]=accept [1]=accept
+;; (char arg arg     3      [0]=accept [1]=accept [2]=close


 (defun* lambda-list-action (lambda-list sexp-length)
@@ -263,7 +263,7 @@ NOTE:    Call lambda-list-action to get the correct action!
            (aref  (lambda-list-actions lambda-list) (1- sexp-length)))
           ((lambda-list-allow-other-keys-p lambda-list)
            (when-debugging (:processing)
-             (message "slen=%d max=%d odd=%S"
+             (message "slen=%d max=%d odd=%S"
                       sexp-length max (oddp (- sexp-length max))))
            (if (oddp (- sexp-length max))
                (function lambda-list-check-current-keyword)
@@ -468,8 +468,8 @@ RETURN: The name of the indicator variable for the parameter (the variable
 (defun* make-help-from-split-lambda-list (split-lambda-list)
   (append
    ;; mandatory:
-   (mapcar (lambda (arg) (cons :mandatory (format "%s"
-                                            (if (consp arg)
+   (mapcar (lambda (arg) (cons :mandatory (format "%s"
+                                            (if (consp arg)
                                                 arg
                                                 (parameter-name arg)))))
            (get-split-parameters '&MANDATORY split-lambda-list))
@@ -490,762 +490,762 @@ RETURN: The name of the indicator variable for the parameter (the variable
        (t nil)))))


-(defvar *raw-lambda-lists*
+(defvar *raw-lambda-lists*
   (mapcar
    (lambda (item) (nsubst nil 'NIL item))
    '(
-     (:FUNCTION * (&REST ARGS))
-     (:FUNCTION + (&REST ARGS))
-     (:FUNCTION - (NUMBER &REST MORE-NUMBERS))
-     (:FUNCTION / (NUMBER &REST MORE-NUMBERS))
-     (:FUNCTION /= (NUMBER &REST MORE-NUMBERS))
-     (:FUNCTION 1+ (NUMBER))
-     (:FUNCTION 1- (NUMBER))
-     (:FUNCTION < (NUMBER &REST MORE-NUMBERS))
-     (:FUNCTION <= (NUMBER &REST MORE-NUMBERS))
-     (:FUNCTION = (NUMBER &REST MORE-NUMBERS))
-     (:FUNCTION > (NUMBER &REST MORE-NUMBERS))
-     (:FUNCTION >= (NUMBER &REST MORE-NUMBERS))
-     (:FUNCTION ABORT (&OPTIONAL CONDITION))
-     (:FUNCTION ABS (NUMBER))
-     (:FUNCTION ACONS (KEY DATUM ALIST))
-     (:FUNCTION ACOS (NUMBER))
-     (:FUNCTION ACOSH (NUMBER))
-     (:GENERIC ADD-METHOD (GENERIC-FUNCTION METHOD))
-     (:FUNCTION ADJOIN (ITEM LIST &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT NIL NOTP)))
-     (:FUNCTION ADJUST-ARRAY (ARRAY DIMENSIONS &KEY (ELEMENT-TYPE (ARRAY-ELEMENT-TYPE ARRAY)) (INITIAL-ELEMENT NIL INITIAL-ELEMENT-P) (INITIAL-CONTENTS NIL INITIAL-CONTENTS-P) FILL-POINTER DISPLACED-TO DISPLACED-INDEX-OFFSET))
-     (:FUNCTION ADJUSTABLE-ARRAY-P (ARRAY))
-     (:GENERIC ALLOCATE-INSTANCE (CLASS &REST INITARGS))
-     (:FUNCTION ALPHA-CHAR-P (CHAR))
-     (:FUNCTION ALPHANUMERICP (CHAR))
-     (:MACRO AND (&REST FORMS))
-     (:FUNCTION APPEND (&REST LISTS))
-     (:FUNCTION APPLY (FUNCTION ARG &REST ARGUMENTS))
-     (:FUNCTION APROPOS (STRING-DESIGNATOR &OPTIONAL PACKAGE EXTERNAL-ONLY))
-     (:FUNCTION APROPOS-LIST (STRING-DESIGNATOR &OPTIONAL PACKAGE-DESIGNATOR EXTERNAL-ONLY))
-     (:FUNCTION AREF (ARRAY &REST SUBSCRIPTS))
-     (:FUNCTION ARITHMETIC-ERROR-OPERANDS (CONDITION))
-     (:FUNCTION ARITHMETIC-ERROR-OPERATION (CONDITION))
-     (:FUNCTION ARRAY-DIMENSION (ARRAY AXIS-NUMBER))
-     (:FUNCTION ARRAY-DIMENSIONS (ARRAY))
-     (:FUNCTION ARRAY-DISPLACEMENT (ARRAY))
-     (:FUNCTION ARRAY-ELEMENT-TYPE (ARRAY))
-     (:FUNCTION ARRAY-HAS-FILL-POINTER-P (ARRAY))
-     (:FUNCTION ARRAY-IN-BOUNDS-P (ARRAY &REST SUBSCRIPTS))
-     (:FUNCTION ARRAY-RANK (ARRAY))
-     (:FUNCTION ARRAY-ROW-MAJOR-INDEX (ARRAY &REST SUBSCRIPTS))
-     (:FUNCTION ARRAY-TOTAL-SIZE (ARRAY))
-     (:FUNCTION ARRAYP (OBJECT))
-     (:FUNCTION ASH (INTEGER COUNT))
-     (:FUNCTION ASIN (NUMBER))
-     (:FUNCTION ASINH (NUMBER))
-     (:MACRO ASSERT (TEST-FORM &OPTIONAL PLACES DATUM &REST ARGUMENTS))
-     (:FUNCTION ASSOC (ITEM ALIST &KEY KEY (TEST NIL TESTP) (TEST-NOT NIL NOTP)))
-     (:FUNCTION ASSOC-IF (PREDICATE ALIST &KEY KEY))
-     (:FUNCTION ASSOC-IF-NOT (PREDICATE ALIST &KEY KEY))
-     (:FUNCTION ATAN (Y &OPTIONAL (X NIL XP)))
-     (:FUNCTION ATANH (NUMBER))
-     (:FUNCTION ATOM (OBJECT))
-     (:FUNCTION BIT (BIT-ARRAY &REST SUBSCRIPTS))
-     (:FUNCTION BIT-AND (BIT-ARRAY-1 BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY))
-     (:FUNCTION BIT-ANDC1 (BIT-ARRAY-1 BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY))
-     (:FUNCTION BIT-ANDC2 (BIT-ARRAY-1 BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY))
-     (:FUNCTION BIT-EQV (BIT-ARRAY-1 BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY))
-     (:FUNCTION BIT-IOR (BIT-ARRAY-1 BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY))
-     (:FUNCTION BIT-NAND (BIT-ARRAY-1 BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY))
-     (:FUNCTION BIT-NOR (BIT-ARRAY-1 BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY))
-     (:FUNCTION BIT-NOT (BIT-ARRAY &OPTIONAL RESULT-BIT-ARRAY))
-     (:FUNCTION BIT-ORC1 (BIT-ARRAY-1 BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY))
-     (:FUNCTION BIT-ORC2 (BIT-ARRAY-1 BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY))
-     (:FUNCTION BIT-VECTOR-P (OBJECT))
-     (:FUNCTION BIT-XOR (BIT-ARRAY-1 BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY))
-     (:SPECIAL-OPERATOR BLOCK (NAME &REST FORMS))
-     (:FUNCTION BOOLE (OP INTEGER1 INTEGER2))
-     (:FUNCTION BOTH-CASE-P (CHAR))
-     (:FUNCTION BOUNDP (SYMBOL))
-     (:FUNCTION BREAK (&OPTIONAL (DATUM "break") &REST ARGUMENTS))
-     (:FUNCTION BROADCAST-STREAM-STREAMS (INSTANCE))
-     (:FUNCTION BUTLAST (LIST &OPTIONAL (N 1)))
-     (:FUNCTION BYTE (SIZE POSITION))
-     (:FUNCTION BYTE-POSITION (BYTESPEC))
-     (:FUNCTION BYTE-SIZE (BYTESPEC))
-     (:FUNCTION CAAAAR (LIST))
-     (:FUNCTION CAAADR (LIST))
-     (:FUNCTION CAAAR (LIST))
-     (:FUNCTION CAADAR (LIST))
-     (:FUNCTION CAADDR (LIST))
-     (:FUNCTION CAADR (LIST))
-     (:FUNCTION CAAR (LIST))
-     (:FUNCTION CADAAR (LIST))
-     (:FUNCTION CADADR (LIST))
-     (:FUNCTION CADAR (LIST))
-     (:FUNCTION CADDAR (LIST))
-     (:FUNCTION CADDDR (LIST))
-     (:FUNCTION CADDR (LIST))
-     (:FUNCTION CADR (LIST))
-     (:MACRO CALL-METHOD (&REST ARGS))
-     (:FUNCTION CAR (LIST))
-     (:MACRO CASE (KEYFORM &BODY CASES))
-     (:SPECIAL-OPERATOR CATCH (TAG &BODY BODY))
-     (:MACRO CCASE (KEYFORM &BODY CASES))
-     (:FUNCTION CDAAAR (LIST))
-     (:FUNCTION CDAADR (LIST))
-     (:FUNCTION CDAAR (LIST))
-     (:FUNCTION CDADAR (LIST))
-     (:FUNCTION CDADDR (LIST))
-     (:FUNCTION CDADR (LIST))
-     (:FUNCTION CDAR (LIST))
-     (:FUNCTION CDDAAR (LIST))
-     (:FUNCTION CDDADR (LIST))
-     (:FUNCTION CDDAR (LIST))
-     (:FUNCTION CDDDAR (LIST))
-     (:FUNCTION CDDDDR (LIST))
-     (:FUNCTION CDDDR (LIST))
-     (:FUNCTION CDDR (LIST))
-     (:FUNCTION CDR (LIST))
-     (:FUNCTION CEILING (NUMBER &OPTIONAL (DIVISOR 1)))
-     (:FUNCTION CELL-ERROR-NAME (CONDITION))
-     (:FUNCTION CERROR (CONTINUE-STRING DATUM &REST ARGUMENTS))
-     (:GENERIC CHANGE-CLASS (INSTANCE NEW-CLASS &REST INITARGS))
-     (:FUNCTION CHAR (STRING INDEX))
-     (:FUNCTION CHAR-CODE (CHAR))
-     (:FUNCTION CHAR-DOWNCASE (CHAR))
-     (:FUNCTION CHAR-EQUAL (CHARACTER &REST MORE-CHARACTERS))
-     (:FUNCTION CHAR-GREATERP (CHARACTER &REST MORE-CHARACTERS))
-     (:FUNCTION CHAR-INT (CHAR))
-     (:FUNCTION CHAR-LESSP (CHARACTER &REST MORE-CHARACTERS))
-     (:FUNCTION CHAR-NAME (CHAR))
-     (:FUNCTION CHAR-NOT-EQUAL (CHARACTER &REST MORE-CHARACTERS))
-     (:FUNCTION CHAR-NOT-GREATERP (CHARACTER &REST MORE-CHARACTERS))
-     (:FUNCTION CHAR-NOT-LESSP (CHARACTER &REST MORE-CHARACTERS))
-     (:FUNCTION CHAR-UPCASE (CHAR))
-     (:FUNCTION CHAR/= (CHARACTER &REST MORE-CHARACTERS))
-     (:FUNCTION CHAR< (CHARACTER &REST MORE-CHARACTERS))
-     (:FUNCTION CHAR<= (CHARACTER &REST MORE-CHARACTERS))
-     (:FUNCTION CHAR= (CHARACTER &REST MORE-CHARACTERS))
-     (:FUNCTION CHAR> (CHARACTER &REST MORE-CHARACTERS))
-     (:FUNCTION CHAR>= (CHARACTER &REST MORE-CHARACTERS))
-     (:FUNCTION CHARACTER (OBJECT))
-     (:FUNCTION CHARACTERP (OBJECT))
-     (:MACRO CHECK-TYPE (PLACE TYPE &OPTIONAL TYPE-STRING))
-     (:FUNCTION CIS (THETA))
-     (:GENERIC CLASS-NAME (CLASS))
-     (:FUNCTION CLASS-OF (X))
-     (:FUNCTION CLEAR-INPUT (&OPTIONAL (STREAM *STANDARD-INPUT*)))
-     (:FUNCTION CLEAR-OUTPUT (&OPTIONAL (STREAM *STANDARD-OUTPUT*)))
-     (:GENERIC CLOSE (STREAM &KEY ABORT))
-     (:FUNCTION CLRHASH (HASH-TABLE))
-     (:FUNCTION CODE-CHAR (CODE))
-     (:FUNCTION COERCE (OBJECT OUTPUT-TYPE-SPEC))
-     (:FUNCTION COMPILE (NAME &OPTIONAL (DEFINITION (OR (MACRO-FUNCTION NAME) (FDEFINITION NAME)))))
-     (:FUNCTION COMPILE-FILE (INPUT-FILE &KEY (OUTPUT-FILE (CFP-OUTPUT-FILE-DEFAULT INPUT-FILE)) ((VERBOSE *COMPILE-VERBOSE*) *COMPILE-VERBOSE*) ((PRINT *COMPILE-PRINT*) *COMPILE-PRINT*) (EXTERNAL-FORMAT DEFAULT) (TRACE-FILE NIL) ((BLOCK-COMPILE *BLOCK-COMPILE-ARG*) NIL)))
-     (:FUNCTION COMPILE-FILE-PATHNAME (INPUT-FILE &KEY (OUTPUT-FILE (CFP-OUTPUT-FILE-DEFAULT INPUT-FILE)) &ALLOW-OTHER-KEYS))
-     (:FUNCTION COMPILED-FUNCTION-P (OBJECT))
-     (:FUNCTION COMPILER-MACRO-FUNCTION (NAME &OPTIONAL ENV))
-     (:FUNCTION COMPLEMENT (FUNCTION))
-     (:FUNCTION COMPLEX (REALPART &OPTIONAL (IMAGPART 0)))
-     (:FUNCTION COMPLEXP (OBJECT))
-     (:GENERIC COMPUTE-APPLICABLE-METHODS (GENERIC-FUNCTION ARGUMENTS))
-     (:FUNCTION COMPUTE-RESTARTS (&OPTIONAL CONDITION))
-     (:FUNCTION CONCATENATE (OUTPUT-TYPE-SPEC &REST SEQUENCES))
-     (:FUNCTION CONCATENATED-STREAM-STREAMS (INSTANCE))
-     (:MACRO COND (&REST CLAUSES))
-     (:FUNCTION CONJUGATE (NUMBER))
-     (:FUNCTION CONS (SE1 SE2))
-     (:FUNCTION CONSP (OBJECT))
-     (:FUNCTION CONSTANTLY (VALUE))
-     (:FUNCTION CONSTANTP (OBJECT &OPTIONAL ENVIRONMENT))
-     (:FUNCTION CONTINUE (&OPTIONAL CONDITION))
-     (:FUNCTION COPY-ALIST (ALIST))
-     (:FUNCTION COPY-LIST (LIST))
-     (:FUNCTION COPY-PPRINT-DISPATCH (&OPTIONAL (TABLE *PRINT-PPRINT-DISPATCH*)))
-     (:FUNCTION COPY-READTABLE (&OPTIONAL (FROM-READTABLE *READTABLE*) TO-READTABLE))
-     (:FUNCTION COPY-SEQ (SEQUENCE))
-     (:FUNCTION COPY-STRUCTURE (STRUCTURE))
-     (:FUNCTION COPY-SYMBOL (SYMBOL &OPTIONAL (COPY-PROPS NIL) &AUX NEW-SYMBOL))
-     (:FUNCTION COPY-TREE (OBJECT))
-     (:FUNCTION COS (NUMBER))
-     (:FUNCTION COSH (NUMBER))
-     (:FUNCTION COUNT (ITEM SEQUENCE &KEY FROM-END (START 0) (END NIL) (KEY NIL) (TEST (FUNCTION EQL) TEST-P) (TEST-NOT NIL TEST-NOT-P)))
-     (:FUNCTION COUNT-IF (PRED SEQUENCE &KEY FROM-END (START 0) (END NIL) (KEY NIL)))
-     (:FUNCTION COUNT-IF-NOT (PRED SEQUENCE &KEY FROM-END (START 0) (END NIL) (KEY NIL)))
-     (:MACRO CTYPECASE (KEYFORM &BODY CASES))
-     (:MACRO DECF (G299 &OPTIONAL (DELTA 1) &ENVIRONMENT G298))
-     (:MACRO DECLAIM (&REST SPECS))
-     (:FUNCTION DECODE-FLOAT (F))
-     (:FUNCTION DECODE-UNIVERSAL-TIME (UNIVERSAL-TIME &OPTIONAL TIME-ZONE))
-     (:MACRO DEFCLASS (&ENVIRONMENT ENV NAME %DIRECT-SUPERCLASSES %DIRECT-SLOTS &REST %OPTIONS))
-     (:MACRO DEFCONSTANT (NAME VALUE &OPTIONAL DOCUMENTATION))
-     (:MACRO DEFGENERIC (FUN-NAME LAMBDA-LIST &BODY OPTIONS))
-     (:MACRO DEFINE-COMPILER-MACRO (NAME LAMBDA-LIST &BODY BODY))
-     (:MACRO DEFINE-CONDITION (NAME (&REST PARENT-TYPES) (&REST SLOT-SPECS) &BODY OPTIONS))
-     (:MACRO DEFINE-METHOD-COMBINATION (&WHOLE FORM &REST ARGS))
-     (:MACRO DEFINE-MODIFY-MACRO (NAME LAMBDA-LIST FUNCTION &OPTIONAL DOC-STRING))
-     (:MACRO DEFINE-SETF-EXPANDER (ACCESS-FN LAMBDA-LIST &BODY BODY))
-     (:MACRO DEFINE-SYMBOL-MACRO (NAME EXPANSION))
-     (:MACRO DEFMACRO (NAME LAMBDA-LIST &REST BODY))
-     (:MACRO DEFMETHOD (&REST ARGS &ENVIRONMENT ENV))
-     (:MACRO DEFPACKAGE (PACKAGE &REST OPTIONS))
-     (:MACRO DEFPARAMETER (VAR VAL &OPTIONAL (DOC NIL DOCP)))
-     (:MACRO DEFSETF (ACCESS-FN &REST REST))
-     (:MACRO DEFSTRUCT (NAME-AND-OPTIONS &REST SLOT-DESCRIPTIONS))
-     (:MACRO DEFTYPE (NAME ARGLIST &BODY BODY))
-     (:MACRO DEFUN (&ENVIRONMENT ENV NAME ARGS &BODY BODY))
-     (:MACRO DEFVAR (VAR &OPTIONAL (VAL NIL VALP) (DOC NIL DOCP)))
-     (:FUNCTION DELETE (ITEM SEQUENCE &KEY FROM-END (TEST (FUNCTION EQL)) (TEST-NOT NIL) (START 0) (END NIL) (COUNT NIL) (KEY NIL)))
-     (:FUNCTION DELETE-DUPLICATES (SEQUENCE &KEY (TEST (FUNCTION EQL)) (TEST-NOT NIL) (START 0) (END NIL) FROM-END (KEY NIL)))
-     (:FUNCTION DELETE-FILE (FILE))
-     (:FUNCTION DELETE-IF (PREDICATE SEQUENCE &KEY FROM-END (START 0) (KEY NIL) (END NIL) (COUNT NIL)))
-     (:FUNCTION DELETE-IF-NOT (PREDICATE SEQUENCE &KEY FROM-END (START 0) (END NIL) (KEY NIL) (COUNT NIL)))
-     (:FUNCTION DELETE-PACKAGE (PACKAGE-OR-NAME))
-     (:FUNCTION DENOMINATOR (NUMBER))
-     (:FUNCTION DEPOSIT-FIELD (NEWBYTE BYTESPEC INTEGER))
-     (:FUNCTION DESCRIBE (X &OPTIONAL (STREAM-DESIGNATOR *STANDARD-OUTPUT*)))
-     (:GENERIC DESCRIBE-OBJECT (PACKAGE STREAM))
-     (:MACRO DESTRUCTURING-BIND (LAMBDA-LIST ARG-LIST &REST BODY))
-     (:FUNCTION DIGIT-CHAR (WEIGHT &OPTIONAL (RADIX 10)))
-     (:FUNCTION DIGIT-CHAR-P (CHAR &OPTIONAL (RADIX 10)))
-     (:FUNCTION DIRECTORY (PATHNAME &KEY))
-     (:FUNCTION DIRECTORY-NAMESTRING (PATHNAME))
-     (:FUNCTION DISASSEMBLE (OBJECT &KEY (STREAM *STANDARD-OUTPUT*) (USE-LABELS T)))
-     (:MACRO DO (VARLIST ENDLIST &BODY BODY))
-     (:MACRO DO* (VARLIST ENDLIST &BODY BODY))
-     (:MACRO DO-ALL-SYMBOLS ((VAR &OPTIONAL RESULT-FORM) &BODY BODY-DECLS))
-     (:MACRO DO-EXTERNAL-SYMBOLS ((VAR &OPTIONAL (PACKAGE (QUOTE *PACKAGE*)) RESULT-FORM) &BODY BODY-DECLS))
-     (:MACRO DO-SYMBOLS ((VAR &OPTIONAL (PACKAGE (QUOTE *PACKAGE*)) RESULT-FORM) &BODY BODY-DECLS))
-     (:GENERIC DOCUMENTATION (SLOTD DOC-TYPE))
-     (:MACRO DOLIST ((VAR LIST &OPTIONAL (RESULT NIL)) &BODY BODY))
-     (:MACRO DOTIMES ((VAR COUNT &OPTIONAL (RESULT NIL)) &BODY BODY))
-     (:FUNCTION DPB (NEWBYTE BYTESPEC INTEGER))
-     (:FUNCTION DRIBBLE (&OPTIONAL PATHNAME &KEY (IF-EXISTS APPEND)))
-     (:MACRO ECASE (KEYFORM &BODY CASES))
-     (:FUNCTION ECHO-STREAM-INPUT-STREAM (INSTANCE))
-     (:FUNCTION ECHO-STREAM-OUTPUT-STREAM (INSTANCE))
-     (:FUNCTION ED (&OPTIONAL X))
-     (:FUNCTION EIGHTH (LIST))
-     (:FUNCTION ELT (SEQUENCE INDEX))
-     (:FUNCTION ENCODE-UNIVERSAL-TIME (SECOND MINUTE HOUR DATE MONTH YEAR &OPTIONAL TIME-ZONE))
-     (:FUNCTION ENDP (OBJECT))
-     (:FUNCTION ENOUGH-NAMESTRING (PATHNAME &OPTIONAL (DEFAULTS *DEFAULT-PATHNAME-DEFAULTS*)))
-     (:FUNCTION ENSURE-DIRECTORIES-EXIST (PATHSPEC &KEY VERBOSE (MODE 511)))
-     (:FUNCTION ENSURE-GENERIC-FUNCTION (FUN-NAME &REST ALL-KEYS &KEY ENVIRONMENT &ALLOW-OTHER-KEYS))
-     (:FUNCTION EQ (OBJ1 OBJ2))
-     (:FUNCTION EQL (OBJ1 OBJ2))
-     (:FUNCTION EQUAL (X Y))
-     (:FUNCTION EQUALP (X Y))
-     (:FUNCTION ERROR (DATUM &REST ARGUMENTS))
-     (:MACRO ETYPECASE (KEYFORM &BODY CASES))
-     (:FUNCTION EVAL (ORIGINAL-EXP))
-     (:SPECIAL-OPERATOR EVAL-WHEN (SITUATIONS &REST FORMS))
-     (:FUNCTION EVENP (NUMBER))
-     (:FUNCTION EVERY (PRED FIRST-SEQ &REST MORE-SEQS))
-     (:FUNCTION EXP (NUMBER))
-     (:FUNCTION EXPORT (SYMBOLS &OPTIONAL (PACKAGE (SANE-PACKAGE))))
-     (:FUNCTION EXPT (BASE POWER))
-     (:FUNCTION FBOUNDP (NAME))
-     (:FUNCTION FCEILING (NUMBER &OPTIONAL (DIVISOR 1)))
-     (:FUNCTION FDEFINITION (NAME))
-     (:FUNCTION FFLOOR (NUMBER &OPTIONAL (DIVISOR 1)))
-     (:FUNCTION FIFTH (LIST))
-     (:FUNCTION FILE-AUTHOR (FILE))
-     (:FUNCTION FILE-ERROR-PATHNAME (CONDITION))
-     (:FUNCTION FILE-LENGTH (STREAM))
-     (:FUNCTION FILE-NAMESTRING (PATHNAME))
-     (:FUNCTION FILE-POSITION (STREAM &OPTIONAL POSITION))
-     (:FUNCTION FILE-STRING-LENGTH (STREAM OBJECT))
-     (:FUNCTION FILE-WRITE-DATE (FILE))
-     (:FUNCTION FILL (SEQUENCE ITEM &KEY (START 0) (END NIL)))
-     (:FUNCTION FILL-POINTER (VECTOR))
-     (:FUNCTION FIND (ITEM SEQUENCE &KEY FROM-END (START 0) END KEY TEST TEST-NOT))
-     (:FUNCTION FIND-ALL-SYMBOLS (STRING-OR-SYMBOL))
-     (:FUNCTION FIND-CLASS (SYMBOL &OPTIONAL (ERRORP T) ENVIRONMENT))
-     (:FUNCTION FIND-IF (PREDICATE SEQUENCE &KEY FROM-END (START 0) END KEY))
-     (:FUNCTION FIND-IF-NOT (PREDICATE SEQUENCE &KEY FROM-END (START 0) END KEY))
-     (:GENERIC FIND-METHOD (GENERIC-FUNCTION QUALIFIERS SPECIALIZERS &OPTIONAL (ERRORP T)))
-     (:FUNCTION FIND-PACKAGE (PACKAGE-DESIGNATOR))
-     (:FUNCTION FIND-RESTART (NAME &OPTIONAL CONDITION))
-     (:FUNCTION FIND-SYMBOL (NAME &OPTIONAL (PACKAGE (SANE-PACKAGE))))
-     (:FUNCTION FINISH-OUTPUT (&OPTIONAL (STREAM *STANDARD-OUTPUT*)))
-     (:FUNCTION FIRST (LIST))
-     (:SPECIAL-OPERATOR FLET (DEFINITIONS &BODY BODY))
-     (:FUNCTION FLOAT (NUMBER &OPTIONAL (OTHER NIL OTHERP)))
-     (:FUNCTION FLOAT-DIGITS (F))
-     (:FUNCTION FLOAT-PRECISION (F))
-     (:FUNCTION FLOAT-RADIX (X))
-     (:FUNCTION FLOAT-SIGN (FLOAT1 &OPTIONAL (FLOAT2 (FLOAT 1 FLOAT1))))
-     (:FUNCTION FLOATP (OBJECT))
-     (:FUNCTION FLOOR (NUMBER &OPTIONAL (DIVISOR 1)))
-     (:FUNCTION FMAKUNBOUND (NAME))
-     (:FUNCTION FORCE-OUTPUT (&OPTIONAL (STREAM *STANDARD-OUTPUT*)))
-     (:FUNCTION FORMAT (DESTINATION CONTROL-STRING &REST FORMAT-ARGUMENTS))
-     (:MACRO FORMATTER (CONTROL-STRING))
-     (:FUNCTION FOURTH (LIST))
-     (:FUNCTION FRESH-LINE (&OPTIONAL (STREAM *STANDARD-OUTPUT*)))
-     (:FUNCTION FROUND (NUMBER &OPTIONAL (DIVISOR 1)))
-     (:FUNCTION FTRUNCATE (NUMBER &OPTIONAL (DIVISOR 1)))
-     (:FUNCTION FUNCALL (FUNCTION &REST ARGUMENTS))
-     (:SPECIAL-OPERATOR FUNCTION (THING))
-     (:GENERIC FUNCTION-KEYWORDS (METHOD))
-     (:FUNCTION FUNCTION-LAMBDA-EXPRESSION (FUN))
-     (:FUNCTION FUNCTIONP (OBJECT))
-     (:FUNCTION GCD (&REST NUMBERS))
-     (:FUNCTION GENSYM (&OPTIONAL (THING "G")))
-     (:FUNCTION GENTEMP (&OPTIONAL (PREFIX "T") (PACKAGE (SANE-PACKAGE))))
-     (:FUNCTION GET (SYMBOL INDICATOR &OPTIONAL (DEFAULT NIL)))
-     (:FUNCTION GET-DECODED-TIME NIL)
-     (:FUNCTION GET-DISPATCH-MACRO-CHARACTER (DISP-CHAR SUB-CHAR &OPTIONAL (RT *READTABLE*)))
-     (:FUNCTION GET-INTERNAL-REAL-TIME NIL)
-     (:FUNCTION GET-INTERNAL-RUN-TIME NIL)
-     (:FUNCTION GET-MACRO-CHARACTER (CHAR &OPTIONAL (READTABLE *READTABLE*)))
-     (:FUNCTION GET-OUTPUT-STREAM-STRING (STREAM))
-     (:FUNCTION GET-PROPERTIES (PLACE INDICATOR-LIST))
-     (:FUNCTION GET-SETF-EXPANSION (FORM &OPTIONAL ENVIRONMENT))
-     (:FUNCTION GET-UNIVERSAL-TIME NIL)
-     (:FUNCTION GETF (PLACE INDICATOR &OPTIONAL (DEFAULT NIL)))
-     (:FUNCTION GETHASH (KEY HASH-TABLE &OPTIONAL DEFAULT))
-     (:SPECIAL-OPERATOR GO (TAG))
-     (:FUNCTION GRAPHIC-CHAR-P (CHAR))
-     (:MACRO HANDLER-BIND (BINDINGS &BODY FORMS))
-     (:MACRO HANDLER-CASE (FORM &REST CASES))
-     (:FUNCTION HASH-TABLE-COUNT (HASH-TABLE))
-     (:FUNCTION HASH-TABLE-P (OBJECT))
-     (:FUNCTION HASH-TABLE-REHASH-SIZE (INSTANCE))
-     (:FUNCTION HASH-TABLE-REHASH-THRESHOLD (INSTANCE))
-     (:FUNCTION HASH-TABLE-SIZE (HASH-TABLE))
-     (:FUNCTION HASH-TABLE-TEST (INSTANCE))
-     (:FUNCTION HOST-NAMESTRING (PATHNAME))
-     (:FUNCTION IDENTITY (THING))
-     (:SPECIAL-OPERATOR IF (TEST THEN &OPTIONAL ELSE))
-     (:MACRO IGNORE-ERRORS (&REST FORMS))
-     (:FUNCTION IMAGPART (NUMBER))
-     (:FUNCTION IMPORT (SYMBOLS &OPTIONAL (PACKAGE (SANE-PACKAGE))))
-     (:MACRO IN-PACKAGE (PACKAGE-DESIGNATOR))
-     (:MACRO INCF (G280 &OPTIONAL (DELTA 1) &ENVIRONMENT G279))
-     (:GENERIC INITIALIZE-INSTANCE (INSTANCE &REST INITARGS))
-     (:GENERIC INPUT-STREAM-P (NON-STREAM))
-     (:FUNCTION INSPECT (OBJECT))
-     (:FUNCTION INTEGER-DECODE-FLOAT (X))
-     (:FUNCTION INTEGER-LENGTH (INTEGER))
-     (:FUNCTION INTEGERP (OBJECT))
-     (:FUNCTION INTERACTIVE-STREAM-P (STREAM))
-     (:FUNCTION INTERN (NAME &OPTIONAL (PACKAGE (SANE-PACKAGE))))
-     (:FUNCTION INTERSECTION (LIST1 LIST2 &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT NIL NOTP)))
-     (:FUNCTION INVALID-METHOD-ERROR (METHOD FORMAT-CONTROL &REST FORMAT-ARGUMENTS))
-     (:FUNCTION INVOKE-DEBUGGER (CONDITION))
-     (:FUNCTION INVOKE-RESTART (RESTART &REST VALUES))
-     (:FUNCTION INVOKE-RESTART-INTERACTIVELY (RESTART))
-     (:FUNCTION ISQRT (N))
-     (:FUNCTION KEYWORDP (OBJECT))
-     (:SPECIAL-OPERATOR LABELS (DEFINITIONS &BODY BODY))
-     (:MACRO LAMBDA (&WHOLE WHOLE ARGS &BODY BODY))
-     (:FUNCTION LAST (LIST &OPTIONAL (N 1)))
-     (:FUNCTION LCM (&REST NUMBERS))
-     (:FUNCTION LDB (BYTESPEC INTEGER))
-     (:FUNCTION LDB-TEST (BYTESPEC INTEGER))
-     (:FUNCTION LDIFF (LIST OBJECT))
-     (:FUNCTION LENGTH (SEQUENCE))
-     (:SPECIAL-OPERATOR LET (BINDINGS &BODY BODY))
-     (:SPECIAL-OPERATOR LET* (BINDINGS &BODY BODY))
-     (:FUNCTION LISP-IMPLEMENTATION-TYPE NIL)
-     (:FUNCTION LISP-IMPLEMENTATION-VERSION NIL)
-     (:FUNCTION LIST (&REST ARGS))
-     (:FUNCTION LIST* (ARG &REST OTHERS))
-     (:FUNCTION LIST-ALL-PACKAGES NIL)
-     (:FUNCTION LIST-LENGTH (LIST))
-     (:FUNCTION LISTEN (&OPTIONAL (STREAM *STANDARD-INPUT*)))
-     (:FUNCTION LISTP (OBJECT))
-     (:FUNCTION LOAD (FILESPEC &KEY (VERBOSE *LOAD-VERBOSE*) (PRINT *LOAD-PRINT*) (IF-DOES-NOT-EXIST T) (EXTERNAL-FORMAT DEFAULT)))
-     (:FUNCTION LOAD-LOGICAL-PATHNAME-TRANSLATIONS (HOST))
-     (:SPECIAL-OPERATOR LOAD-TIME-VALUE (FORM &OPTIONAL READ-ONLY-P))
-     (:SPECIAL-OPERATOR LOCALLY (&BODY BODY))
-     (:FUNCTION LOG (NUMBER &OPTIONAL (BASE NIL BASE-P)))
-     (:FUNCTION LOGAND (&REST INTEGERS))
-     (:FUNCTION LOGANDC1 (INTEGER1 INTEGER2))
-     (:FUNCTION LOGANDC2 (INTEGER1 INTEGER2))
-     (:FUNCTION LOGBITP (INDEX INTEGER))
-     (:FUNCTION LOGCOUNT (INTEGER))
-     (:FUNCTION LOGEQV (&REST INTEGERS))
-     (:FUNCTION LOGICAL-PATHNAME (PATHSPEC))
-     (:FUNCTION LOGICAL-PATHNAME-TRANSLATIONS (HOST))
-     (:FUNCTION LOGIOR (&REST INTEGERS))
-     (:FUNCTION LOGNAND (INTEGER1 INTEGER2))
-     (:FUNCTION LOGNOR (INTEGER1 INTEGER2))
-     (:FUNCTION LOGNOT (NUMBER))
-     (:FUNCTION LOGORC1 (INTEGER1 INTEGER2))
-     (:FUNCTION LOGORC2 (INTEGER1 INTEGER2))
-     (:FUNCTION LOGTEST (INTEGER1 INTEGER2))
-     (:FUNCTION LOGXOR (&REST INTEGERS))
-     (:FUNCTION LONG-SITE-NAME NIL)
-     (:MACRO LOOP (&ENVIRONMENT ENV &REST KEYWORDS-AND-FORMS))
-     (:MACRO LOOP-FINISH NIL)
-     (:FUNCTION LOWER-CASE-P (CHAR))
-     (:FUNCTION MACHINE-INSTANCE NIL)
-     (:FUNCTION MACHINE-TYPE NIL)
-     (:FUNCTION MACHINE-VERSION NIL)
-     (:FUNCTION MACRO-FUNCTION (SYMBOL &OPTIONAL ENV))
-     (:FUNCTION MACROEXPAND (FORM &OPTIONAL ENV))
-     (:FUNCTION MACROEXPAND-1 (FORM &OPTIONAL ENV))
-     (:SPECIAL-OPERATOR MACROLET (DEFINITIONS &REST BODY))
-     (:FUNCTION MAKE-ARRAY (DIMENSIONS &KEY (ELEMENT-TYPE T) (INITIAL-ELEMENT NIL INITIAL-ELEMENT-P) (INITIAL-CONTENTS NIL INITIAL-CONTENTS-P) ADJUSTABLE FILL-POINTER DISPLACED-TO DISPLACED-INDEX-OFFSET))
-     (:FUNCTION MAKE-BROADCAST-STREAM (&REST STREAMS))
-     (:FUNCTION MAKE-CONCATENATED-STREAM (&REST STREAMS))
-     (:FUNCTION MAKE-CONDITION (THING &REST ARGS))
-     (:FUNCTION MAKE-DISPATCH-MACRO-CHARACTER (CHAR &OPTIONAL (NON-TERMINATING-P NIL) (RT *READTABLE*)))
-     (:FUNCTION MAKE-ECHO-STREAM (INPUT-STREAM OUTPUT-STREAM))
-     (:FUNCTION MAKE-HASH-TABLE (&KEY (TEST (QUOTE EQL)) (SIZE +MIN-HASH-TABLE-SIZE+) (REHASH-SIZE 1.5) (REHASH-THRESHOLD 1) (WEAK-P NIL)))
-     (:GENERIC MAKE-INSTANCE (CLASS &REST INITARGS))
-     (:GENERIC MAKE-INSTANCES-OBSOLETE (CLASS))
-     (:FUNCTION MAKE-LIST (SIZE &KEY INITIAL-ELEMENT))
-     (:GENERIC MAKE-LOAD-FORM (RANDOM-STATE &OPTIONAL ENVIRONMENT))
-     (:FUNCTION MAKE-LOAD-FORM-SAVING-SLOTS (OBJECT &KEY SLOT-NAMES ENVIRONMENT))
-     (:FUNCTION MAKE-PACKAGE (NAME &KEY (USE (QUOTE NIL)) NICKNAMES (INTERNAL-SYMBOLS 10) (EXTERNAL-SYMBOLS 10)))
-     (:FUNCTION MAKE-PATHNAME (&KEY HOST (DEVICE NIL DEVP) (DIRECTORY NIL DIRP) (NAME NIL NAMEP) (TYPE NIL TYPEP) (VERSION NIL VERSIONP) DEFAULTS (CASE LOCAL)))
-     (:FUNCTION MAKE-RANDOM-STATE (&OPTIONAL STATE))
-     (:FUNCTION MAKE-SEQUENCE (TYPE LENGTH &KEY (INITIAL-ELEMENT NIL IEP)))
-     (:FUNCTION MAKE-STRING (COUNT &KEY (ELEMENT-TYPE (QUOTE CHARACTER)) ((INITIAL-ELEMENT FILL-CHAR))))
-     (:FUNCTION MAKE-STRING-INPUT-STREAM (STRING &OPTIONAL (START 0) END))
-     (:FUNCTION MAKE-STRING-OUTPUT-STREAM (&KEY (ELEMENT-TYPE (QUOTE CHARACTER)) &AUX (STRING (MAKE-STRING 40))))
-     (:FUNCTION MAKE-SYMBOL (STRING))
-     (:FUNCTION MAKE-SYNONYM-STREAM (SYMBOL))
-     (:FUNCTION MAKE-TWO-WAY-STREAM (INPUT-STREAM OUTPUT-STREAM))
-     (:FUNCTION MAKUNBOUND (SYMBOL))
-     (:FUNCTION MAP (RESULT-TYPE FUNCTION FIRST-SEQUENCE &REST MORE-SEQUENCES))
-     (:FUNCTION MAP-INTO (RESULT-SEQUENCE FUNCTION &REST SEQUENCES))
-     (:FUNCTION MAPC (FUNCTION LIST &REST MORE-LISTS))
-     (:FUNCTION MAPCAN (FUNCTION LIST &REST MORE-LISTS))
-     (:FUNCTION MAPCAR (FUNCTION LIST &REST MORE-LISTS))
-     (:FUNCTION MAPCON (FUNCTION LIST &REST MORE-LISTS))
-     (:FUNCTION MAPHASH (FUNCTION-DESIGNATOR HASH-TABLE))
-     (:FUNCTION MAPL (FUNCTION LIST &REST MORE-LISTS))
-     (:FUNCTION MAPLIST (FUNCTION LIST &REST MORE-LISTS))
-     (:FUNCTION MASK-FIELD (BYTESPEC INTEGER))
-     (:FUNCTION MAX (NUMBER &REST MORE-NUMBERS))
-     (:FUNCTION MEMBER (ITEM LIST &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT (FUNCTION EQL) NOTP)))
-     (:FUNCTION MEMBER-IF (TEST LIST &KEY KEY))
-     (:FUNCTION MEMBER-IF-NOT (TEST LIST &KEY KEY))
-     (:FUNCTION MERGE (RESULT-TYPE SEQUENCE1 SEQUENCE2 PREDICATE &KEY KEY))
-     (:FUNCTION MERGE-PATHNAMES (PATHNAME &OPTIONAL (DEFAULTS *DEFAULT-PATHNAME-DEFAULTS*) (DEFAULT-VERSION NEWEST)))
-     (:FUNCTION METHOD-COMBINATION-ERROR (FORMAT-CONTROL &REST FORMAT-ARGUMENTS))
-     (:GENERIC METHOD-QUALIFIERS (METHOD))
-     (:FUNCTION MIN (NUMBER &REST MORE-NUMBERS))
-     (:FUNCTION MINUSP (NUMBER))
-     (:FUNCTION MISMATCH (SEQUENCE1 SEQUENCE2 &KEY FROM-END (TEST (FUNCTION EQL)) (TEST-NOT NIL) (START1 0) (END1 NIL) (START2 0) (END2 NIL) (KEY NIL)))
-     (:FUNCTION MOD (NUMBER DIVISOR))
-     (:FUNCTION MUFFLE-WARNING (&OPTIONAL CONDITION))
-     (:MACRO MULTIPLE-VALUE-BIND (VARS VALUE-FORM &BODY BODY))
-     (:SPECIAL-OPERATOR MULTIPLE-VALUE-CALL (FUN &REST ARGS))
-     (:MACRO MULTIPLE-VALUE-LIST (VALUE-FORM))
-     (:SPECIAL-OPERATOR MULTIPLE-VALUE-PROG1 (VALUES-FORM &REST FORMS))
-     (:MACRO MULTIPLE-VALUE-SETQ (VARS VALUE-FORM))
-     (:FUNCTION NAME-CHAR (NAME))
-     (:FUNCTION NAMESTRING (PATHNAME))
-     (:FUNCTION NBUTLAST (LIST &OPTIONAL (N 1)))
-     (:FUNCTION NCONC (&REST LISTS))
-     (:FUNCTION NINTERSECTION (LIST1 LIST2 &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT NIL NOTP)))
-     (:FUNCTION NINTH (LIST))
-     (:GENERIC NO-APPLICABLE-METHOD (GENERIC-FUNCTION &REST ARGS))
-     (:GENERIC NO-NEXT-METHOD (GENERIC-FUNCTION METHOD &REST ARGS))
-     (:FUNCTION NOT (OBJECT))
-     (:FUNCTION NOTANY (PRED FIRST-SEQ &REST MORE-SEQS))
-     (:FUNCTION NOTEVERY (PRED FIRST-SEQ &REST MORE-SEQS))
-     (:FUNCTION NRECONC (X Y))
-     (:FUNCTION NREVERSE (SEQUENCE))
-     (:FUNCTION NSET-DIFFERENCE (LIST1 LIST2 &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT NIL NOTP)))
-     (:FUNCTION NSET-EXCLUSIVE-OR (LIST1 LIST2 &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT (FUNCTION EQL) NOTP)))
-     (:FUNCTION NSTRING-CAPITALIZE (STRING &KEY (START 0) END))
-     (:FUNCTION NSTRING-DOWNCASE (STRING &KEY (START 0) END))
-     (:FUNCTION NSTRING-UPCASE (STRING &KEY (START 0) END))
-     (:FUNCTION NSUBLIS (ALIST TREE &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT (FUNCTION EQL) NOTP)))
-     (:FUNCTION NSUBST (NEW OLD TREE &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT (FUNCTION EQL) NOTP)))
-     (:FUNCTION NSUBST-IF (NEW TEST TREE &KEY KEY))
-     (:FUNCTION NSUBST-IF-NOT (NEW TEST TREE &KEY KEY))
-     (:FUNCTION NSUBSTITUTE (NEW OLD SEQUENCE &KEY FROM-END (TEST (FUNCTION EQL)) (TEST-NOT NIL) (END NIL) (COUNT NIL) (KEY NIL) (START 0)))
-     (:FUNCTION NSUBSTITUTE-IF (NEW PRED SEQUENCE &KEY FROM-END (START 0) (END NIL) (COUNT NIL) (KEY NIL)))
-     (:FUNCTION NSUBSTITUTE-IF-NOT (NEW PRED SEQUENCE &KEY FROM-END (START 0) (END NIL) (COUNT NIL) (KEY NIL)))
-     (:FUNCTION NTH (N LIST))
-     (:MACRO NTH-VALUE (N FORM))
-     (:FUNCTION NTHCDR (N LIST))
-     (:FUNCTION NULL (OBJECT))
-     (:FUNCTION NUMBERP (OBJECT))
-     (:FUNCTION NUMERATOR (NUMBER))
-     (:FUNCTION NUNION (LIST1 LIST2 &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT NIL NOTP)))
-     (:FUNCTION ODDP (NUMBER))
-     (:FUNCTION OPEN (FILENAME &KEY (DIRECTION INPUT) (ELEMENT-TYPE (QUOTE BASE-CHAR)) (IF-EXISTS NIL IF-EXISTS-GIVEN) (IF-DOES-NOT-EXIST NIL IF-DOES-NOT-EXIST-GIVEN) (EXTERNAL-FORMAT DEFAULT) &AUX (DIRECTION DIRECTION) (IF-DOES-NOT-EXIST IF-DOES-NOT-EXIST) (IF-EXISTS IF-EXISTS)))
-     (:GENERIC OPEN-STREAM-P (NON-STREAM))
-     (:MACRO OR (&REST FORMS))
-     (:GENERIC OUTPUT-STREAM-P (NON-STREAM))
-     (:FUNCTION PACKAGE-ERROR-PACKAGE (CONDITION))
-     (:FUNCTION PACKAGE-NAME (PACKAGE-DESIGNATOR))
-     (:FUNCTION PACKAGE-NICKNAMES (X))
-     (:FUNCTION PACKAGE-SHADOWING-SYMBOLS (X))
-     (:FUNCTION PACKAGE-USE-LIST (X))
-     (:FUNCTION PACKAGE-USED-BY-LIST (X))
-     (:FUNCTION PACKAGEP (OBJECT))
-     (:FUNCTION PAIRLIS (KEYS DATA &OPTIONAL (ALIST (QUOTE NIL))))
-     (:FUNCTION PARSE-INTEGER (STRING &KEY (START 0) END (RADIX 10) JUNK-ALLOWED))
-     (:FUNCTION PARSE-NAMESTRING (THING &OPTIONAL HOST (DEFAULTS *DEFAULT-PATHNAME-DEFAULTS*) &KEY (START 0) END JUNK-ALLOWED))
-     (:FUNCTION PATHNAME (THING))
-     (:FUNCTION PATHNAME-DEVICE (PATHNAME &KEY (CASE LOCAL)))
-     (:FUNCTION PATHNAME-DIRECTORY (PATHNAME &KEY (CASE LOCAL)))
-     (:FUNCTION PATHNAME-HOST (PATHNAME &KEY (CASE LOCAL)))
-     (:FUNCTION PATHNAME-MATCH-P (IN-PATHNAME IN-WILDNAME))
-     (:FUNCTION PATHNAME-NAME (PATHNAME &KEY (CASE LOCAL)))
-     (:FUNCTION PATHNAME-TYPE (PATHNAME &KEY (CASE LOCAL)))
-     (:FUNCTION PATHNAME-VERSION (PATHNAME))
-     (:FUNCTION PATHNAMEP (OBJECT))
-     (:FUNCTION PEEK-CHAR (&OPTIONAL (PEEK-TYPE NIL) (STREAM *STANDARD-INPUT*) (EOF-ERROR-P T) EOF-VALUE RECURSIVE-P))
-     (:FUNCTION PHASE (NUMBER))
-     (:FUNCTION PLUSP (NUMBER))
-     (:MACRO POP (PLACE &ENVIRONMENT ENV))
-     (:FUNCTION POSITION (ITEM SEQUENCE &KEY FROM-END (START 0) END KEY TEST TEST-NOT))
-     (:FUNCTION POSITION-IF (PREDICATE SEQUENCE &KEY FROM-END (START 0) END KEY))
-     (:FUNCTION POSITION-IF-NOT (PREDICATE SEQUENCE &KEY FROM-END (START 0) END KEY))
-     (:FUNCTION PPRINT (OBJECT &OPTIONAL STREAM))
-     (:FUNCTION PPRINT-DISPATCH (OBJECT &OPTIONAL (TABLE *PRINT-PPRINT-DISPATCH*)))
-     (:MACRO PPRINT-EXIT-IF-LIST-EXHAUSTED NIL)
-     (:FUNCTION PPRINT-FILL (STREAM LIST &OPTIONAL (COLON-P T) ATSIGN-P))
-     (:FUNCTION PPRINT-INDENT (RELATIVE-TO N &OPTIONAL STREAM))
-     (:FUNCTION PPRINT-LINEAR (STREAM LIST &OPTIONAL (COLON-P T) ATSIGN-P))
-     (:MACRO PPRINT-LOGICAL-BLOCK ((STREAM-SYMBOL OBJECT &KEY (PREFIX NIL PREFIXP) (PER-LINE-PREFIX NIL PER-LINE-PREFIX-P) (SUFFIX "" SUFFIXP)) &BODY BODY))
-     (:FUNCTION PPRINT-NEWLINE (KIND &OPTIONAL STREAM))
-     (:MACRO PPRINT-POP NIL)
-     (:FUNCTION PPRINT-TAB (KIND COLNUM COLINC &OPTIONAL STREAM))
-     (:FUNCTION PPRINT-TABULAR (STREAM LIST &OPTIONAL (COLON-P T) ATSIGN-P TABSIZE))
-     (:FUNCTION PRIN1 (OBJECT &OPTIONAL STREAM))
-     (:FUNCTION PRIN1-TO-STRING (OBJECT))
-     (:FUNCTION PRINC (OBJECT &OPTIONAL STREAM))
-     (:FUNCTION PRINC-TO-STRING (OBJECT))
-     (:FUNCTION PRINT (OBJECT &OPTIONAL STREAM))
-     (:FUNCTION PRINT-NOT-READABLE-OBJECT (CONDITION))
-     (:GENERIC PRINT-OBJECT (SELF OUT))
-     (:MACRO PRINT-UNREADABLE-OBJECT ((OBJECT STREAM &KEY TYPE IDENTITY) &BODY BODY))
-     (:FUNCTION PROBE-FILE (PATHNAME))
-     (:FUNCTION PROCLAIM (RAW-FORM))
-     (:MACRO PROG (VARLIST &BODY BODY-DECLS))
-     (:MACRO PROG* (VARLIST &BODY BODY-DECLS))
-     (:MACRO PROG1 (RESULT &BODY BODY))
-     (:MACRO PROG2 (FORM1 RESULT &BODY BODY))
-     (:SPECIAL-OPERATOR PROGN (&REST FORMS))
-     (:SPECIAL-OPERATOR PROGV (VARS VALS &BODY BODY))
-     (:FUNCTION PROVIDE (MODULE-NAME))
-     (:MACRO PSETF (&REST ARGS &ENVIRONMENT ENV))
-     (:MACRO PSETQ (&REST PAIRS))
-     (:MACRO PUSH (OBJ PLACE &ENVIRONMENT ENV))
-     (:MACRO PUSHNEW (OBJ PLACE &REST KEYS &ENVIRONMENT ENV))
-     (:SPECIAL-OPERATOR QUOTE (THING))
-     (:FUNCTION RANDOM (ARG &OPTIONAL (STATE *RANDOM-STATE*)))
-     (:FUNCTION RANDOM-STATE-P (OBJECT))
-     (:FUNCTION RASSOC (ITEM ALIST &KEY KEY (TEST NIL TESTP) (TEST-NOT NIL NOTP)))
-     (:FUNCTION RASSOC-IF (PREDICATE ALIST &KEY KEY))
-     (:FUNCTION RASSOC-IF-NOT (PREDICATE ALIST &KEY KEY))
-     (:FUNCTION RATIONAL (X))
-     (:FUNCTION RATIONALIZE (X))
-     (:FUNCTION RATIONALP (OBJECT))
-     (:FUNCTION READ (&OPTIONAL (STREAM *STANDARD-INPUT*) (EOF-ERROR-P T) (EOF-VALUE NIL) (RECURSIVEP NIL)))
-     (:FUNCTION READ-BYTE (STREAM &OPTIONAL (EOF-ERROR-P T) EOF-VALUE))
-     (:FUNCTION READ-CHAR (&OPTIONAL (STREAM *STANDARD-INPUT*) (EOF-ERROR-P T) EOF-VALUE RECURSIVE-P))
-     (:FUNCTION READ-CHAR-NO-HANG (&OPTIONAL (STREAM *STANDARD-INPUT*) (EOF-ERROR-P T) EOF-VALUE RECURSIVE-P))
-     (:FUNCTION READ-DELIMITED-LIST (ENDCHAR &OPTIONAL (INPUT-STREAM *STANDARD-INPUT*) RECURSIVE-P))
-     (:FUNCTION READ-FROM-STRING (STRING &OPTIONAL EOF-ERROR-P EOF-VALUE &KEY (START 0) END PRESERVE-WHITESPACE))
-     (:FUNCTION READ-LINE (&OPTIONAL (STREAM *STANDARD-INPUT*) (EOF-ERROR-P T) EOF-VALUE RECURSIVE-P))
-     (:FUNCTION READ-PRESERVING-WHITESPACE (&OPTIONAL (STREAM *STANDARD-INPUT*) (EOF-ERROR-P T) (EOF-VALUE NIL) (RECURSIVEP NIL)))
-     (:FUNCTION READ-SEQUENCE (SEQ STREAM &KEY (START 0) END))
-     (:FUNCTION READTABLE-CASE (INSTANCE))
-     (:FUNCTION READTABLEP (OBJECT))
-     (:FUNCTION REALP (OBJECT))
-     (:FUNCTION REALPART (NUMBER))
-     (:FUNCTION REDUCE (FUNCTION SEQUENCE &KEY (KEY NIL) FROM-END (START 0) (END NIL) (INITIAL-VALUE NIL IVP)))
-     (:GENERIC REINITIALIZE-INSTANCE (INSTANCE &REST INITARGS))
-     (:FUNCTION REM (NUMBER DIVISOR))
-     (:MACRO REMF (PLACE INDICATOR &ENVIRONMENT ENV))
-     (:FUNCTION REMHASH (KEY HASH-TABLE))
-     (:FUNCTION REMOVE (ITEM SEQUENCE &KEY FROM-END (TEST (FUNCTION EQL)) (TEST-NOT NIL) (START 0) (END NIL) (COUNT NIL) (KEY NIL)))
-     (:FUNCTION REMOVE-DUPLICATES (SEQUENCE &KEY (TEST (FUNCTION EQL)) (TEST-NOT NIL) (START 0) (END NIL) FROM-END (KEY NIL)))
-     (:FUNCTION REMOVE-IF (PREDICATE SEQUENCE &KEY FROM-END (START 0) (END NIL) (COUNT NIL) (KEY NIL)))
-     (:FUNCTION REMOVE-IF-NOT (PREDICATE SEQUENCE &KEY FROM-END (START 0) (END NIL) (COUNT NIL) (KEY NIL)))
-     (:GENERIC REMOVE-METHOD (GENERIC-FUNCTION METHOD))
-     (:FUNCTION REMPROP (SYMBOL INDICATOR))
-     (:FUNCTION RENAME-FILE (FILE NEW-NAME))
-     (:FUNCTION RENAME-PACKAGE (PACKAGE NAME &OPTIONAL (NICKNAMES NIL)))
-     (:FUNCTION REPLACE (SEQUENCE1 SEQUENCE2 &KEY (START1 0) (END1 NIL) (START2 0) (END2 NIL)))
-     (:FUNCTION REQUIRE (MODULE-NAME &OPTIONAL PATHNAMES))
-     (:FUNCTION REST (LIST))
-     (:MACRO RESTART-BIND (BINDINGS &BODY FORMS))
-     (:MACRO RESTART-CASE (EXPRESSION &BODY CLAUSES &ENVIRONMENT ENV))
-     (:FUNCTION RESTART-NAME (INSTANCE))
-     (:MACRO RETURN (&OPTIONAL (VALUE NIL)))
-     (:SPECIAL-OPERATOR RETURN-FROM (NAME &OPTIONAL VALUE))
-     (:FUNCTION REVAPPEND (X Y))
-     (:FUNCTION REVERSE (SEQUENCE))
-     (:FUNCTION ROOM (&OPTIONAL (VERBOSITY DEFAULT)))
-     (:MACRO ROTATEF (&REST ARGS &ENVIRONMENT ENV))
-     (:FUNCTION ROUND (NUMBER &OPTIONAL (DIVISOR 1)))
-     (:FUNCTION ROW-MAJOR-AREF (ARRAY INDEX))
-     (:FUNCTION RPLACA (X Y))
-     (:FUNCTION RPLACD (X Y))
-     (:FUNCTION SBIT (SIMPLE-BIT-ARRAY &REST SUBSCRIPTS))
-     (:FUNCTION SCALE-FLOAT (F EX))
-     (:FUNCTION SCHAR (STRING INDEX))
-     (:FUNCTION SEARCH (SEQUENCE1 SEQUENCE2 &KEY FROM-END (TEST (FUNCTION EQL)) (TEST-NOT NIL) (START1 0) (END1 NIL) (START2 0) (END2 NIL) (KEY NIL)))
-     (:FUNCTION SECOND (LIST))
-     (:FUNCTION SET (SYMBOL NEW-VALUE))
-     (:FUNCTION SET-DIFFERENCE (LIST1 LIST2 &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT NIL NOTP)))
-     (:FUNCTION SET-DISPATCH-MACRO-CHARACTER (DISP-CHAR SUB-CHAR FUNCTION &OPTIONAL (RT *READTABLE*)))
-     (:FUNCTION SET-EXCLUSIVE-OR (LIST1 LIST2 &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT (FUNCTION EQL) NOTP)))
-     (:FUNCTION SET-MACRO-CHARACTER (CHAR FUNCTION &OPTIONAL (NON-TERMINATINGP NIL) (READTABLE *READTABLE*)))
-     (:FUNCTION SET-PPRINT-DISPATCH (TYPE FUNCTION &OPTIONAL (PRIORITY 0) (TABLE *PRINT-PPRINT-DISPATCH*)))
-     (:FUNCTION SET-SYNTAX-FROM-CHAR (TO-CHAR FROM-CHAR &OPTIONAL (TO-READTABLE *READTABLE*) (FROM-READTABLE NIL)))
-     (:MACRO SETF (&REST ARGS &ENVIRONMENT ENV))
-     (:SPECIAL-OPERATOR SETQ (&WHOLE SOURCE &REST THINGS))
-     (:FUNCTION SEVENTH (LIST))
-     (:FUNCTION SHADOW (SYMBOLS &OPTIONAL (PACKAGE (SANE-PACKAGE))))
-     (:FUNCTION SHADOWING-IMPORT (SYMBOLS &OPTIONAL (PACKAGE (SANE-PACKAGE))))
-     (:GENERIC SHARED-INITIALIZE (INSTANCE SLOT-NAMES &REST INITARGS &ALLOW-OTHER-KEYS))
-     (:MACRO SHIFTF (&WHOLE FORM &REST ARGS &ENVIRONMENT ENV))
-     (:FUNCTION SHORT-SITE-NAME NIL)
-     (:FUNCTION SIGNAL (DATUM &REST ARGUMENTS))
-     (:FUNCTION SIGNUM (NUMBER))
-     (:FUNCTION SIMPLE-BIT-VECTOR-P (OBJECT))
-     (:FUNCTION SIMPLE-CONDITION-FORMAT-ARGUMENTS (CONDITION))
-     (:FUNCTION SIMPLE-CONDITION-FORMAT-CONTROL (CONDITION))
-     (:FUNCTION SIMPLE-STRING-P (OBJECT))
-     (:FUNCTION SIMPLE-VECTOR-P (OBJECT))
-     (:FUNCTION SIN (NUMBER))
-     (:FUNCTION SINH (NUMBER))
-     (:FUNCTION SIXTH (LIST))
-     (:FUNCTION SLEEP (N))
-     (:FUNCTION SLOT-BOUNDP (OBJECT SLOT-NAME))
-     (:FUNCTION SLOT-EXISTS-P (OBJECT SLOT-NAME))
-     (:FUNCTION SLOT-MAKUNBOUND (OBJECT SLOT-NAME))
-     (:GENERIC SLOT-MISSING (CLASS INSTANCE SLOT-NAME OPERATION &OPTIONAL NEW-VALUE))
-     (:GENERIC SLOT-UNBOUND (CLASS INSTANCE SLOT-NAME))
-     (:FUNCTION SLOT-VALUE (OBJECT SLOT-NAME))
-     (:FUNCTION SOFTWARE-TYPE NIL)
-     (:FUNCTION SOFTWARE-VERSION NIL)
-     (:FUNCTION SOME (PRED FIRST-SEQ &REST MORE-SEQS))
-     (:FUNCTION SORT (SEQUENCE PREDICATE &KEY KEY))
-     (:FUNCTION SPECIAL-OPERATOR-P (SYMBOL))
-     (:FUNCTION SQRT (NUMBER))
-     (:FUNCTION STABLE-SORT (SEQUENCE PREDICATE &KEY KEY))
-     (:FUNCTION STANDARD-CHAR-P (CHAR))
-     (:MACRO STEP (FORM))
-     (:FUNCTION STORE-VALUE (VALUE &OPTIONAL CONDITION))
-     (:GENERIC STREAM-ELEMENT-TYPE (NON-STREAM))
-     (:FUNCTION STREAM-ERROR-STREAM (CONDITION))
-     (:FUNCTION STREAM-EXTERNAL-FORMAT (STREAM))
-     (:FUNCTION STREAMP (STREAM))
-     (:FUNCTION STRING (X))
-     (:FUNCTION STRING-CAPITALIZE (STRING &KEY (START 0) END))
-     (:FUNCTION STRING-DOWNCASE (STRING &KEY (START 0) END))
-     (:FUNCTION STRING-EQUAL (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
-     (:FUNCTION STRING-GREATERP (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
-     (:FUNCTION STRING-LEFT-TRIM (CHAR-BAG STRING))
-     (:FUNCTION STRING-LESSP (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
-     (:FUNCTION STRING-NOT-EQUAL (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
-     (:FUNCTION STRING-NOT-GREATERP (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
-     (:FUNCTION STRING-NOT-LESSP (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
-     (:FUNCTION STRING-RIGHT-TRIM (CHAR-BAG STRING))
-     (:FUNCTION STRING-TRIM (CHAR-BAG STRING))
-     (:FUNCTION STRING-UPCASE (STRING &KEY (START 0) END))
-     (:FUNCTION STRING/= (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
-     (:FUNCTION STRING< (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
-     (:FUNCTION STRING<= (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
-     (:FUNCTION STRING= (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
-     (:FUNCTION STRING> (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
-     (:FUNCTION STRING>= (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
-     (:FUNCTION STRINGP (OBJECT))
-     (:FUNCTION SUBLIS (ALIST TREE &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT (FUNCTION EQL) NOTP)))
-     (:FUNCTION SUBSEQ (SEQUENCE START &OPTIONAL END))
-     (:FUNCTION SUBSETP (LIST1 LIST2 &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT NIL NOTP)))
-     (:FUNCTION SUBST (NEW OLD TREE &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT (FUNCTION EQL) NOTP)))
-     (:FUNCTION SUBST-IF (NEW TEST TREE &KEY KEY))
-     (:FUNCTION SUBST-IF-NOT (NEW TEST TREE &KEY KEY))
-     (:FUNCTION SUBSTITUTE (NEW OLD SEQUENCE &KEY FROM-END (TEST (FUNCTION EQL)) (TEST-NOT NIL) (START 0) (COUNT NIL) (END NIL) (KEY NIL)))
-     (:FUNCTION SUBSTITUTE-IF (NEW PRED SEQUENCE &KEY FROM-END (START 0) (END NIL) (COUNT NIL) (KEY NIL)))
-     (:FUNCTION SUBSTITUTE-IF-NOT (NEW PRED SEQUENCE &KEY FROM-END (START 0) (END NIL) (COUNT NIL) (KEY NIL)))
-     (:FUNCTION SUBTYPEP (TYPE1 TYPE2 &OPTIONAL ENVIRONMENT))
-     (:FUNCTION SVREF (SIMPLE-VECTOR INDEX))
-     (:FUNCTION SXHASH (X))
-     (:FUNCTION SYMBOL-FUNCTION (SYMBOL))
-     (:SPECIAL-OPERATOR SYMBOL-MACROLET (MACROBINDINGS &BODY BODY))
-     (:FUNCTION SYMBOL-NAME (SYMBOL))
-     (:FUNCTION SYMBOL-PACKAGE (SYMBOL))
-     (:FUNCTION SYMBOL-PLIST (SYMBOL))
-     (:FUNCTION SYMBOL-VALUE (SYMBOL))
-     (:FUNCTION SYMBOLP (OBJECT))
-     (:FUNCTION SYNONYM-STREAM-SYMBOL (INSTANCE))
-     (:SPECIAL-OPERATOR TAGBODY (&REST STATEMENTS))
-     (:FUNCTION TAILP (OBJECT LIST))
-     (:FUNCTION TAN (NUMBER))
-     (:FUNCTION TANH (NUMBER))
-     (:FUNCTION TENTH (LIST))
-     (:FUNCTION TERPRI (&OPTIONAL (STREAM *STANDARD-OUTPUT*)))
-     (:SPECIAL-OPERATOR THE (TYPE VALUE))
-     (:FUNCTION THIRD (LIST))
-     (:SPECIAL-OPERATOR THROW (TAG RESULT))
-     (:MACRO TIME (FORM))
-     (:MACRO TRACE (&REST SPECS))
-     (:FUNCTION TRANSLATE-LOGICAL-PATHNAME (PATHNAME &KEY))
-     (:FUNCTION TRANSLATE-PATHNAME (SOURCE FROM-WILDNAME TO-WILDNAME &KEY))
-     (:FUNCTION TREE-EQUAL (X Y &KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT NIL NOTP)))
-     (:FUNCTION TRUENAME (PATHNAME))
-     (:FUNCTION TRUNCATE (NUMBER &OPTIONAL (DIVISOR 1)))
-     (:FUNCTION TWO-WAY-STREAM-INPUT-STREAM (INSTANCE))
-     (:FUNCTION TWO-WAY-STREAM-OUTPUT-STREAM (INSTANCE))
-     (:FUNCTION TYPE-ERROR-DATUM (CONDITION))
-     (:FUNCTION TYPE-ERROR-EXPECTED-TYPE (CONDITION))
-     (:FUNCTION TYPE-OF (OBJECT))
-     (:MACRO TYPECASE (KEYFORM &BODY CASES))
-     (:FUNCTION TYPEP (OBJECT TYPE &OPTIONAL ENVIRONMENT))
-     (:FUNCTION UNBOUND-SLOT-INSTANCE (CONDITION))
-     (:FUNCTION UNEXPORT (SYMBOLS &OPTIONAL (PACKAGE (SANE-PACKAGE))))
-     (:FUNCTION UNINTERN (SYMBOL &OPTIONAL (PACKAGE (SANE-PACKAGE))))
-     (:FUNCTION UNION (LIST1 LIST2 &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT NIL NOTP)))
-     (:MACRO UNLESS (TEST &BODY FORMS))
-     (:FUNCTION UNREAD-CHAR (CHARACTER &OPTIONAL (STREAM *STANDARD-INPUT*)))
-     (:MACRO UNTRACE (&REST SPECS))
-     (:FUNCTION UNUSE-PACKAGE (PACKAGES-TO-UNUSE &OPTIONAL (PACKAGE (SANE-PACKAGE))))
-     (:SPECIAL-OPERATOR UNWIND-PROTECT (PROTECTED &BODY CLEANUP))
-     (:GENERIC UPDATE-INSTANCE-FOR-DIFFERENT-CLASS (PREVIOUS CURRENT &REST INITARGS))
-     (:GENERIC UPDATE-INSTANCE-FOR-REDEFINED-CLASS (INSTANCE ADDED-SLOTS DISCARDED-SLOTS PROPERTY-LIST &REST INITARGS))
-     (:FUNCTION UPGRADED-ARRAY-ELEMENT-TYPE (SPEC &OPTIONAL ENVIRONMENT))
-     (:FUNCTION UPGRADED-COMPLEX-PART-TYPE (SPEC &OPTIONAL ENVIRONMENT))
-     (:FUNCTION UPPER-CASE-P (CHAR))
-     (:FUNCTION USE-PACKAGE (PACKAGES-TO-USE &OPTIONAL (PACKAGE (SANE-PACKAGE))))
-     (:FUNCTION USE-VALUE (VALUE &OPTIONAL CONDITION))
-     (:FUNCTION USER-HOMEDIR-PATHNAME (&OPTIONAL HOST))
-     (:FUNCTION VALUES (&REST VALUES))
-     (:FUNCTION VALUES-LIST (LIST))
-     (:FUNCTION VECTOR (&REST OBJECTS))
-     (:FUNCTION VECTOR-POP (ARRAY))
-     (:FUNCTION VECTOR-PUSH (NEW-EL ARRAY))
-     (:FUNCTION VECTOR-PUSH-EXTEND (NEW-ELEMENT VECTOR &OPTIONAL (EXTENSION (1+ (LENGTH VECTOR)))))
-     (:FUNCTION VECTORP (OBJECT))
-     (:FUNCTION WARN (DATUM &REST ARGUMENTS))
-     (:MACRO WHEN (TEST &BODY FORMS))
-     (:FUNCTION WILD-PATHNAME-P (PATHNAME &OPTIONAL FIELD-KEY))
-     (:MACRO WITH-ACCESSORS (SLOTS INSTANCE &BODY BODY))
-     (:MACRO WITH-COMPILATION-UNIT (OPTIONS &BODY BODY))
-     (:MACRO WITH-CONDITION-RESTARTS (CONDITION-FORM RESTARTS-FORM &BODY BODY))
-     (:MACRO WITH-HASH-TABLE-ITERATOR ((FUNCTION HASH-TABLE) &BODY BODY))
-     (:MACRO WITH-INPUT-FROM-STRING ((VAR STRING &KEY INDEX START END) &BODY FORMS-DECLS))
-     (:MACRO WITH-OPEN-FILE ((STREAM FILESPEC &REST OPTIONS) &BODY BODY))
-     (:MACRO WITH-OPEN-STREAM ((VAR STREAM) &BODY FORMS-DECLS))
-     (:MACRO WITH-OUTPUT-TO-STRING ((VAR &OPTIONAL STRING &KEY (ELEMENT-TYPE (QUOTE (QUOTE CHARACTER)))) &BODY FORMS-DECLS))
-     (:MACRO WITH-PACKAGE-ITERATOR ((MNAME PACKAGE-LIST &REST SYMBOL-TYPES) &BODY BODY))
-     (:MACRO WITH-SIMPLE-RESTART ((RESTART-NAME FORMAT-STRING &REST FORMAT-ARGUMENTS) &BODY FORMS))
-     (:MACRO WITH-SLOTS (SLOTS INSTANCE &BODY BODY))
-     (:MACRO WITH-STANDARD-IO-SYNTAX (&BODY BODY))
-     (:FUNCTION WRITE (OBJECT &KEY ((STREAM STREAM) *STANDARD-OUTPUT*) ((ESCAPE *PRINT-ESCAPE*) *PRINT-ESCAPE*) ((RADIX *PRINT-RADIX*) *PRINT-RADIX*) ((BASE *PRINT-BASE*) *PRINT-BASE*) ((CIRCLE *PRINT-CIRCLE*) *PRINT-CIRCLE*) ((PRETTY *PRINT-PRETTY*) *PRINT-PRETTY*) ((LEVEL *PRINT-LEVEL*) *PRINT-LEVEL*) ((LENGTH *PRINT-LENGTH*) *PRINT-LENGTH*) ((CASE *PRINT-CASE*) *PRINT-CASE*) ((ARRAY *PRINT-ARRAY*) *PRINT-ARRAY*) ((GENSYM *PRINT-GENSYM*) *PRINT-GENSYM*) ((READABLY *PRINT-READABLY*) *PRINT-READABLY*) ((RIGHT-MARGIN *PRINT-RIGHT-MARGIN*) *PRINT-RIGHT-MARGIN*) ((MISER-WIDTH *PRINT-MISER-WIDTH*) *PRINT-MISER-WIDTH*) ((LINES *PRINT-LINES*) *PRINT-LINES*) ((PPRINT-DISPATCH *PRINT-PPRINT-DISPATCH*) *PRINT-PPRINT-DISPATCH*)))
-     (:FUNCTION WRITE-BYTE (INTEGER STREAM))
-     (:FUNCTION WRITE-CHAR (CHARACTER &OPTIONAL (STREAM *STANDARD-OUTPUT*)))
-     (:FUNCTION WRITE-LINE (STRING &OPTIONAL (STREAM *STANDARD-OUTPUT*) &KEY (START 0) END))
-     (:FUNCTION WRITE-SEQUENCE (SEQ STREAM &KEY (START 0) (END NIL)))
-     (:FUNCTION WRITE-STRING (STRING &OPTIONAL (STREAM *STANDARD-OUTPUT*) &KEY (START 0) END))
-     (:FUNCTION WRITE-TO-STRING (OBJECT &KEY ((ESCAPE *PRINT-ESCAPE*) *PRINT-ESCAPE*) ((RADIX *PRINT-RADIX*) *PRINT-RADIX*) ((BASE *PRINT-BASE*) *PRINT-BASE*) ((CIRCLE *PRINT-CIRCLE*) *PRINT-CIRCLE*) ((PRETTY *PRINT-PRETTY*) *PRINT-PRETTY*) ((LEVEL *PRINT-LEVEL*) *PRINT-LEVEL*) ((LENGTH *PRINT-LENGTH*) *PRINT-LENGTH*) ((CASE *PRINT-CASE*) *PRINT-CASE*) ((ARRAY *PRINT-ARRAY*) *PRINT-ARRAY*) ((GENSYM *PRINT-GENSYM*) *PRINT-GENSYM*) ((READABLY *PRINT-READABLY*) *PRINT-READABLY*) ((RIGHT-MARGIN *PRINT-RIGHT-MARGIN*) *PRINT-RIGHT-MARGIN*) ((MISER-WIDTH *PRINT-MISER-WIDTH*) *PRINT-MISER-WIDTH*) ((LINES *PRINT-LINES*) *PRINT-LINES*) ((PPRINT-DISPATCH *PRINT-PPRINT-DISPATCH*) *PRINT-PPRINT-DISPATCH*)))
-     (:FUNCTION Y-OR-N-P (&OPTIONAL FORMAT-STRING &REST ARGUMENTS))
-     (:FUNCTION YES-OR-NO-P (&OPTIONAL FORMAT-STRING &REST ARGUMENTS))
-     (:FUNCTION ZEROP (NUMBER))
+     (:FUNCTION * (&REST ARGS))
+     (:FUNCTION + (&REST ARGS))
+     (:FUNCTION - (NUMBER &REST MORE-NUMBERS))
+     (:FUNCTION / (NUMBER &REST MORE-NUMBERS))
+     (:FUNCTION /= (NUMBER &REST MORE-NUMBERS))
+     (:FUNCTION 1+ (NUMBER))
+     (:FUNCTION 1- (NUMBER))
+     (:FUNCTION < (NUMBER &REST MORE-NUMBERS))
+     (:FUNCTION <= (NUMBER &REST MORE-NUMBERS))
+     (:FUNCTION = (NUMBER &REST MORE-NUMBERS))
+     (:FUNCTION > (NUMBER &REST MORE-NUMBERS))
+     (:FUNCTION >= (NUMBER &REST MORE-NUMBERS))
+     (:FUNCTION ABORT (&OPTIONAL CONDITION))
+     (:FUNCTION ABS (NUMBER))
+     (:FUNCTION ACONS (KEY DATUM ALIST))
+     (:FUNCTION ACOS (NUMBER))
+     (:FUNCTION ACOSH (NUMBER))
+     (:GENERIC ADD-METHOD (GENERIC-FUNCTION METHOD))
+     (:FUNCTION ADJOIN (ITEM LIST &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT NIL NOTP)))
+     (:FUNCTION ADJUST-ARRAY (ARRAY DIMENSIONS &KEY (ELEMENT-TYPE (ARRAY-ELEMENT-TYPE ARRAY)) (INITIAL-ELEMENT NIL INITIAL-ELEMENT-P) (INITIAL-CONTENTS NIL INITIAL-CONTENTS-P) FILL-POINTER DISPLACED-TO DISPLACED-INDEX-OFFSET))
+     (:FUNCTION ADJUSTABLE-ARRAY-P (ARRAY))
+     (:GENERIC ALLOCATE-INSTANCE (CLASS &REST INITARGS))
+     (:FUNCTION ALPHA-CHAR-P (CHAR))
+     (:FUNCTION ALPHANUMERICP (CHAR))
+     (:MACRO AND (&REST FORMS))
+     (:FUNCTION APPEND (&REST LISTS))
+     (:FUNCTION APPLY (FUNCTION ARG &REST ARGUMENTS))
+     (:FUNCTION APROPOS (STRING-DESIGNATOR &OPTIONAL PACKAGE EXTERNAL-ONLY))
+     (:FUNCTION APROPOS-LIST (STRING-DESIGNATOR &OPTIONAL PACKAGE-DESIGNATOR EXTERNAL-ONLY))
+     (:FUNCTION AREF (ARRAY &REST SUBSCRIPTS))
+     (:FUNCTION ARITHMETIC-ERROR-OPERANDS (CONDITION))
+     (:FUNCTION ARITHMETIC-ERROR-OPERATION (CONDITION))
+     (:FUNCTION ARRAY-DIMENSION (ARRAY AXIS-NUMBER))
+     (:FUNCTION ARRAY-DIMENSIONS (ARRAY))
+     (:FUNCTION ARRAY-DISPLACEMENT (ARRAY))
+     (:FUNCTION ARRAY-ELEMENT-TYPE (ARRAY))
+     (:FUNCTION ARRAY-HAS-FILL-POINTER-P (ARRAY))
+     (:FUNCTION ARRAY-IN-BOUNDS-P (ARRAY &REST SUBSCRIPTS))
+     (:FUNCTION ARRAY-RANK (ARRAY))
+     (:FUNCTION ARRAY-ROW-MAJOR-INDEX (ARRAY &REST SUBSCRIPTS))
+     (:FUNCTION ARRAY-TOTAL-SIZE (ARRAY))
+     (:FUNCTION ARRAYP (OBJECT))
+     (:FUNCTION ASH (INTEGER COUNT))
+     (:FUNCTION ASIN (NUMBER))
+     (:FUNCTION ASINH (NUMBER))
+     (:MACRO ASSERT (TEST-FORM &OPTIONAL PLACES DATUM &REST ARGUMENTS))
+     (:FUNCTION ASSOC (ITEM ALIST &KEY KEY (TEST NIL TESTP) (TEST-NOT NIL NOTP)))
+     (:FUNCTION ASSOC-IF (PREDICATE ALIST &KEY KEY))
+     (:FUNCTION ASSOC-IF-NOT (PREDICATE ALIST &KEY KEY))
+     (:FUNCTION ATAN (Y &OPTIONAL (X NIL XP)))
+     (:FUNCTION ATANH (NUMBER))
+     (:FUNCTION ATOM (OBJECT))
+     (:FUNCTION BIT (BIT-ARRAY &REST SUBSCRIPTS))
+     (:FUNCTION BIT-AND (BIT-ARRAY-1 BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY))
+     (:FUNCTION BIT-ANDC1 (BIT-ARRAY-1 BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY))
+     (:FUNCTION BIT-ANDC2 (BIT-ARRAY-1 BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY))
+     (:FUNCTION BIT-EQV (BIT-ARRAY-1 BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY))
+     (:FUNCTION BIT-IOR (BIT-ARRAY-1 BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY))
+     (:FUNCTION BIT-NAND (BIT-ARRAY-1 BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY))
+     (:FUNCTION BIT-NOR (BIT-ARRAY-1 BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY))
+     (:FUNCTION BIT-NOT (BIT-ARRAY &OPTIONAL RESULT-BIT-ARRAY))
+     (:FUNCTION BIT-ORC1 (BIT-ARRAY-1 BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY))
+     (:FUNCTION BIT-ORC2 (BIT-ARRAY-1 BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY))
+     (:FUNCTION BIT-VECTOR-P (OBJECT))
+     (:FUNCTION BIT-XOR (BIT-ARRAY-1 BIT-ARRAY-2 &OPTIONAL RESULT-BIT-ARRAY))
+     (:SPECIAL-OPERATOR BLOCK (NAME &REST FORMS))
+     (:FUNCTION BOOLE (OP INTEGER1 INTEGER2))
+     (:FUNCTION BOTH-CASE-P (CHAR))
+     (:FUNCTION BOUNDP (SYMBOL))
+     (:FUNCTION BREAK (&OPTIONAL (DATUM "break") &REST ARGUMENTS))
+     (:FUNCTION BROADCAST-STREAM-STREAMS (INSTANCE))
+     (:FUNCTION BUTLAST (LIST &OPTIONAL (N 1)))
+     (:FUNCTION BYTE (SIZE POSITION))
+     (:FUNCTION BYTE-POSITION (BYTESPEC))
+     (:FUNCTION BYTE-SIZE (BYTESPEC))
+     (:FUNCTION CAAAAR (LIST))
+     (:FUNCTION CAAADR (LIST))
+     (:FUNCTION CAAAR (LIST))
+     (:FUNCTION CAADAR (LIST))
+     (:FUNCTION CAADDR (LIST))
+     (:FUNCTION CAADR (LIST))
+     (:FUNCTION CAAR (LIST))
+     (:FUNCTION CADAAR (LIST))
+     (:FUNCTION CADADR (LIST))
+     (:FUNCTION CADAR (LIST))
+     (:FUNCTION CADDAR (LIST))
+     (:FUNCTION CADDDR (LIST))
+     (:FUNCTION CADDR (LIST))
+     (:FUNCTION CADR (LIST))
+     (:MACRO CALL-METHOD (&REST ARGS))
+     (:FUNCTION CAR (LIST))
+     (:MACRO CASE (KEYFORM &BODY CASES))
+     (:SPECIAL-OPERATOR CATCH (TAG &BODY BODY))
+     (:MACRO CCASE (KEYFORM &BODY CASES))
+     (:FUNCTION CDAAAR (LIST))
+     (:FUNCTION CDAADR (LIST))
+     (:FUNCTION CDAAR (LIST))
+     (:FUNCTION CDADAR (LIST))
+     (:FUNCTION CDADDR (LIST))
+     (:FUNCTION CDADR (LIST))
+     (:FUNCTION CDAR (LIST))
+     (:FUNCTION CDDAAR (LIST))
+     (:FUNCTION CDDADR (LIST))
+     (:FUNCTION CDDAR (LIST))
+     (:FUNCTION CDDDAR (LIST))
+     (:FUNCTION CDDDDR (LIST))
+     (:FUNCTION CDDDR (LIST))
+     (:FUNCTION CDDR (LIST))
+     (:FUNCTION CDR (LIST))
+     (:FUNCTION CEILING (NUMBER &OPTIONAL (DIVISOR 1)))
+     (:FUNCTION CELL-ERROR-NAME (CONDITION))
+     (:FUNCTION CERROR (CONTINUE-STRING DATUM &REST ARGUMENTS))
+     (:GENERIC CHANGE-CLASS (INSTANCE NEW-CLASS &REST INITARGS))
+     (:FUNCTION CHAR (STRING INDEX))
+     (:FUNCTION CHAR-CODE (CHAR))
+     (:FUNCTION CHAR-DOWNCASE (CHAR))
+     (:FUNCTION CHAR-EQUAL (CHARACTER &REST MORE-CHARACTERS))
+     (:FUNCTION CHAR-GREATERP (CHARACTER &REST MORE-CHARACTERS))
+     (:FUNCTION CHAR-INT (CHAR))
+     (:FUNCTION CHAR-LESSP (CHARACTER &REST MORE-CHARACTERS))
+     (:FUNCTION CHAR-NAME (CHAR))
+     (:FUNCTION CHAR-NOT-EQUAL (CHARACTER &REST MORE-CHARACTERS))
+     (:FUNCTION CHAR-NOT-GREATERP (CHARACTER &REST MORE-CHARACTERS))
+     (:FUNCTION CHAR-NOT-LESSP (CHARACTER &REST MORE-CHARACTERS))
+     (:FUNCTION CHAR-UPCASE (CHAR))
+     (:FUNCTION CHAR/= (CHARACTER &REST MORE-CHARACTERS))
+     (:FUNCTION CHAR< (CHARACTER &REST MORE-CHARACTERS))
+     (:FUNCTION CHAR<= (CHARACTER &REST MORE-CHARACTERS))
+     (:FUNCTION CHAR= (CHARACTER &REST MORE-CHARACTERS))
+     (:FUNCTION CHAR> (CHARACTER &REST MORE-CHARACTERS))
+     (:FUNCTION CHAR>= (CHARACTER &REST MORE-CHARACTERS))
+     (:FUNCTION CHARACTER (OBJECT))
+     (:FUNCTION CHARACTERP (OBJECT))
+     (:MACRO CHECK-TYPE (PLACE TYPE &OPTIONAL TYPE-STRING))
+     (:FUNCTION CIS (THETA))
+     (:GENERIC CLASS-NAME (CLASS))
+     (:FUNCTION CLASS-OF (X))
+     (:FUNCTION CLEAR-INPUT (&OPTIONAL (STREAM *STANDARD-INPUT*)))
+     (:FUNCTION CLEAR-OUTPUT (&OPTIONAL (STREAM *STANDARD-OUTPUT*)))
+     (:GENERIC CLOSE (STREAM &KEY ABORT))
+     (:FUNCTION CLRHASH (HASH-TABLE))
+     (:FUNCTION CODE-CHAR (CODE))
+     (:FUNCTION COERCE (OBJECT OUTPUT-TYPE-SPEC))
+     (:FUNCTION COMPILE (NAME &OPTIONAL (DEFINITION (OR (MACRO-FUNCTION NAME) (FDEFINITION NAME)))))
+     (:FUNCTION COMPILE-FILE (INPUT-FILE &KEY (OUTPUT-FILE (CFP-OUTPUT-FILE-DEFAULT INPUT-FILE)) ((VERBOSE *COMPILE-VERBOSE*) *COMPILE-VERBOSE*) ((PRINT *COMPILE-PRINT*) *COMPILE-PRINT*) (EXTERNAL-FORMAT DEFAULT) (TRACE-FILE NIL) ((BLOCK-COMPILE *BLOCK-COMPILE-ARG*) NIL)))
+     (:FUNCTION COMPILE-FILE-PATHNAME (INPUT-FILE &KEY (OUTPUT-FILE (CFP-OUTPUT-FILE-DEFAULT INPUT-FILE)) &ALLOW-OTHER-KEYS))
+     (:FUNCTION COMPILED-FUNCTION-P (OBJECT))
+     (:FUNCTION COMPILER-MACRO-FUNCTION (NAME &OPTIONAL ENV))
+     (:FUNCTION COMPLEMENT (FUNCTION))
+     (:FUNCTION COMPLEX (REALPART &OPTIONAL (IMAGPART 0)))
+     (:FUNCTION COMPLEXP (OBJECT))
+     (:GENERIC COMPUTE-APPLICABLE-METHODS (GENERIC-FUNCTION ARGUMENTS))
+     (:FUNCTION COMPUTE-RESTARTS (&OPTIONAL CONDITION))
+     (:FUNCTION CONCATENATE (OUTPUT-TYPE-SPEC &REST SEQUENCES))
+     (:FUNCTION CONCATENATED-STREAM-STREAMS (INSTANCE))
+     (:MACRO COND (&REST CLAUSES))
+     (:FUNCTION CONJUGATE (NUMBER))
+     (:FUNCTION CONS (SE1 SE2))
+     (:FUNCTION CONSP (OBJECT))
+     (:FUNCTION CONSTANTLY (VALUE))
+     (:FUNCTION CONSTANTP (OBJECT &OPTIONAL ENVIRONMENT))
+     (:FUNCTION CONTINUE (&OPTIONAL CONDITION))
+     (:FUNCTION COPY-ALIST (ALIST))
+     (:FUNCTION COPY-LIST (LIST))
+     (:FUNCTION COPY-PPRINT-DISPATCH (&OPTIONAL (TABLE *PRINT-PPRINT-DISPATCH*)))
+     (:FUNCTION COPY-READTABLE (&OPTIONAL (FROM-READTABLE *READTABLE*) TO-READTABLE))
+     (:FUNCTION COPY-SEQ (SEQUENCE))
+     (:FUNCTION COPY-STRUCTURE (STRUCTURE))
+     (:FUNCTION COPY-SYMBOL (SYMBOL &OPTIONAL (COPY-PROPS NIL) &AUX NEW-SYMBOL))
+     (:FUNCTION COPY-TREE (OBJECT))
+     (:FUNCTION COS (NUMBER))
+     (:FUNCTION COSH (NUMBER))
+     (:FUNCTION COUNT (ITEM SEQUENCE &KEY FROM-END (START 0) (END NIL) (KEY NIL) (TEST (FUNCTION EQL) TEST-P) (TEST-NOT NIL TEST-NOT-P)))
+     (:FUNCTION COUNT-IF (PRED SEQUENCE &KEY FROM-END (START 0) (END NIL) (KEY NIL)))
+     (:FUNCTION COUNT-IF-NOT (PRED SEQUENCE &KEY FROM-END (START 0) (END NIL) (KEY NIL)))
+     (:MACRO CTYPECASE (KEYFORM &BODY CASES))
+     (:MACRO DECF (G299 &OPTIONAL (DELTA 1) &ENVIRONMENT G298))
+     (:MACRO DECLAIM (&REST SPECS))
+     (:FUNCTION DECODE-FLOAT (F))
+     (:FUNCTION DECODE-UNIVERSAL-TIME (UNIVERSAL-TIME &OPTIONAL TIME-ZONE))
+     (:MACRO DEFCLASS (&ENVIRONMENT ENV NAME %DIRECT-SUPERCLASSES %DIRECT-SLOTS &REST %OPTIONS))
+     (:MACRO DEFCONSTANT (NAME VALUE &OPTIONAL DOCUMENTATION))
+     (:MACRO DEFGENERIC (FUN-NAME LAMBDA-LIST &BODY OPTIONS))
+     (:MACRO DEFINE-COMPILER-MACRO (NAME LAMBDA-LIST &BODY BODY))
+     (:MACRO DEFINE-CONDITION (NAME (&REST PARENT-TYPES) (&REST SLOT-SPECS) &BODY OPTIONS))
+     (:MACRO DEFINE-METHOD-COMBINATION (&WHOLE FORM &REST ARGS))
+     (:MACRO DEFINE-MODIFY-MACRO (NAME LAMBDA-LIST FUNCTION &OPTIONAL DOC-STRING))
+     (:MACRO DEFINE-SETF-EXPANDER (ACCESS-FN LAMBDA-LIST &BODY BODY))
+     (:MACRO DEFINE-SYMBOL-MACRO (NAME EXPANSION))
+     (:MACRO DEFMACRO (NAME LAMBDA-LIST &REST BODY))
+     (:MACRO DEFMETHOD (&REST ARGS &ENVIRONMENT ENV))
+     (:MACRO DEFPACKAGE (PACKAGE &REST OPTIONS))
+     (:MACRO DEFPARAMETER (VAR VAL &OPTIONAL (DOC NIL DOCP)))
+     (:MACRO DEFSETF (ACCESS-FN &REST REST))
+     (:MACRO DEFSTRUCT (NAME-AND-OPTIONS &REST SLOT-DESCRIPTIONS))
+     (:MACRO DEFTYPE (NAME ARGLIST &BODY BODY))
+     (:MACRO DEFUN (&ENVIRONMENT ENV NAME ARGS &BODY BODY))
+     (:MACRO DEFVAR (VAR &OPTIONAL (VAL NIL VALP) (DOC NIL DOCP)))
+     (:FUNCTION DELETE (ITEM SEQUENCE &KEY FROM-END (TEST (FUNCTION EQL)) (TEST-NOT NIL) (START 0) (END NIL) (COUNT NIL) (KEY NIL)))
+     (:FUNCTION DELETE-DUPLICATES (SEQUENCE &KEY (TEST (FUNCTION EQL)) (TEST-NOT NIL) (START 0) (END NIL) FROM-END (KEY NIL)))
+     (:FUNCTION DELETE-FILE (FILE))
+     (:FUNCTION DELETE-IF (PREDICATE SEQUENCE &KEY FROM-END (START 0) (KEY NIL) (END NIL) (COUNT NIL)))
+     (:FUNCTION DELETE-IF-NOT (PREDICATE SEQUENCE &KEY FROM-END (START 0) (END NIL) (KEY NIL) (COUNT NIL)))
+     (:FUNCTION DELETE-PACKAGE (PACKAGE-OR-NAME))
+     (:FUNCTION DENOMINATOR (NUMBER))
+     (:FUNCTION DEPOSIT-FIELD (NEWBYTE BYTESPEC INTEGER))
+     (:FUNCTION DESCRIBE (X &OPTIONAL (STREAM-DESIGNATOR *STANDARD-OUTPUT*)))
+     (:GENERIC DESCRIBE-OBJECT (PACKAGE STREAM))
+     (:MACRO DESTRUCTURING-BIND (LAMBDA-LIST ARG-LIST &REST BODY))
+     (:FUNCTION DIGIT-CHAR (WEIGHT &OPTIONAL (RADIX 10)))
+     (:FUNCTION DIGIT-CHAR-P (CHAR &OPTIONAL (RADIX 10)))
+     (:FUNCTION DIRECTORY (PATHNAME &KEY))
+     (:FUNCTION DIRECTORY-NAMESTRING (PATHNAME))
+     (:FUNCTION DISASSEMBLE (OBJECT &KEY (STREAM *STANDARD-OUTPUT*) (USE-LABELS T)))
+     (:MACRO DO (VARLIST ENDLIST &BODY BODY))
+     (:MACRO DO* (VARLIST ENDLIST &BODY BODY))
+     (:MACRO DO-ALL-SYMBOLS ((VAR &OPTIONAL RESULT-FORM) &BODY BODY-DECLS))
+     (:MACRO DO-EXTERNAL-SYMBOLS ((VAR &OPTIONAL (PACKAGE (QUOTE *PACKAGE*)) RESULT-FORM) &BODY BODY-DECLS))
+     (:MACRO DO-SYMBOLS ((VAR &OPTIONAL (PACKAGE (QUOTE *PACKAGE*)) RESULT-FORM) &BODY BODY-DECLS))
+     (:GENERIC DOCUMENTATION (SLOTD DOC-TYPE))
+     (:MACRO DOLIST ((VAR LIST &OPTIONAL (RESULT NIL)) &BODY BODY))
+     (:MACRO DOTIMES ((VAR COUNT &OPTIONAL (RESULT NIL)) &BODY BODY))
+     (:FUNCTION DPB (NEWBYTE BYTESPEC INTEGER))
+     (:FUNCTION DRIBBLE (&OPTIONAL PATHNAME &KEY (IF-EXISTS APPEND)))
+     (:MACRO ECASE (KEYFORM &BODY CASES))
+     (:FUNCTION ECHO-STREAM-INPUT-STREAM (INSTANCE))
+     (:FUNCTION ECHO-STREAM-OUTPUT-STREAM (INSTANCE))
+     (:FUNCTION ED (&OPTIONAL X))
+     (:FUNCTION EIGHTH (LIST))
+     (:FUNCTION ELT (SEQUENCE INDEX))
+     (:FUNCTION ENCODE-UNIVERSAL-TIME (SECOND MINUTE HOUR DATE MONTH YEAR &OPTIONAL TIME-ZONE))
+     (:FUNCTION ENDP (OBJECT))
+     (:FUNCTION ENOUGH-NAMESTRING (PATHNAME &OPTIONAL (DEFAULTS *DEFAULT-PATHNAME-DEFAULTS*)))
+     (:FUNCTION ENSURE-DIRECTORIES-EXIST (PATHSPEC &KEY VERBOSE (MODE 511)))
+     (:FUNCTION ENSURE-GENERIC-FUNCTION (FUN-NAME &REST ALL-KEYS &KEY ENVIRONMENT &ALLOW-OTHER-KEYS))
+     (:FUNCTION EQ (OBJ1 OBJ2))
+     (:FUNCTION EQL (OBJ1 OBJ2))
+     (:FUNCTION EQUAL (X Y))
+     (:FUNCTION EQUALP (X Y))
+     (:FUNCTION ERROR (DATUM &REST ARGUMENTS))
+     (:MACRO ETYPECASE (KEYFORM &BODY CASES))
+     (:FUNCTION EVAL (ORIGINAL-EXP))
+     (:SPECIAL-OPERATOR EVAL-WHEN (SITUATIONS &REST FORMS))
+     (:FUNCTION EVENP (NUMBER))
+     (:FUNCTION EVERY (PRED FIRST-SEQ &REST MORE-SEQS))
+     (:FUNCTION EXP (NUMBER))
+     (:FUNCTION EXPORT (SYMBOLS &OPTIONAL (PACKAGE (SANE-PACKAGE))))
+     (:FUNCTION EXPT (BASE POWER))
+     (:FUNCTION FBOUNDP (NAME))
+     (:FUNCTION FCEILING (NUMBER &OPTIONAL (DIVISOR 1)))
+     (:FUNCTION FDEFINITION (NAME))
+     (:FUNCTION FFLOOR (NUMBER &OPTIONAL (DIVISOR 1)))
+     (:FUNCTION FIFTH (LIST))
+     (:FUNCTION FILE-AUTHOR (FILE))
+     (:FUNCTION FILE-ERROR-PATHNAME (CONDITION))
+     (:FUNCTION FILE-LENGTH (STREAM))
+     (:FUNCTION FILE-NAMESTRING (PATHNAME))
+     (:FUNCTION FILE-POSITION (STREAM &OPTIONAL POSITION))
+     (:FUNCTION FILE-STRING-LENGTH (STREAM OBJECT))
+     (:FUNCTION FILE-WRITE-DATE (FILE))
+     (:FUNCTION FILL (SEQUENCE ITEM &KEY (START 0) (END NIL)))
+     (:FUNCTION FILL-POINTER (VECTOR))
+     (:FUNCTION FIND (ITEM SEQUENCE &KEY FROM-END (START 0) END KEY TEST TEST-NOT))
+     (:FUNCTION FIND-ALL-SYMBOLS (STRING-OR-SYMBOL))
+     (:FUNCTION FIND-CLASS (SYMBOL &OPTIONAL (ERRORP T) ENVIRONMENT))
+     (:FUNCTION FIND-IF (PREDICATE SEQUENCE &KEY FROM-END (START 0) END KEY))
+     (:FUNCTION FIND-IF-NOT (PREDICATE SEQUENCE &KEY FROM-END (START 0) END KEY))
+     (:GENERIC FIND-METHOD (GENERIC-FUNCTION QUALIFIERS SPECIALIZERS &OPTIONAL (ERRORP T)))
+     (:FUNCTION FIND-PACKAGE (PACKAGE-DESIGNATOR))
+     (:FUNCTION FIND-RESTART (NAME &OPTIONAL CONDITION))
+     (:FUNCTION FIND-SYMBOL (NAME &OPTIONAL (PACKAGE (SANE-PACKAGE))))
+     (:FUNCTION FINISH-OUTPUT (&OPTIONAL (STREAM *STANDARD-OUTPUT*)))
+     (:FUNCTION FIRST (LIST))
+     (:SPECIAL-OPERATOR FLET (DEFINITIONS &BODY BODY))
+     (:FUNCTION FLOAT (NUMBER &OPTIONAL (OTHER NIL OTHERP)))
+     (:FUNCTION FLOAT-DIGITS (F))
+     (:FUNCTION FLOAT-PRECISION (F))
+     (:FUNCTION FLOAT-RADIX (X))
+     (:FUNCTION FLOAT-SIGN (FLOAT1 &OPTIONAL (FLOAT2 (FLOAT 1 FLOAT1))))
+     (:FUNCTION FLOATP (OBJECT))
+     (:FUNCTION FLOOR (NUMBER &OPTIONAL (DIVISOR 1)))
+     (:FUNCTION FMAKUNBOUND (NAME))
+     (:FUNCTION FORCE-OUTPUT (&OPTIONAL (STREAM *STANDARD-OUTPUT*)))
+     (:FUNCTION FORMAT (DESTINATION CONTROL-STRING &REST FORMAT-ARGUMENTS))
+     (:MACRO FORMATTER (CONTROL-STRING))
+     (:FUNCTION FOURTH (LIST))
+     (:FUNCTION FRESH-LINE (&OPTIONAL (STREAM *STANDARD-OUTPUT*)))
+     (:FUNCTION FROUND (NUMBER &OPTIONAL (DIVISOR 1)))
+     (:FUNCTION FTRUNCATE (NUMBER &OPTIONAL (DIVISOR 1)))
+     (:FUNCTION FUNCALL (FUNCTION &REST ARGUMENTS))
+     (:SPECIAL-OPERATOR FUNCTION (THING))
+     (:GENERIC FUNCTION-KEYWORDS (METHOD))
+     (:FUNCTION FUNCTION-LAMBDA-EXPRESSION (FUN))
+     (:FUNCTION FUNCTIONP (OBJECT))
+     (:FUNCTION GCD (&REST NUMBERS))
+     (:FUNCTION GENSYM (&OPTIONAL (THING "G")))
+     (:FUNCTION GENTEMP (&OPTIONAL (PREFIX "T") (PACKAGE (SANE-PACKAGE))))
+     (:FUNCTION GET (SYMBOL INDICATOR &OPTIONAL (DEFAULT NIL)))
+     (:FUNCTION GET-DECODED-TIME NIL)
+     (:FUNCTION GET-DISPATCH-MACRO-CHARACTER (DISP-CHAR SUB-CHAR &OPTIONAL (RT *READTABLE*)))
+     (:FUNCTION GET-INTERNAL-REAL-TIME NIL)
+     (:FUNCTION GET-INTERNAL-RUN-TIME NIL)
+     (:FUNCTION GET-MACRO-CHARACTER (CHAR &OPTIONAL (READTABLE *READTABLE*)))
+     (:FUNCTION GET-OUTPUT-STREAM-STRING (STREAM))
+     (:FUNCTION GET-PROPERTIES (PLACE INDICATOR-LIST))
+     (:FUNCTION GET-SETF-EXPANSION (FORM &OPTIONAL ENVIRONMENT))
+     (:FUNCTION GET-UNIVERSAL-TIME NIL)
+     (:FUNCTION GETF (PLACE INDICATOR &OPTIONAL (DEFAULT NIL)))
+     (:FUNCTION GETHASH (KEY HASH-TABLE &OPTIONAL DEFAULT))
+     (:SPECIAL-OPERATOR GO (TAG))
+     (:FUNCTION GRAPHIC-CHAR-P (CHAR))
+     (:MACRO HANDLER-BIND (BINDINGS &BODY FORMS))
+     (:MACRO HANDLER-CASE (FORM &REST CASES))
+     (:FUNCTION HASH-TABLE-COUNT (HASH-TABLE))
+     (:FUNCTION HASH-TABLE-P (OBJECT))
+     (:FUNCTION HASH-TABLE-REHASH-SIZE (INSTANCE))
+     (:FUNCTION HASH-TABLE-REHASH-THRESHOLD (INSTANCE))
+     (:FUNCTION HASH-TABLE-SIZE (HASH-TABLE))
+     (:FUNCTION HASH-TABLE-TEST (INSTANCE))
+     (:FUNCTION HOST-NAMESTRING (PATHNAME))
+     (:FUNCTION IDENTITY (THING))
+     (:SPECIAL-OPERATOR IF (TEST THEN &OPTIONAL ELSE))
+     (:MACRO IGNORE-ERRORS (&REST FORMS))
+     (:FUNCTION IMAGPART (NUMBER))
+     (:FUNCTION IMPORT (SYMBOLS &OPTIONAL (PACKAGE (SANE-PACKAGE))))
+     (:MACRO IN-PACKAGE (PACKAGE-DESIGNATOR))
+     (:MACRO INCF (G280 &OPTIONAL (DELTA 1) &ENVIRONMENT G279))
+     (:GENERIC INITIALIZE-INSTANCE (INSTANCE &REST INITARGS))
+     (:GENERIC INPUT-STREAM-P (NON-STREAM))
+     (:FUNCTION INSPECT (OBJECT))
+     (:FUNCTION INTEGER-DECODE-FLOAT (X))
+     (:FUNCTION INTEGER-LENGTH (INTEGER))
+     (:FUNCTION INTEGERP (OBJECT))
+     (:FUNCTION INTERACTIVE-STREAM-P (STREAM))
+     (:FUNCTION INTERN (NAME &OPTIONAL (PACKAGE (SANE-PACKAGE))))
+     (:FUNCTION INTERSECTION (LIST1 LIST2 &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT NIL NOTP)))
+     (:FUNCTION INVALID-METHOD-ERROR (METHOD FORMAT-CONTROL &REST FORMAT-ARGUMENTS))
+     (:FUNCTION INVOKE-DEBUGGER (CONDITION))
+     (:FUNCTION INVOKE-RESTART (RESTART &REST VALUES))
+     (:FUNCTION INVOKE-RESTART-INTERACTIVELY (RESTART))
+     (:FUNCTION ISQRT (N))
+     (:FUNCTION KEYWORDP (OBJECT))
+     (:SPECIAL-OPERATOR LABELS (DEFINITIONS &BODY BODY))
+     (:MACRO LAMBDA (&WHOLE WHOLE ARGS &BODY BODY))
+     (:FUNCTION LAST (LIST &OPTIONAL (N 1)))
+     (:FUNCTION LCM (&REST NUMBERS))
+     (:FUNCTION LDB (BYTESPEC INTEGER))
+     (:FUNCTION LDB-TEST (BYTESPEC INTEGER))
+     (:FUNCTION LDIFF (LIST OBJECT))
+     (:FUNCTION LENGTH (SEQUENCE))
+     (:SPECIAL-OPERATOR LET (BINDINGS &BODY BODY))
+     (:SPECIAL-OPERATOR LET* (BINDINGS &BODY BODY))
+     (:FUNCTION LISP-IMPLEMENTATION-TYPE NIL)
+     (:FUNCTION LISP-IMPLEMENTATION-VERSION NIL)
+     (:FUNCTION LIST (&REST ARGS))
+     (:FUNCTION LIST* (ARG &REST OTHERS))
+     (:FUNCTION LIST-ALL-PACKAGES NIL)
+     (:FUNCTION LIST-LENGTH (LIST))
+     (:FUNCTION LISTEN (&OPTIONAL (STREAM *STANDARD-INPUT*)))
+     (:FUNCTION LISTP (OBJECT))
+     (:FUNCTION LOAD (FILESPEC &KEY (VERBOSE *LOAD-VERBOSE*) (PRINT *LOAD-PRINT*) (IF-DOES-NOT-EXIST T) (EXTERNAL-FORMAT DEFAULT)))
+     (:FUNCTION LOAD-LOGICAL-PATHNAME-TRANSLATIONS (HOST))
+     (:SPECIAL-OPERATOR LOAD-TIME-VALUE (FORM &OPTIONAL READ-ONLY-P))
+     (:SPECIAL-OPERATOR LOCALLY (&BODY BODY))
+     (:FUNCTION LOG (NUMBER &OPTIONAL (BASE NIL BASE-P)))
+     (:FUNCTION LOGAND (&REST INTEGERS))
+     (:FUNCTION LOGANDC1 (INTEGER1 INTEGER2))
+     (:FUNCTION LOGANDC2 (INTEGER1 INTEGER2))
+     (:FUNCTION LOGBITP (INDEX INTEGER))
+     (:FUNCTION LOGCOUNT (INTEGER))
+     (:FUNCTION LOGEQV (&REST INTEGERS))
+     (:FUNCTION LOGICAL-PATHNAME (PATHSPEC))
+     (:FUNCTION LOGICAL-PATHNAME-TRANSLATIONS (HOST))
+     (:FUNCTION LOGIOR (&REST INTEGERS))
+     (:FUNCTION LOGNAND (INTEGER1 INTEGER2))
+     (:FUNCTION LOGNOR (INTEGER1 INTEGER2))
+     (:FUNCTION LOGNOT (NUMBER))
+     (:FUNCTION LOGORC1 (INTEGER1 INTEGER2))
+     (:FUNCTION LOGORC2 (INTEGER1 INTEGER2))
+     (:FUNCTION LOGTEST (INTEGER1 INTEGER2))
+     (:FUNCTION LOGXOR (&REST INTEGERS))
+     (:FUNCTION LONG-SITE-NAME NIL)
+     (:MACRO LOOP (&ENVIRONMENT ENV &REST KEYWORDS-AND-FORMS))
+     (:MACRO LOOP-FINISH NIL)
+     (:FUNCTION LOWER-CASE-P (CHAR))
+     (:FUNCTION MACHINE-INSTANCE NIL)
+     (:FUNCTION MACHINE-TYPE NIL)
+     (:FUNCTION MACHINE-VERSION NIL)
+     (:FUNCTION MACRO-FUNCTION (SYMBOL &OPTIONAL ENV))
+     (:FUNCTION MACROEXPAND (FORM &OPTIONAL ENV))
+     (:FUNCTION MACROEXPAND-1 (FORM &OPTIONAL ENV))
+     (:SPECIAL-OPERATOR MACROLET (DEFINITIONS &REST BODY))
+     (:FUNCTION MAKE-ARRAY (DIMENSIONS &KEY (ELEMENT-TYPE T) (INITIAL-ELEMENT NIL INITIAL-ELEMENT-P) (INITIAL-CONTENTS NIL INITIAL-CONTENTS-P) ADJUSTABLE FILL-POINTER DISPLACED-TO DISPLACED-INDEX-OFFSET))
+     (:FUNCTION MAKE-BROADCAST-STREAM (&REST STREAMS))
+     (:FUNCTION MAKE-CONCATENATED-STREAM (&REST STREAMS))
+     (:FUNCTION MAKE-CONDITION (THING &REST ARGS))
+     (:FUNCTION MAKE-DISPATCH-MACRO-CHARACTER (CHAR &OPTIONAL (NON-TERMINATING-P NIL) (RT *READTABLE*)))
+     (:FUNCTION MAKE-ECHO-STREAM (INPUT-STREAM OUTPUT-STREAM))
+     (:FUNCTION MAKE-HASH-TABLE (&KEY (TEST (QUOTE EQL)) (SIZE +MIN-HASH-TABLE-SIZE+) (REHASH-SIZE 1.5) (REHASH-THRESHOLD 1) (WEAK-P NIL)))
+     (:GENERIC MAKE-INSTANCE (CLASS &REST INITARGS))
+     (:GENERIC MAKE-INSTANCES-OBSOLETE (CLASS))
+     (:FUNCTION MAKE-LIST (SIZE &KEY INITIAL-ELEMENT))
+     (:GENERIC MAKE-LOAD-FORM (RANDOM-STATE &OPTIONAL ENVIRONMENT))
+     (:FUNCTION MAKE-LOAD-FORM-SAVING-SLOTS (OBJECT &KEY SLOT-NAMES ENVIRONMENT))
+     (:FUNCTION MAKE-PACKAGE (NAME &KEY (USE (QUOTE NIL)) NICKNAMES (INTERNAL-SYMBOLS 10) (EXTERNAL-SYMBOLS 10)))
+     (:FUNCTION MAKE-PATHNAME (&KEY HOST (DEVICE NIL DEVP) (DIRECTORY NIL DIRP) (NAME NIL NAMEP) (TYPE NIL TYPEP) (VERSION NIL VERSIONP) DEFAULTS (CASE LOCAL)))
+     (:FUNCTION MAKE-RANDOM-STATE (&OPTIONAL STATE))
+     (:FUNCTION MAKE-SEQUENCE (TYPE LENGTH &KEY (INITIAL-ELEMENT NIL IEP)))
+     (:FUNCTION MAKE-STRING (COUNT &KEY (ELEMENT-TYPE (QUOTE CHARACTER)) ((INITIAL-ELEMENT FILL-CHAR))))
+     (:FUNCTION MAKE-STRING-INPUT-STREAM (STRING &OPTIONAL (START 0) END))
+     (:FUNCTION MAKE-STRING-OUTPUT-STREAM (&KEY (ELEMENT-TYPE (QUOTE CHARACTER)) &AUX (STRING (MAKE-STRING 40))))
+     (:FUNCTION MAKE-SYMBOL (STRING))
+     (:FUNCTION MAKE-SYNONYM-STREAM (SYMBOL))
+     (:FUNCTION MAKE-TWO-WAY-STREAM (INPUT-STREAM OUTPUT-STREAM))
+     (:FUNCTION MAKUNBOUND (SYMBOL))
+     (:FUNCTION MAP (RESULT-TYPE FUNCTION FIRST-SEQUENCE &REST MORE-SEQUENCES))
+     (:FUNCTION MAP-INTO (RESULT-SEQUENCE FUNCTION &REST SEQUENCES))
+     (:FUNCTION MAPC (FUNCTION LIST &REST MORE-LISTS))
+     (:FUNCTION MAPCAN (FUNCTION LIST &REST MORE-LISTS))
+     (:FUNCTION MAPCAR (FUNCTION LIST &REST MORE-LISTS))
+     (:FUNCTION MAPCON (FUNCTION LIST &REST MORE-LISTS))
+     (:FUNCTION MAPHASH (FUNCTION-DESIGNATOR HASH-TABLE))
+     (:FUNCTION MAPL (FUNCTION LIST &REST MORE-LISTS))
+     (:FUNCTION MAPLIST (FUNCTION LIST &REST MORE-LISTS))
+     (:FUNCTION MASK-FIELD (BYTESPEC INTEGER))
+     (:FUNCTION MAX (NUMBER &REST MORE-NUMBERS))
+     (:FUNCTION MEMBER (ITEM LIST &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT (FUNCTION EQL) NOTP)))
+     (:FUNCTION MEMBER-IF (TEST LIST &KEY KEY))
+     (:FUNCTION MEMBER-IF-NOT (TEST LIST &KEY KEY))
+     (:FUNCTION MERGE (RESULT-TYPE SEQUENCE1 SEQUENCE2 PREDICATE &KEY KEY))
+     (:FUNCTION MERGE-PATHNAMES (PATHNAME &OPTIONAL (DEFAULTS *DEFAULT-PATHNAME-DEFAULTS*) (DEFAULT-VERSION NEWEST)))
+     (:FUNCTION METHOD-COMBINATION-ERROR (FORMAT-CONTROL &REST FORMAT-ARGUMENTS))
+     (:GENERIC METHOD-QUALIFIERS (METHOD))
+     (:FUNCTION MIN (NUMBER &REST MORE-NUMBERS))
+     (:FUNCTION MINUSP (NUMBER))
+     (:FUNCTION MISMATCH (SEQUENCE1 SEQUENCE2 &KEY FROM-END (TEST (FUNCTION EQL)) (TEST-NOT NIL) (START1 0) (END1 NIL) (START2 0) (END2 NIL) (KEY NIL)))
+     (:FUNCTION MOD (NUMBER DIVISOR))
+     (:FUNCTION MUFFLE-WARNING (&OPTIONAL CONDITION))
+     (:MACRO MULTIPLE-VALUE-BIND (VARS VALUE-FORM &BODY BODY))
+     (:SPECIAL-OPERATOR MULTIPLE-VALUE-CALL (FUN &REST ARGS))
+     (:MACRO MULTIPLE-VALUE-LIST (VALUE-FORM))
+     (:SPECIAL-OPERATOR MULTIPLE-VALUE-PROG1 (VALUES-FORM &REST FORMS))
+     (:MACRO MULTIPLE-VALUE-SETQ (VARS VALUE-FORM))
+     (:FUNCTION NAME-CHAR (NAME))
+     (:FUNCTION NAMESTRING (PATHNAME))
+     (:FUNCTION NBUTLAST (LIST &OPTIONAL (N 1)))
+     (:FUNCTION NCONC (&REST LISTS))
+     (:FUNCTION NINTERSECTION (LIST1 LIST2 &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT NIL NOTP)))
+     (:FUNCTION NINTH (LIST))
+     (:GENERIC NO-APPLICABLE-METHOD (GENERIC-FUNCTION &REST ARGS))
+     (:GENERIC NO-NEXT-METHOD (GENERIC-FUNCTION METHOD &REST ARGS))
+     (:FUNCTION NOT (OBJECT))
+     (:FUNCTION NOTANY (PRED FIRST-SEQ &REST MORE-SEQS))
+     (:FUNCTION NOTEVERY (PRED FIRST-SEQ &REST MORE-SEQS))
+     (:FUNCTION NRECONC (X Y))
+     (:FUNCTION NREVERSE (SEQUENCE))
+     (:FUNCTION NSET-DIFFERENCE (LIST1 LIST2 &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT NIL NOTP)))
+     (:FUNCTION NSET-EXCLUSIVE-OR (LIST1 LIST2 &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT (FUNCTION EQL) NOTP)))
+     (:FUNCTION NSTRING-CAPITALIZE (STRING &KEY (START 0) END))
+     (:FUNCTION NSTRING-DOWNCASE (STRING &KEY (START 0) END))
+     (:FUNCTION NSTRING-UPCASE (STRING &KEY (START 0) END))
+     (:FUNCTION NSUBLIS (ALIST TREE &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT (FUNCTION EQL) NOTP)))
+     (:FUNCTION NSUBST (NEW OLD TREE &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT (FUNCTION EQL) NOTP)))
+     (:FUNCTION NSUBST-IF (NEW TEST TREE &KEY KEY))
+     (:FUNCTION NSUBST-IF-NOT (NEW TEST TREE &KEY KEY))
+     (:FUNCTION NSUBSTITUTE (NEW OLD SEQUENCE &KEY FROM-END (TEST (FUNCTION EQL)) (TEST-NOT NIL) (END NIL) (COUNT NIL) (KEY NIL) (START 0)))
+     (:FUNCTION NSUBSTITUTE-IF (NEW PRED SEQUENCE &KEY FROM-END (START 0) (END NIL) (COUNT NIL) (KEY NIL)))
+     (:FUNCTION NSUBSTITUTE-IF-NOT (NEW PRED SEQUENCE &KEY FROM-END (START 0) (END NIL) (COUNT NIL) (KEY NIL)))
+     (:FUNCTION NTH (N LIST))
+     (:MACRO NTH-VALUE (N FORM))
+     (:FUNCTION NTHCDR (N LIST))
+     (:FUNCTION NULL (OBJECT))
+     (:FUNCTION NUMBERP (OBJECT))
+     (:FUNCTION NUMERATOR (NUMBER))
+     (:FUNCTION NUNION (LIST1 LIST2 &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT NIL NOTP)))
+     (:FUNCTION ODDP (NUMBER))
+     (:FUNCTION OPEN (FILENAME &KEY (DIRECTION INPUT) (ELEMENT-TYPE (QUOTE BASE-CHAR)) (IF-EXISTS NIL IF-EXISTS-GIVEN) (IF-DOES-NOT-EXIST NIL IF-DOES-NOT-EXIST-GIVEN) (EXTERNAL-FORMAT DEFAULT) &AUX (DIRECTION DIRECTION) (IF-DOES-NOT-EXIST IF-DOES-NOT-EXIST) (IF-EXISTS IF-EXISTS)))
+     (:GENERIC OPEN-STREAM-P (NON-STREAM))
+     (:MACRO OR (&REST FORMS))
+     (:GENERIC OUTPUT-STREAM-P (NON-STREAM))
+     (:FUNCTION PACKAGE-ERROR-PACKAGE (CONDITION))
+     (:FUNCTION PACKAGE-NAME (PACKAGE-DESIGNATOR))
+     (:FUNCTION PACKAGE-NICKNAMES (X))
+     (:FUNCTION PACKAGE-SHADOWING-SYMBOLS (X))
+     (:FUNCTION PACKAGE-USE-LIST (X))
+     (:FUNCTION PACKAGE-USED-BY-LIST (X))
+     (:FUNCTION PACKAGEP (OBJECT))
+     (:FUNCTION PAIRLIS (KEYS DATA &OPTIONAL (ALIST (QUOTE NIL))))
+     (:FUNCTION PARSE-INTEGER (STRING &KEY (START 0) END (RADIX 10) JUNK-ALLOWED))
+     (:FUNCTION PARSE-NAMESTRING (THING &OPTIONAL HOST (DEFAULTS *DEFAULT-PATHNAME-DEFAULTS*) &KEY (START 0) END JUNK-ALLOWED))
+     (:FUNCTION PATHNAME (THING))
+     (:FUNCTION PATHNAME-DEVICE (PATHNAME &KEY (CASE LOCAL)))
+     (:FUNCTION PATHNAME-DIRECTORY (PATHNAME &KEY (CASE LOCAL)))
+     (:FUNCTION PATHNAME-HOST (PATHNAME &KEY (CASE LOCAL)))
+     (:FUNCTION PATHNAME-MATCH-P (IN-PATHNAME IN-WILDNAME))
+     (:FUNCTION PATHNAME-NAME (PATHNAME &KEY (CASE LOCAL)))
+     (:FUNCTION PATHNAME-TYPE (PATHNAME &KEY (CASE LOCAL)))
+     (:FUNCTION PATHNAME-VERSION (PATHNAME))
+     (:FUNCTION PATHNAMEP (OBJECT))
+     (:FUNCTION PEEK-CHAR (&OPTIONAL (PEEK-TYPE NIL) (STREAM *STANDARD-INPUT*) (EOF-ERROR-P T) EOF-VALUE RECURSIVE-P))
+     (:FUNCTION PHASE (NUMBER))
+     (:FUNCTION PLUSP (NUMBER))
+     (:MACRO POP (PLACE &ENVIRONMENT ENV))
+     (:FUNCTION POSITION (ITEM SEQUENCE &KEY FROM-END (START 0) END KEY TEST TEST-NOT))
+     (:FUNCTION POSITION-IF (PREDICATE SEQUENCE &KEY FROM-END (START 0) END KEY))
+     (:FUNCTION POSITION-IF-NOT (PREDICATE SEQUENCE &KEY FROM-END (START 0) END KEY))
+     (:FUNCTION PPRINT (OBJECT &OPTIONAL STREAM))
+     (:FUNCTION PPRINT-DISPATCH (OBJECT &OPTIONAL (TABLE *PRINT-PPRINT-DISPATCH*)))
+     (:MACRO PPRINT-EXIT-IF-LIST-EXHAUSTED NIL)
+     (:FUNCTION PPRINT-FILL (STREAM LIST &OPTIONAL (COLON-P T) ATSIGN-P))
+     (:FUNCTION PPRINT-INDENT (RELATIVE-TO N &OPTIONAL STREAM))
+     (:FUNCTION PPRINT-LINEAR (STREAM LIST &OPTIONAL (COLON-P T) ATSIGN-P))
+     (:MACRO PPRINT-LOGICAL-BLOCK ((STREAM-SYMBOL OBJECT &KEY (PREFIX NIL PREFIXP) (PER-LINE-PREFIX NIL PER-LINE-PREFIX-P) (SUFFIX "" SUFFIXP)) &BODY BODY))
+     (:FUNCTION PPRINT-NEWLINE (KIND &OPTIONAL STREAM))
+     (:MACRO PPRINT-POP NIL)
+     (:FUNCTION PPRINT-TAB (KIND COLNUM COLINC &OPTIONAL STREAM))
+     (:FUNCTION PPRINT-TABULAR (STREAM LIST &OPTIONAL (COLON-P T) ATSIGN-P TABSIZE))
+     (:FUNCTION PRIN1 (OBJECT &OPTIONAL STREAM))
+     (:FUNCTION PRIN1-TO-STRING (OBJECT))
+     (:FUNCTION PRINC (OBJECT &OPTIONAL STREAM))
+     (:FUNCTION PRINC-TO-STRING (OBJECT))
+     (:FUNCTION PRINT (OBJECT &OPTIONAL STREAM))
+     (:FUNCTION PRINT-NOT-READABLE-OBJECT (CONDITION))
+     (:GENERIC PRINT-OBJECT (SELF OUT))
+     (:MACRO PRINT-UNREADABLE-OBJECT ((OBJECT STREAM &KEY TYPE IDENTITY) &BODY BODY))
+     (:FUNCTION PROBE-FILE (PATHNAME))
+     (:FUNCTION PROCLAIM (RAW-FORM))
+     (:MACRO PROG (VARLIST &BODY BODY-DECLS))
+     (:MACRO PROG* (VARLIST &BODY BODY-DECLS))
+     (:MACRO PROG1 (RESULT &BODY BODY))
+     (:MACRO PROG2 (FORM1 RESULT &BODY BODY))
+     (:SPECIAL-OPERATOR PROGN (&REST FORMS))
+     (:SPECIAL-OPERATOR PROGV (VARS VALS &BODY BODY))
+     (:FUNCTION PROVIDE (MODULE-NAME))
+     (:MACRO PSETF (&REST ARGS &ENVIRONMENT ENV))
+     (:MACRO PSETQ (&REST PAIRS))
+     (:MACRO PUSH (OBJ PLACE &ENVIRONMENT ENV))
+     (:MACRO PUSHNEW (OBJ PLACE &REST KEYS &ENVIRONMENT ENV))
+     (:SPECIAL-OPERATOR QUOTE (THING))
+     (:FUNCTION RANDOM (ARG &OPTIONAL (STATE *RANDOM-STATE*)))
+     (:FUNCTION RANDOM-STATE-P (OBJECT))
+     (:FUNCTION RASSOC (ITEM ALIST &KEY KEY (TEST NIL TESTP) (TEST-NOT NIL NOTP)))
+     (:FUNCTION RASSOC-IF (PREDICATE ALIST &KEY KEY))
+     (:FUNCTION RASSOC-IF-NOT (PREDICATE ALIST &KEY KEY))
+     (:FUNCTION RATIONAL (X))
+     (:FUNCTION RATIONALIZE (X))
+     (:FUNCTION RATIONALP (OBJECT))
+     (:FUNCTION READ (&OPTIONAL (STREAM *STANDARD-INPUT*) (EOF-ERROR-P T) (EOF-VALUE NIL) (RECURSIVEP NIL)))
+     (:FUNCTION READ-BYTE (STREAM &OPTIONAL (EOF-ERROR-P T) EOF-VALUE))
+     (:FUNCTION READ-CHAR (&OPTIONAL (STREAM *STANDARD-INPUT*) (EOF-ERROR-P T) EOF-VALUE RECURSIVE-P))
+     (:FUNCTION READ-CHAR-NO-HANG (&OPTIONAL (STREAM *STANDARD-INPUT*) (EOF-ERROR-P T) EOF-VALUE RECURSIVE-P))
+     (:FUNCTION READ-DELIMITED-LIST (ENDCHAR &OPTIONAL (INPUT-STREAM *STANDARD-INPUT*) RECURSIVE-P))
+     (:FUNCTION READ-FROM-STRING (STRING &OPTIONAL EOF-ERROR-P EOF-VALUE &KEY (START 0) END PRESERVE-WHITESPACE))
+     (:FUNCTION READ-LINE (&OPTIONAL (STREAM *STANDARD-INPUT*) (EOF-ERROR-P T) EOF-VALUE RECURSIVE-P))
+     (:FUNCTION READ-PRESERVING-WHITESPACE (&OPTIONAL (STREAM *STANDARD-INPUT*) (EOF-ERROR-P T) (EOF-VALUE NIL) (RECURSIVEP NIL)))
+     (:FUNCTION READ-SEQUENCE (SEQ STREAM &KEY (START 0) END))
+     (:FUNCTION READTABLE-CASE (INSTANCE))
+     (:FUNCTION READTABLEP (OBJECT))
+     (:FUNCTION REALP (OBJECT))
+     (:FUNCTION REALPART (NUMBER))
+     (:FUNCTION REDUCE (FUNCTION SEQUENCE &KEY (KEY NIL) FROM-END (START 0) (END NIL) (INITIAL-VALUE NIL IVP)))
+     (:GENERIC REINITIALIZE-INSTANCE (INSTANCE &REST INITARGS))
+     (:FUNCTION REM (NUMBER DIVISOR))
+     (:MACRO REMF (PLACE INDICATOR &ENVIRONMENT ENV))
+     (:FUNCTION REMHASH (KEY HASH-TABLE))
+     (:FUNCTION REMOVE (ITEM SEQUENCE &KEY FROM-END (TEST (FUNCTION EQL)) (TEST-NOT NIL) (START 0) (END NIL) (COUNT NIL) (KEY NIL)))
+     (:FUNCTION REMOVE-DUPLICATES (SEQUENCE &KEY (TEST (FUNCTION EQL)) (TEST-NOT NIL) (START 0) (END NIL) FROM-END (KEY NIL)))
+     (:FUNCTION REMOVE-IF (PREDICATE SEQUENCE &KEY FROM-END (START 0) (END NIL) (COUNT NIL) (KEY NIL)))
+     (:FUNCTION REMOVE-IF-NOT (PREDICATE SEQUENCE &KEY FROM-END (START 0) (END NIL) (COUNT NIL) (KEY NIL)))
+     (:GENERIC REMOVE-METHOD (GENERIC-FUNCTION METHOD))
+     (:FUNCTION REMPROP (SYMBOL INDICATOR))
+     (:FUNCTION RENAME-FILE (FILE NEW-NAME))
+     (:FUNCTION RENAME-PACKAGE (PACKAGE NAME &OPTIONAL (NICKNAMES NIL)))
+     (:FUNCTION REPLACE (SEQUENCE1 SEQUENCE2 &KEY (START1 0) (END1 NIL) (START2 0) (END2 NIL)))
+     (:FUNCTION REQUIRE (MODULE-NAME &OPTIONAL PATHNAMES))
+     (:FUNCTION REST (LIST))
+     (:MACRO RESTART-BIND (BINDINGS &BODY FORMS))
+     (:MACRO RESTART-CASE (EXPRESSION &BODY CLAUSES &ENVIRONMENT ENV))
+     (:FUNCTION RESTART-NAME (INSTANCE))
+     (:MACRO RETURN (&OPTIONAL (VALUE NIL)))
+     (:SPECIAL-OPERATOR RETURN-FROM (NAME &OPTIONAL VALUE))
+     (:FUNCTION REVAPPEND (X Y))
+     (:FUNCTION REVERSE (SEQUENCE))
+     (:FUNCTION ROOM (&OPTIONAL (VERBOSITY DEFAULT)))
+     (:MACRO ROTATEF (&REST ARGS &ENVIRONMENT ENV))
+     (:FUNCTION ROUND (NUMBER &OPTIONAL (DIVISOR 1)))
+     (:FUNCTION ROW-MAJOR-AREF (ARRAY INDEX))
+     (:FUNCTION RPLACA (X Y))
+     (:FUNCTION RPLACD (X Y))
+     (:FUNCTION SBIT (SIMPLE-BIT-ARRAY &REST SUBSCRIPTS))
+     (:FUNCTION SCALE-FLOAT (F EX))
+     (:FUNCTION SCHAR (STRING INDEX))
+     (:FUNCTION SEARCH (SEQUENCE1 SEQUENCE2 &KEY FROM-END (TEST (FUNCTION EQL)) (TEST-NOT NIL) (START1 0) (END1 NIL) (START2 0) (END2 NIL) (KEY NIL)))
+     (:FUNCTION SECOND (LIST))
+     (:FUNCTION SET (SYMBOL NEW-VALUE))
+     (:FUNCTION SET-DIFFERENCE (LIST1 LIST2 &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT NIL NOTP)))
+     (:FUNCTION SET-DISPATCH-MACRO-CHARACTER (DISP-CHAR SUB-CHAR FUNCTION &OPTIONAL (RT *READTABLE*)))
+     (:FUNCTION SET-EXCLUSIVE-OR (LIST1 LIST2 &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT (FUNCTION EQL) NOTP)))
+     (:FUNCTION SET-MACRO-CHARACTER (CHAR FUNCTION &OPTIONAL (NON-TERMINATINGP NIL) (READTABLE *READTABLE*)))
+     (:FUNCTION SET-PPRINT-DISPATCH (TYPE FUNCTION &OPTIONAL (PRIORITY 0) (TABLE *PRINT-PPRINT-DISPATCH*)))
+     (:FUNCTION SET-SYNTAX-FROM-CHAR (TO-CHAR FROM-CHAR &OPTIONAL (TO-READTABLE *READTABLE*) (FROM-READTABLE NIL)))
+     (:MACRO SETF (&REST ARGS &ENVIRONMENT ENV))
+     (:SPECIAL-OPERATOR SETQ (&WHOLE SOURCE &REST THINGS))
+     (:FUNCTION SEVENTH (LIST))
+     (:FUNCTION SHADOW (SYMBOLS &OPTIONAL (PACKAGE (SANE-PACKAGE))))
+     (:FUNCTION SHADOWING-IMPORT (SYMBOLS &OPTIONAL (PACKAGE (SANE-PACKAGE))))
+     (:GENERIC SHARED-INITIALIZE (INSTANCE SLOT-NAMES &REST INITARGS &ALLOW-OTHER-KEYS))
+     (:MACRO SHIFTF (&WHOLE FORM &REST ARGS &ENVIRONMENT ENV))
+     (:FUNCTION SHORT-SITE-NAME NIL)
+     (:FUNCTION SIGNAL (DATUM &REST ARGUMENTS))
+     (:FUNCTION SIGNUM (NUMBER))
+     (:FUNCTION SIMPLE-BIT-VECTOR-P (OBJECT))
+     (:FUNCTION SIMPLE-CONDITION-FORMAT-ARGUMENTS (CONDITION))
+     (:FUNCTION SIMPLE-CONDITION-FORMAT-CONTROL (CONDITION))
+     (:FUNCTION SIMPLE-STRING-P (OBJECT))
+     (:FUNCTION SIMPLE-VECTOR-P (OBJECT))
+     (:FUNCTION SIN (NUMBER))
+     (:FUNCTION SINH (NUMBER))
+     (:FUNCTION SIXTH (LIST))
+     (:FUNCTION SLEEP (N))
+     (:FUNCTION SLOT-BOUNDP (OBJECT SLOT-NAME))
+     (:FUNCTION SLOT-EXISTS-P (OBJECT SLOT-NAME))
+     (:FUNCTION SLOT-MAKUNBOUND (OBJECT SLOT-NAME))
+     (:GENERIC SLOT-MISSING (CLASS INSTANCE SLOT-NAME OPERATION &OPTIONAL NEW-VALUE))
+     (:GENERIC SLOT-UNBOUND (CLASS INSTANCE SLOT-NAME))
+     (:FUNCTION SLOT-VALUE (OBJECT SLOT-NAME))
+     (:FUNCTION SOFTWARE-TYPE NIL)
+     (:FUNCTION SOFTWARE-VERSION NIL)
+     (:FUNCTION SOME (PRED FIRST-SEQ &REST MORE-SEQS))
+     (:FUNCTION SORT (SEQUENCE PREDICATE &KEY KEY))
+     (:FUNCTION SPECIAL-OPERATOR-P (SYMBOL))
+     (:FUNCTION SQRT (NUMBER))
+     (:FUNCTION STABLE-SORT (SEQUENCE PREDICATE &KEY KEY))
+     (:FUNCTION STANDARD-CHAR-P (CHAR))
+     (:MACRO STEP (FORM))
+     (:FUNCTION STORE-VALUE (VALUE &OPTIONAL CONDITION))
+     (:GENERIC STREAM-ELEMENT-TYPE (NON-STREAM))
+     (:FUNCTION STREAM-ERROR-STREAM (CONDITION))
+     (:FUNCTION STREAM-EXTERNAL-FORMAT (STREAM))
+     (:FUNCTION STREAMP (STREAM))
+     (:FUNCTION STRING (X))
+     (:FUNCTION STRING-CAPITALIZE (STRING &KEY (START 0) END))
+     (:FUNCTION STRING-DOWNCASE (STRING &KEY (START 0) END))
+     (:FUNCTION STRING-EQUAL (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
+     (:FUNCTION STRING-GREATERP (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
+     (:FUNCTION STRING-LEFT-TRIM (CHAR-BAG STRING))
+     (:FUNCTION STRING-LESSP (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
+     (:FUNCTION STRING-NOT-EQUAL (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
+     (:FUNCTION STRING-NOT-GREATERP (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
+     (:FUNCTION STRING-NOT-LESSP (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
+     (:FUNCTION STRING-RIGHT-TRIM (CHAR-BAG STRING))
+     (:FUNCTION STRING-TRIM (CHAR-BAG STRING))
+     (:FUNCTION STRING-UPCASE (STRING &KEY (START 0) END))
+     (:FUNCTION STRING/= (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
+     (:FUNCTION STRING< (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
+     (:FUNCTION STRING<= (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
+     (:FUNCTION STRING= (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
+     (:FUNCTION STRING> (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
+     (:FUNCTION STRING>= (STRING1 STRING2 &KEY (START1 0) END1 (START2 0) END2))
+     (:FUNCTION STRINGP (OBJECT))
+     (:FUNCTION SUBLIS (ALIST TREE &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT (FUNCTION EQL) NOTP)))
+     (:FUNCTION SUBSEQ (SEQUENCE START &OPTIONAL END))
+     (:FUNCTION SUBSETP (LIST1 LIST2 &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT NIL NOTP)))
+     (:FUNCTION SUBST (NEW OLD TREE &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT (FUNCTION EQL) NOTP)))
+     (:FUNCTION SUBST-IF (NEW TEST TREE &KEY KEY))
+     (:FUNCTION SUBST-IF-NOT (NEW TEST TREE &KEY KEY))
+     (:FUNCTION SUBSTITUTE (NEW OLD SEQUENCE &KEY FROM-END (TEST (FUNCTION EQL)) (TEST-NOT NIL) (START 0) (COUNT NIL) (END NIL) (KEY NIL)))
+     (:FUNCTION SUBSTITUTE-IF (NEW PRED SEQUENCE &KEY FROM-END (START 0) (END NIL) (COUNT NIL) (KEY NIL)))
+     (:FUNCTION SUBSTITUTE-IF-NOT (NEW PRED SEQUENCE &KEY FROM-END (START 0) (END NIL) (COUNT NIL) (KEY NIL)))
+     (:FUNCTION SUBTYPEP (TYPE1 TYPE2 &OPTIONAL ENVIRONMENT))
+     (:FUNCTION SVREF (SIMPLE-VECTOR INDEX))
+     (:FUNCTION SXHASH (X))
+     (:FUNCTION SYMBOL-FUNCTION (SYMBOL))
+     (:SPECIAL-OPERATOR SYMBOL-MACROLET (MACROBINDINGS &BODY BODY))
+     (:FUNCTION SYMBOL-NAME (SYMBOL))
+     (:FUNCTION SYMBOL-PACKAGE (SYMBOL))
+     (:FUNCTION SYMBOL-PLIST (SYMBOL))
+     (:FUNCTION SYMBOL-VALUE (SYMBOL))
+     (:FUNCTION SYMBOLP (OBJECT))
+     (:FUNCTION SYNONYM-STREAM-SYMBOL (INSTANCE))
+     (:SPECIAL-OPERATOR TAGBODY (&REST STATEMENTS))
+     (:FUNCTION TAILP (OBJECT LIST))
+     (:FUNCTION TAN (NUMBER))
+     (:FUNCTION TANH (NUMBER))
+     (:FUNCTION TENTH (LIST))
+     (:FUNCTION TERPRI (&OPTIONAL (STREAM *STANDARD-OUTPUT*)))
+     (:SPECIAL-OPERATOR THE (TYPE VALUE))
+     (:FUNCTION THIRD (LIST))
+     (:SPECIAL-OPERATOR THROW (TAG RESULT))
+     (:MACRO TIME (FORM))
+     (:MACRO TRACE (&REST SPECS))
+     (:FUNCTION TRANSLATE-LOGICAL-PATHNAME (PATHNAME &KEY))
+     (:FUNCTION TRANSLATE-PATHNAME (SOURCE FROM-WILDNAME TO-WILDNAME &KEY))
+     (:FUNCTION TREE-EQUAL (X Y &KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT NIL NOTP)))
+     (:FUNCTION TRUENAME (PATHNAME))
+     (:FUNCTION TRUNCATE (NUMBER &OPTIONAL (DIVISOR 1)))
+     (:FUNCTION TWO-WAY-STREAM-INPUT-STREAM (INSTANCE))
+     (:FUNCTION TWO-WAY-STREAM-OUTPUT-STREAM (INSTANCE))
+     (:FUNCTION TYPE-ERROR-DATUM (CONDITION))
+     (:FUNCTION TYPE-ERROR-EXPECTED-TYPE (CONDITION))
+     (:FUNCTION TYPE-OF (OBJECT))
+     (:MACRO TYPECASE (KEYFORM &BODY CASES))
+     (:FUNCTION TYPEP (OBJECT TYPE &OPTIONAL ENVIRONMENT))
+     (:FUNCTION UNBOUND-SLOT-INSTANCE (CONDITION))
+     (:FUNCTION UNEXPORT (SYMBOLS &OPTIONAL (PACKAGE (SANE-PACKAGE))))
+     (:FUNCTION UNINTERN (SYMBOL &OPTIONAL (PACKAGE (SANE-PACKAGE))))
+     (:FUNCTION UNION (LIST1 LIST2 &KEY KEY (TEST (FUNCTION EQL) TESTP) (TEST-NOT NIL NOTP)))
+     (:MACRO UNLESS (TEST &BODY FORMS))
+     (:FUNCTION UNREAD-CHAR (CHARACTER &OPTIONAL (STREAM *STANDARD-INPUT*)))
+     (:MACRO UNTRACE (&REST SPECS))
+     (:FUNCTION UNUSE-PACKAGE (PACKAGES-TO-UNUSE &OPTIONAL (PACKAGE (SANE-PACKAGE))))
+     (:SPECIAL-OPERATOR UNWIND-PROTECT (PROTECTED &BODY CLEANUP))
+     (:GENERIC UPDATE-INSTANCE-FOR-DIFFERENT-CLASS (PREVIOUS CURRENT &REST INITARGS))
+     (:GENERIC UPDATE-INSTANCE-FOR-REDEFINED-CLASS (INSTANCE ADDED-SLOTS DISCARDED-SLOTS PROPERTY-LIST &REST INITARGS))
+     (:FUNCTION UPGRADED-ARRAY-ELEMENT-TYPE (SPEC &OPTIONAL ENVIRONMENT))
+     (:FUNCTION UPGRADED-COMPLEX-PART-TYPE (SPEC &OPTIONAL ENVIRONMENT))
+     (:FUNCTION UPPER-CASE-P (CHAR))
+     (:FUNCTION USE-PACKAGE (PACKAGES-TO-USE &OPTIONAL (PACKAGE (SANE-PACKAGE))))
+     (:FUNCTION USE-VALUE (VALUE &OPTIONAL CONDITION))
+     (:FUNCTION USER-HOMEDIR-PATHNAME (&OPTIONAL HOST))
+     (:FUNCTION VALUES (&REST VALUES))
+     (:FUNCTION VALUES-LIST (LIST))
+     (:FUNCTION VECTOR (&REST OBJECTS))
+     (:FUNCTION VECTOR-POP (ARRAY))
+     (:FUNCTION VECTOR-PUSH (NEW-EL ARRAY))
+     (:FUNCTION VECTOR-PUSH-EXTEND (NEW-ELEMENT VECTOR &OPTIONAL (EXTENSION (1+ (LENGTH VECTOR)))))
+     (:FUNCTION VECTORP (OBJECT))
+     (:FUNCTION WARN (DATUM &REST ARGUMENTS))
+     (:MACRO WHEN (TEST &BODY FORMS))
+     (:FUNCTION WILD-PATHNAME-P (PATHNAME &OPTIONAL FIELD-KEY))
+     (:MACRO WITH-ACCESSORS (SLOTS INSTANCE &BODY BODY))
+     (:MACRO WITH-COMPILATION-UNIT (OPTIONS &BODY BODY))
+     (:MACRO WITH-CONDITION-RESTARTS (CONDITION-FORM RESTARTS-FORM &BODY BODY))
+     (:MACRO WITH-HASH-TABLE-ITERATOR ((FUNCTION HASH-TABLE) &BODY BODY))
+     (:MACRO WITH-INPUT-FROM-STRING ((VAR STRING &KEY INDEX START END) &BODY FORMS-DECLS))
+     (:MACRO WITH-OPEN-FILE ((STREAM FILESPEC &REST OPTIONS) &BODY BODY))
+     (:MACRO WITH-OPEN-STREAM ((VAR STREAM) &BODY FORMS-DECLS))
+     (:MACRO WITH-OUTPUT-TO-STRING ((VAR &OPTIONAL STRING &KEY (ELEMENT-TYPE (QUOTE (QUOTE CHARACTER)))) &BODY FORMS-DECLS))
+     (:MACRO WITH-PACKAGE-ITERATOR ((MNAME PACKAGE-LIST &REST SYMBOL-TYPES) &BODY BODY))
+     (:MACRO WITH-SIMPLE-RESTART ((RESTART-NAME FORMAT-STRING &REST FORMAT-ARGUMENTS) &BODY FORMS))
+     (:MACRO WITH-SLOTS (SLOTS INSTANCE &BODY BODY))
+     (:MACRO WITH-STANDARD-IO-SYNTAX (&BODY BODY))
+     (:FUNCTION WRITE (OBJECT &KEY ((STREAM STREAM) *STANDARD-OUTPUT*) ((ESCAPE *PRINT-ESCAPE*) *PRINT-ESCAPE*) ((RADIX *PRINT-RADIX*) *PRINT-RADIX*) ((BASE *PRINT-BASE*) *PRINT-BASE*) ((CIRCLE *PRINT-CIRCLE*) *PRINT-CIRCLE*) ((PRETTY *PRINT-PRETTY*) *PRINT-PRETTY*) ((LEVEL *PRINT-LEVEL*) *PRINT-LEVEL*) ((LENGTH *PRINT-LENGTH*) *PRINT-LENGTH*) ((CASE *PRINT-CASE*) *PRINT-CASE*) ((ARRAY *PRINT-ARRAY*) *PRINT-ARRAY*) ((GENSYM *PRINT-GENSYM*) *PRINT-GENSYM*) ((READABLY *PRINT-READABLY*) *PRINT-READABLY*) ((RIGHT-MARGIN *PRINT-RIGHT-MARGIN*) *PRINT-RIGHT-MARGIN*) ((MISER-WIDTH *PRINT-MISER-WIDTH*) *PRINT-MISER-WIDTH*) ((LINES *PRINT-LINES*) *PRINT-LINES*) ((PPRINT-DISPATCH *PRINT-PPRINT-DISPATCH*) *PRINT-PPRINT-DISPATCH*)))
+     (:FUNCTION WRITE-BYTE (INTEGER STREAM))
+     (:FUNCTION WRITE-CHAR (CHARACTER &OPTIONAL (STREAM *STANDARD-OUTPUT*)))
+     (:FUNCTION WRITE-LINE (STRING &OPTIONAL (STREAM *STANDARD-OUTPUT*) &KEY (START 0) END))
+     (:FUNCTION WRITE-SEQUENCE (SEQ STREAM &KEY (START 0) (END NIL)))
+     (:FUNCTION WRITE-STRING (STRING &OPTIONAL (STREAM *STANDARD-OUTPUT*) &KEY (START 0) END))
+     (:FUNCTION WRITE-TO-STRING (OBJECT &KEY ((ESCAPE *PRINT-ESCAPE*) *PRINT-ESCAPE*) ((RADIX *PRINT-RADIX*) *PRINT-RADIX*) ((BASE *PRINT-BASE*) *PRINT-BASE*) ((CIRCLE *PRINT-CIRCLE*) *PRINT-CIRCLE*) ((PRETTY *PRINT-PRETTY*) *PRINT-PRETTY*) ((LEVEL *PRINT-LEVEL*) *PRINT-LEVEL*) ((LENGTH *PRINT-LENGTH*) *PRINT-LENGTH*) ((CASE *PRINT-CASE*) *PRINT-CASE*) ((ARRAY *PRINT-ARRAY*) *PRINT-ARRAY*) ((GENSYM *PRINT-GENSYM*) *PRINT-GENSYM*) ((READABLY *PRINT-READABLY*) *PRINT-READABLY*) ((RIGHT-MARGIN *PRINT-RIGHT-MARGIN*) *PRINT-RIGHT-MARGIN*) ((MISER-WIDTH *PRINT-MISER-WIDTH*) *PRINT-MISER-WIDTH*) ((LINES *PRINT-LINES*) *PRINT-LINES*) ((PPRINT-DISPATCH *PRINT-PPRINT-DISPATCH*) *PRINT-PPRINT-DISPATCH*)))
+     (:FUNCTION Y-OR-N-P (&OPTIONAL FORMAT-STRING &REST ARGUMENTS))
+     (:FUNCTION YES-OR-NO-P (&OPTIONAL FORMAT-STRING &REST ARGUMENTS))
+     (:FUNCTION ZEROP (NUMBER))
      ))
   "PRIVATE: The list of raw lambda-lists: (kind symbol lambda-list).
 It's used only while loading, to generate the *cl-lambda-lists* map,
@@ -1294,7 +1294,7 @@ SEE: cl-intro.lisp (that uses sb-introspection to generate this list).
                           (member* '&BODY split :key (function first)))
               :allow-other-keys-p (member* '&ALLOW-OTHER-KEYS split
                                           :key (function first))
-              :keys (nreverse
+              :keys (nreverse
                     (mapcar
                      (lambda (x) (if (consp x)
                                      (if (consp (car x)) (caar x) (car x)) x))
@@ -1310,8 +1310,8 @@ SEE: cl-intro.lisp (that uses sb-introspection to generate this list).
     (delete-file path)
     (find-file path)
     (erase-buffer)
-    (print '(setf *cl-lambda-lists*
-             (make-hash-table :test (function equal) :size 978))
+    (print '(setf *cl-lambda-lists*
+             (make-hash-table :test (function equal) :size 978))
            (current-buffer))
     (maphash (lambda (k v) (print `(setf (gethash ,k *cl-lambda-lists*) ',v)
                                   (current-buffer))) *cl-lambda-lists*)
@@ -1327,7 +1327,7 @@ SEE: cl-intro.lisp (that uses sb-introspection to generate this list).
   "Open-Sexp-Stack-Node
 Upon typing a SPC, the current sexp from the top-level to the current point
 is parsed, and stored in a stack of open sexps. An open sexp keeps the list
-of enclosed closed sexp (and atoms).
+of enclosed closed sexp (and atoms).
 - start, end       The point in the buffer where the sexp or atom starts
                    and ends (for closed sexps and atoms, -1 for open sexps)
 - next, previous   A doubly linked list of sub-expression in the current node.
@@ -1358,7 +1358,7 @@ each time a new SPC is typed. SEE: *oss-heap* and make-ossn.
   "The size of the ossn heap.")


-(defparameter *oss-heap-free* 0
+(defparameter *oss-heap-free* 0
   "The index of the next free ossn in the oss heap.")


@@ -1455,14 +1455,14 @@ RETURN: the top of the stack, which is a guard with start = -1.
        (let ((children
               (loop with children = '()
                  for child = (ossn-first level) then (ossn-next child)
-                 while child
+                 while child
                  do
                  (when-debugging (:trace-ossn) (trace-ossn child where))
                  (assert (typep child 'ossn)
                          nil "%s: all child must be of type ossn" where)
-                 (assert
+                 (assert
                   (not (member child children)) nil
-                  "%s: children forward list must not be a circular list"
+                  "%s: children forward list must not be a circular list"
                   where)
                  (push child children)
                  finally (return (nreverse children))))
@@ -1589,7 +1589,7 @@ DO:     Dump the oss in the *Message* buffer.
             (setf (ossn-next (ossn-last ossn)) nil
                   (ossn-previous last)         nil)))
       (decf (ossn-length ossn)))
-    (when-debugging (:invariant)
+    (when-debugging (:invariant)
       (oss-check-invariant "after ossn-cut-the-last")
       (dump-oss)
       (assert (null (ossn-previous last))
@@ -1601,7 +1601,7 @@ DO:     Dump the oss in the *Message* buffer.

 (defun* ossn-append (node item)
   (when-debugging (:invariant) (oss-check-invariant "before ossn-append"))
-  (if (ossn-last node)
+  (if (ossn-last node)
       (setf (ossn-next (ossn-last node)) item)
       (setf (ossn-first node)  item))
   (setf (ossn-next     item)  nil
@@ -1640,7 +1640,7 @@ DO:     Dump the oss in the *Message* buffer.
   (prog1 (oss-top-list)
     (setf (ossn-end (oss-top-list)) end
           (oss-top-list) (ossn-below (oss-top-list)))
-    (when-debugging (:invariant)
+    (when-debugging (:invariant)
       (oss-check-invariant "oss-close-list"))))


@@ -1723,13 +1723,13 @@ RETURN:  A stack of nodes.


 (defun* lambda-list-accept (lambda-list n)
-  (when-debugging (:processing)
+  (when-debugging (:processing)
     (message "lambda-list-acccept %S" lambda-list))
   (insert-spaces n))


 (defun* lambda-list-close (lambda-list n)
-  (when-debugging (:processing)
+  (when-debugging (:processing)
     (message "lambda-list-close %S" lambda-list))
   (insert ")")
   (oss-close-list (point))
@@ -1741,7 +1741,7 @@ RETURN:  A stack of nodes.


 (defun* lambda-list-check-current-keyword  (lambda-list n)
-  (when-debugging (:processing)
+  (when-debugging (:processing)
     (message "lambda-list-check-current-keyword %S" lambda-list))
   (let* ((last (ossn-last (oss-top-list)))
          (name (ossn-string last)))
@@ -1765,7 +1765,7 @@ RETURN:  A stack of nodes.


 (defun* lambda-list-check-previous-keyword (lambda-list n)
-  (when-debugging (:processing)
+  (when-debugging (:processing)
     (message "lambda-list-check-previous-keyword %S" lambda-list))
   (let* ((last (ossn-last (oss-top-list)))
          (prev (ossn-previous last))
@@ -1863,11 +1863,11 @@ RETURN:  A stack of nodes.
             (name (ossn-string node))
             (argl (get-lambda-list-of name)))
        (when-debugging (:processing)
-         (message "cl-process-oss -- step 4 name=%S node=%S argl=%S"
+         (message "cl-process-oss -- step 4 name=%S node=%S argl=%S"
                   name node argl))
        (if argl
            ;; (stuff ... CL:stuff_ --> (stuff ... (CL:STUFF_
-           (cl-process-function n node)
+           (cl-process-function n node)
            ;; (fun ... stuff_ --> (fun ... stuff) or (fun ... stuff_
            (cl-process-arguments n))))))

@@ -1886,10 +1886,10 @@ RETURN:  A stack of nodes.

 (eval-when (load) (byte-compile 'oss-check-invariant))

-(let* ((load-file-name (or load-file-name
+(let* ((load-file-name (or load-file-name
                            ;; for testing:
                            "/home/pjb/src/public/emacs/pjb-cl-magic.el"))
-       (lambda-lists-el (format "%s-lambda-lists.el"
+       (lambda-lists-el (format "%s-lambda-lists.el"
                           (subseq load-file-name
                                   0 (search ".el" load-file-name :from-end t))))
        (lambda-lists-elc (format "%sc" lambda-lists-el)))
diff --git a/pjb-cl.el b/pjb-cl.el
index d0d748b..5d63589 100644
--- a/pjb-cl.el
+++ b/pjb-cl.el
@@ -1565,11 +1565,11 @@ URL:       http://www.informatimago.com/local/lisp/HyperSpec/Body/f_dir.htm
 RETURN:  nil, or pathspec (we don't distinguish truename for now).
 URL:     http://www.informatimago.com/local/lisp/HyperSpec/Body/f_probe_.htm
 "
-  (if (file-exists-p pathspec) pathspec nil))
+  (when (file-exists-p pathspec)
+    pathspec))


 (defun* ensure-directories-exist (pathspec &key verbose)
-  (declare (ignore verbose))
   (make-directory pathspec t))


diff --git a/pjb-class.el b/pjb-class.el
index a51cf4f..92e4bb9 100644
--- a/pjb-class.el
+++ b/pjb-class.el
@@ -9,7 +9,7 @@
 ;;;;    Some stuff for classes.
 ;;;;
 ;;;;AUTHORS
-;;;;    <PJB> Pascal J. Bourguignon
+;;;;    <PJB> Pascal J. Bourguignon
 ;;;;MODIFICATIONS
 ;;;;    2002-02-19 <PJB> Creation.
 ;;;;BUGS
@@ -42,7 +42,7 @@

 (defun responds-to (class method)
   "
-RETURN: Whether the CLASS responds to the METHOD,
+RETURN: Whether the CLASS responds to the METHOD,
         either directly or by inheritance.
 "
   (if (method-implem class method)
@@ -62,7 +62,7 @@ RETURN: Whether the CLASS responds to the METHOD,
 RETURN: a list with all symbols that are class names.
 "
   (let ( (classes nil) )
-    (mapatoms (lambda (sym)
+    (mapatoms (lambda (sym)
                 (when (class-p sym)
                   (push sym classes))))
     classes)
@@ -88,11 +88,11 @@ RETURN: a list with all the slots of the given CLASS.
          (result nil)
          )
     (while names
-      (push (list
-             (car names)
+      (push (list
+             (car names)
              (if types (if (eq t (aref types i)) nil (aref types i)) nil)
-             (car deflt)
-             (if (car prot) 'private 'public)
+             (car deflt)
+             (if (car prot) 'private 'public)
              (car docs) )
             result)
       (setq names (cdr names)
@@ -155,7 +155,7 @@ RETURN: a list with tree entries defining the method implementation.

 (defun class-data (class)
   "
-RETURN: a list containing :
+RETURN: a list containing :
              - the class name,
              - a list of attributes as returned by (attributes class),
              - a list of methods as (method-name signature bpa).
@@ -165,7 +165,7 @@ RETURN: a list containing :
      (mapcar (lambda (att) (butlast att))
              (attributes class))

-     (nremove-nil
+     (delete nil
       (apply 'append
              (mapcar (lambda (met)
                        (let ( (bpa-labels '(before primary after))
@@ -183,14 +183,14 @@ RETURN: a list containing :

 (defun format-quote (arg)
   "
-RETURN:  if arg is (quote atom) or 'atom
+RETURN:  if arg is (quote atom) or 'atom
          then return \"'atom\" otherwise return (format \"%S\" arg).
 "

   (cond
    ((and arg (atom arg) (not (stringp arg)) (not (numberp arg)))
     (format "'%s" arg))
-   ((and (consp arg)
+   ((and (consp arg)
          (= 2 (length arg))
          (eq 'quote (car arg)) )
     (format "'%s" (cadr arg)))
@@ -203,26 +203,26 @@ RETURN:  if arg is (quote atom) or 'atom
   "
 RETURN: An ASCII-art diagram of the CLASS.
 "
-  (let* ( (cd        (class-data class))
+  (let* ( (cd        (class-data class))
           (name      (symbol-name (car cd)))
-          (maxlen    (length name))
+          (maxlen    (length name))
           (att-lines (sort
-                      (mapcar
+                      (mapcar
                        (lambda (att)
-                         (format
-                          "%s%s%s%s"
+                         (format
+                          "%s%s%s%s"
                           (if (eq 'public (nth 3 att)) "+ " "- ")
                           (car att)
                           (if (nth 1 att) (format " : %s" (nth 1 att)) "")
-                          (if (nth 2 att)
+                          (if (nth 2 att)
                               (format " = %s" (format-quote (nth 2 att))) "")
                           ))
                        (nth 1 cd))
                       'string-lessp))
           (met-lines (sort
-                      (mapcar
+                      (mapcar
                       (lambda (met)
-                        (format
+                        (format
                          "%s%s%s%s"
                          "+ "
                          (car met)
@@ -231,12 +231,12 @@ RETURN: An ASCII-art diagram of the CLASS.
                                           (cdr (nth 1 met))
                                         (nth 1 met)))
                                 (fargs) )
-                           (if args
+                           (if args
                                (let ((fargs (format "%S" args)))
                                  (if (< 44 (length fargs))
                                      "(...)" fargs))
                              "()"))
-                         (if (eq 'primary (nth 2 met))
+                         (if (eq 'primary (nth 2 met))
                              "" (format "{%s}" (nth 2 met)))
                         ))
                       (nth 2 cd))
@@ -246,22 +246,22 @@ RETURN: An ASCII-art diagram of the CLASS.
                                      (append (list name) att-lines met-lines))))
     (setq line (format "+-%s-+\n" (make-string maxlen ?-)))
     (apply (if return-list 'list 'concat)
-           (append
+           (append
             (list
              line
              (let* ( (left  (/ (- maxlen (length name)) 2))
                      (right (- maxlen left (length name))) )
-               (format "| %s%s%s |\n"
+               (format "| %s%s%s |\n"
                        (make-string left 32) name (make-string right 32)))
              line
              )
-            (mapcar (lambda (l)
-                      (format "| %s%s |\n"
+            (mapcar (lambda (l)
+                      (format "| %s%s |\n"
                               l (make-string (- maxlen (length l)) 32)))
                     att-lines)
             (list line)
-            (mapcar (lambda (l)
-                      (format "| %s%s |\n"
+            (mapcar (lambda (l)
+                      (format "| %s%s |\n"
                               l (make-string (- maxlen (length l)) 32)))
                     met-lines)
             (list line)
@@ -283,8 +283,8 @@ RETURN: a formated string with classes.
     (setq indentf (format "%s%%s" left))


-    (apply
-     'concat
+    (apply
+     'concat
      (append
       (mapcar (lambda (l) (format indentf l)) (class-display class t))
       (when children
@@ -292,26 +292,26 @@ RETURN: a formated string with classes.
          (list (format indentf "       |\n")
                (format indentf "      / \\\n")
                (format indentf "     /___\\\n")
-               (format indentf "       |\n")
+               (format indentf "       |\n")
                )
          (if (= 1 (length children))
              (list (class-hierarchy-display (car children) left) )
            (let ( (first (list
                           (format indentf "+------+\n")
                           (format indentf "|      |\n")
-                          (class-hierarchy-display (car children)
+                          (class-hierarchy-display (car children)
                                                    (format indentf "|   "))) )
-                  (mid   (apply
+                  (mid   (apply
                           'append
                           (mapcar (lambda (child)
                                     (list
                                      (format indentf "|\n")
                                      (format indentf "+------+\n")
                                      (format indentf "|      |\n")
-                                     (class-hierarchy-display
+                                     (class-hierarchy-display
                                       child (format indentf "|   "))) )
                                   (butlast (cdr children)))) )
-
+
                   (laste (list
                           (format indentf "|\n")
                           (format indentf "+------+\n")
@@ -322,7 +322,7 @@ RETURN: a formated string with classes.
            ))))))
   );;class-hierarchy-display

-
+
 (defun is-subclass-of (subclass class)
   "
 RETURN: Whether `subclass' is a subclass (or sub*class) of `class'.
@@ -331,7 +331,7 @@ RETURN: Whether `subclass' is a subclass (or sub*class) of `class'.
          (parents (class-parents subclass))
          (current)
          (result nil) )
-    (while parents
+    (while parents
       (setq current (car parents)
             parents (cdr parents))
       (unless (memq current checked)
@@ -353,11 +353,11 @@ RETURN: Whether `subclass' is a subclass (or sub*class) of `class'.

 (defun is-kind-of (object class)
   "
-RETURN: Whether the class of the `object'  is `class',
+RETURN: Whether the class of the `object'  is `class',
         or the class of the `object' is a subclass of `class'.
 "
   (let ((class-of-object (class-of object)))
-    (or (eq class-of-object class)
+    (or (eq class-of-object class)
         (is-subclass-of class-of-object class)))
   );;is-kind-of

@@ -377,21 +377,21 @@ RETURN: Whether the class of the `object'  is `class',
 ;;;     (mapcar (lambda (predicat)
 ;;;               (unless (functionp predicat)
 ;;;                 (error "Expecting a function."))
-;;;               (let ( (cl '(M A B1 C1 D1 B2 C2 D2 C12 E12 E1M))
+;;;               (let ( (cl '(M A B1 C1 D1 B2 C2 D2 C12 E12 E1M))
 ;;;                      line )
 ;;;                 ;; line 0 -------------------
 ;;;                 (setq line  "+----+")
 ;;;                 (dotimes (i (length cl)) (setq line (concat line "----+")))
 ;;;                 (printf "%s\n" line)
 ;;;                 ;; line 1
-;;;                 (printf "|    |")
-;;;                 (dolist (b cl) (printf "%3s |" (symbol-name b)))
+;;;                 (printf "|    |")
+;;;                 (dolist (b cl) (printf "%3s |" (symbol-name b)))
 ;;;                 (printf "\n%s\n" line)
 ;;;                 ;; array
 ;;;                 (dolist (a cl)
 ;;;                   (printf "|%3s |" (symbol-name a))
-;;;                   (dolist (b cl)
-;;;                     (printf "%3s |"
+;;;                   (dolist (b cl)
+;;;                     (printf "%3s |"
 ;;;                             (if (funcall predicat  a b)
 ;;;                                 "IS" "no")))
 ;;;                   (printf "\n%s\n" line))
diff --git a/pjb-color.el b/pjb-color.el
index 777f037..6bd4ae8 100644
--- a/pjb-color.el
+++ b/pjb-color.el
@@ -5,7 +5,7 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Setting RGB colors with sliders.
 ;;;;    see: (pjb-color-picker--example)
 ;;;;
@@ -16,19 +16,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    AGPL3
-;;;;
+;;;;
 ;;;;    Copyright Pascal J. Bourguignon 2014 - 2014
-;;;;
+;;;;
 ;;;;    This program is free software: you can redistribute it and/or modify
 ;;;;    it under the terms of the GNU Affero General Public License as published by
 ;;;;    the Free Software Foundation, either version 3 of the License, or
 ;;;;    (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be useful,
 ;;;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;;;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;;;    GNU Affero General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU Affero General Public License
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
@@ -88,10 +88,10 @@ RETURN:  a color triplet darker than color-value (by 0.5 or by factor).
 (defun color-48-value-to-name (color-value)
   "
 PRE:     color-value is triplet (Red Green Blue) with each value in [0..65535].
-RETURN:  a color name in the form \"#rrrrggggbbbb\" each letter being
+RETURN:  a color name in the form \"#rrrrggggbbbb\" each letter being
          a hexadecimal digit.
 "
-  (format "#%04x%04x%04x"
+  (format "#%04x%04x%04x"
           (nth 0 color-value)
           (nth 1 color-value)
           (nth 2 color-value)))
@@ -105,10 +105,10 @@ RETURN:  a color name in the form \"#rrrrggggbbbb\" each letter being
 (defun color-24-value-to-name (color-value)
   "
 PRE:     color-value is triplet (Red Green Blue) with each value in [0..255].
-RETURN:  a color name in the form \"#rrggbb\" each letter being
+RETURN:  a color name in the form \"#rrggbb\" each letter being
          a hexadecimal digit.
 "
-  (format "#%02x%02x%02x"
+  (format "#%02x%02x%02x"
           (nth 0 color-value)
           (nth 1 color-value)
           (nth 2 color-value)))
@@ -154,8 +154,8 @@ RETURN:  a (Red Green Blue) with each value in [0..255].
   (let ((rgb (color-name-to-rgb color)))
     (values-list (append rgb (list rgb)))))

-(defun pjb-color-picker--rgb-red (rgb) (first rgb))
-(defun pjb-color-picker--rgb-green (rgb) (second rgb))
+(defun pjb-color-picker--rgb-red (rgb) (first rgb))
+(defun pjb-color-picker--rgb-green (rgb) (second rgb))
 (defun pjb-color-picker--rgb-blue (rgb) (third rgb))

 (defun pjb-color-picker--clip (min max value)
@@ -290,7 +290,7 @@ RETURN:  a (Red Green Blue) with each value in [0..255].
          (width 50)
          (line (make-string width space)))
     (erase-buffer)
-    (insert line "\n" line "\n" line "\n" line)
+    (insert line "\n" line "\n" line "\n" line)
     (setf pjb-color-picker--default-color    default-rgb
           pjb-color-picker--current-color    default-rgb
           pjb-color-picker--update-color     update-color
@@ -327,7 +327,7 @@ RET   q       hide the buffer, calling `quit' with the current color
     (pjb-color-picker--initialize-buffer (or (if (listp default-rgb)
                                                  default-rgb
                                                  (color-name-to-rgb default-rgb))
-                                             '(0.5 0.5 0.5))
+                                             '(0.5 0.5 0.5))
                                          update quit abort)))

 (defun pjb-color-picker--example ()
diff --git a/pjb-comint.el b/pjb-comint.el
index 25d758a..a8370b2 100644
--- a/pjb-comint.el
+++ b/pjb-comint.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Add output filters to process more emacs-048 codes.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -20,19 +20,19 @@
 ;;;;
 ;;;;LEGAL
 ;;;;    GPL
-;;;;
+;;;;
 ;;;;    Copyright Pascal J. Bourguignon 2010 - 2011
-;;;;
+;;;;
 ;;;;    This program is free software; you can redistribute it and/or
 ;;;;    modify it under the terms of the GNU General Public License
 ;;;;    as published by the Free Software Foundation; either version
 ;;;;    2 of the License, or (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be
 ;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
 ;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;;;    PURPOSE.  See the GNU General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU General Public
 ;;;;    License along with this program; if not, write to the Free
 ;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
@@ -40,7 +40,7 @@
 ;;;;**************************************************************************

 (when nil
-
+
   (defun pjb-comint-filter-meat/erase-screen (string)
     (let ((pos (search "c" string :from-end t)))
       (if pos
diff --git a/pjb-computer-paper.el b/pjb-computer-paper.el
index edf3211..ae6ff84 100644
--- a/pjb-computer-paper.el
+++ b/pjb-computer-paper.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    XXX
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal Bourguignon <spam@thalassa.informatimago.com>
 ;;;;MODIFICATIONS
@@ -15,19 +15,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    GPL
-;;;;
+;;;;
 ;;;;    Copyright Pascal Bourguignon 2004 - 2011
-;;;;
+;;;;
 ;;;;    This program is free software; you can redistribute it and/or
 ;;;;    modify it under the terms of the GNU General Public License
 ;;;;    as published by the Free Software Foundation; either version
 ;;;;    2 of the License, or (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be
 ;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
 ;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;;;    PURPOSE.  See the GNU General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU General Public
 ;;;;    License along with this program; if not, write to the Free
 ;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
@@ -44,7 +44,7 @@
 (defun delete-all-overlays ()
   (interactive)
   (mapc (lambda (item)
-          (if (listp item)
+          (if (listp item)
               (mapc (function delete-overlay) item)
               (delete-overlay item)))
         (overlay-lists)))
@@ -55,10 +55,10 @@
   (goto-char (point-min))
   (let ((backf (make-array
                 (list (length +computer-paper-colors+))
-                :initial-contents
+                :initial-contents
                 (mapcar
                  (lambda (color)
-                   (let* ((facesym (intern
+                   (let* ((facesym (intern
                                     (concatenate 'string color "-face")))
                           (face (make-face facesym)))
                      (copy-face 'default face)
@@ -94,6 +94,6 @@
     (assert (<= 1 block))
     (assert (and (<= 2 modulo) (<= modulo (length +computer-paper-colors+))))
     (put-computer-paper-overlay modulo block)))
-
+

 ;;;; THE END ;;;;
diff --git a/pjb-constants.el b/pjb-constants.el
index 5cc970f..6c58888 100644
--- a/pjb-constants.el
+++ b/pjb-constants.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Defines constants of physics.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -15,19 +15,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    GPL
-;;;;
+;;;;
 ;;;;    Copyright Pascal Bourguignon 2003 - 2011
-;;;;
+;;;;
 ;;;;    This program is free software; you can redistribute it and/or
 ;;;;    modify it under the terms of the GNU General Public License
 ;;;;    as published by the Free Software Foundation; either version
 ;;;;    2 of the License, or (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be
 ;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
 ;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;;;    PURPOSE.  See the GNU General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU General Public
 ;;;;    License along with this program; if not, write to the Free
 ;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
@@ -404,8 +404,8 @@ RETURN: x' ; t' ; dx' ; dt' such as
 ;; Aplicando las transformadas de Lorentz:
 ;;
 ;;     gamma = 1 / sqrt( 1 - ( v / c ) ^ 2 )
-;; 	x' = ( x + v t ) * gamma
-;; 	t' = ( t + x v / c ^ 2 ) * gamma
+;;      x' = ( x + v t ) * gamma
+;;      t' = ( t + x v / c ^ 2 ) * gamma
 ;;
 ;; que dan las coordenadas (x',t')  dentro de un referencial que se mueve
 ;; a  la  velocidad  v con  respecto  a  un  referencial fijo,  dadas  la
@@ -634,11 +634,11 @@ RETURN: x' ; t' ; dx' ; dt' such as


 ;;; (mapcar
-;;;  (lambda (n) (list n (substitute
+;;;  (lambda (n) (list n (substitute
 ;;;                       (character "-") (character " ") (downcase n)
 ;;;                       :test (function char=)) t t))
 ;;;  (remove-duplicates
-;;;    (sort
+;;;    (sort
 ;;;     '(
 ;;;       )
 ;;;     (lambda (a b) (> (length (car a)) (length (car b)))))
diff --git a/pjb-cvs.el b/pjb-cvs.el
index 1ac7b9d..ccf3e35 100644
--- a/pjb-cvs.el
+++ b/pjb-cvs.el
@@ -9,7 +9,7 @@
 ;;;;    This module exports an application that analyses CVS revision graphs.
 ;;;;
 ;;;;AUTHORS
-;;;;    <PJB> Pascal J. Bourguignon
+;;;;    <PJB> Pascal J. Bourguignon
 ;;;;MODIFICATIONS
 ;;;;    2002-04-06 <PJB> Creation.
 ;;;;BUGS
@@ -43,13 +43,13 @@
 ;; revision = (file,version)
 ;; file = { revision=(file,*) }
 ;; tag  = { {file_i,version_j), k!=l ==> file_k!=file_l }
-;;
+;;
 ;; arc_file ( (file,v1),(file,v2) ) si v2 succède v1 (+branches)
-;; arc_tag  ( (tag1,tag) si existe arc_file(n1,n2) avec n1 dans tag1
+;; arc_tag  ( (tag1,tag) si existe arc_file(n1,n2) avec n1 dans tag1
 ;;                                                   et n2 dans tag2 )
-;; poind(arc_tag(tag1,tag2)) = cardinal { arc_file(n1,n2) avec n1 dans tag1
+;; poind(arc_tag(tag1,tag2)) = cardinal { arc_file(n1,n2) avec n1 dans tag1
 ;;                                                          et n2 dans tag2 }
-;;
+;;

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (defclass CvsAttributedMixin ()
@@ -58,24 +58,24 @@
     :initarg  :attributes-plist
     :accessor  attributes-plist
     :type      list
-    :documentation
+    :documentation
     "A plist of attributes."))
   (:documentation
    "A mixin to store attributes as a plist."))


-(defmethod* setAttribute ((self CvsAttributedMixin)
+(defmethod* setAttribute ((self CvsAttributedMixin)
                           (attrName (or symbol string)) (attrValue string))
   "
 POST:   (string-equal attrValue (getAttribute self attrName))
 "
   (when (stringp attrName)
     (setq attrName (intern attrName)))
-  (setf (slot-value self 'attributes-plist)
+  (setf (slot-value self 'attributes-plist)
         (plist-put (attributes-plist self) attrName attrValue)))


-(defmethod* getAttribute ((self CvsAttributedMixin)
+(defmethod* getAttribute ((self CvsAttributedMixin)
                           (attrName (or symbol string)))
   "
 RETURN: The value of the attribute attrName.
@@ -150,8 +150,8 @@ RETURN: Whether the revision rev is a CVS magic revision, ie. its length is odd
     :initarg  :revision-graph
     :accessor  revision-graph
     :type      PjbGraph
-    :documentation
-    "The graph of the revisions of this file.
+    :documentation
+    "The graph of the revisions of this file.
 The edges denotes the derivation order of the revisions.
 Note however that merges can't be known from the file revision numbers alone."))
   (:documentation
@@ -165,7 +165,7 @@ Note however that merges can't be known from the file revision numbers alone."))
     :initarg  :file
     :accessor  file
     :type      (or null CvsFile)
-    :documentation
+    :documentation
     "The CVS file of which this is a revision.")
    (file-version
     :initform "1.0"
@@ -178,7 +178,7 @@ Note however that merges can't be known from the file revision numbers alone."))
     :initarg  :tags
     :accessor tags
     :type     PjbSet
-    :documentation
+    :documentation
     "The tags that include this revision.")
    (name
     :initform nil
@@ -196,8 +196,8 @@ Note however that merges can't be known from the file revision numbers alone."))
   "
 RETURN: A string describing this element.
 "
-  (format "<A %s named %S with %d revisions>"
-          (class-name (class-of self))
+  (format "<A %s named %S with %d revisions>"
+          (class-name (class-of self))
           (name self)
           (cardinal (revisions self))))

@@ -223,8 +223,8 @@ DO:     Add the newRevision to the list of revisions of this file.
   "
 RETURN: The revision with the version.
 "
-  (let ( (rev (selectElements
-               (revisions self)
+  (let ( (rev (selectElements
+               (revisions self)
                (lambda (element)
                  (string-equal aVersion (file-version element))))) )
     (if rev (car rev) nil)))
@@ -260,7 +260,7 @@ PRIVATE. Used by `computeRevisionGraph'.
            (when (and revision-list
                       (< (length (car revision-root)) (length (car current))))
              (funcall eat-revision-add-edge revision-root current)
-             (setq revision-list (pjb-cvs$$eat-revision current (cdr revision-list)
+             (setq revision-list (pjb-cvs$$eat-revision current (cdr revision-list)
                                                         eat-revision-add-edge))
              (setq current (car revision-list)))))
   revision-list)
@@ -272,17 +272,17 @@ DO:     Compute the revision graph from the revision numbers of this file.
 POST:   (revision-graph self) is a directed tree (directed cycleless graph).
 RETURN: (revision-graph self)
 "
-  (let* ((sorted-revisions
+  (let* ((sorted-revisions
            (sort
             (mapElements (revisions self)
                          (lambda (element)
                            (cons (string-to-revision (file-version element))
                                  element)))
             (lambda (vra vrb) (revision-less-p (car vra) (car vrb)))))
-         (graph (make-instance 'PjbGraph
+         (graph (make-instance 'PjbGraph
                                :nodes      (revisions self)
                                :edge-class PjbDirectedEdge))
-         (eat-revision-add-edge
+         (eat-revision-add-edge
            (lambda  (from to)
              (addEdgeBetweenNodes graph (cdr from) (cdr to)))) )
     (pjb-cvs$$eat-revision (car sorted-revisions) (cdr sorted-revisions)
@@ -300,9 +300,9 @@ RETURN: (revision-graph self)
   "
 RETURN: A string describing this element.
 "
-  (format "<A %s of file %S, version %s>"
-          (class-name (class-of self))
-          (name (file self))
+  (format "<A %s of file %S, version %s>"
+          (class-name (class-of self))
+          (name (file self))
           (file-version self)))


@@ -311,7 +311,7 @@ RETURN: A string describing this element.
 RETURN: A name for this revision instance.
 "
   (unless (cached-name self)
-    (setf (slot-value self 'name)
+    (setf (slot-value self 'name)
           (format "%s-%s" (name (file self)) (file-version self))) )
   (cached-name self))

@@ -319,7 +319,7 @@ RETURN: A name for this revision instance.

 ;; (defmethod* identicalTo ((self CvsRevision) (other PjbElement))
 ;;   "
-;; RETURN:  Whether self and other are identical, that is, if they have the
+;; RETURN:  Whether self and other are identical, that is, if they have the
 ;;          same file and their versions are equal.
 ;; "
 ;;   (or (eq self other)
@@ -369,7 +369,7 @@ POST:    (containsElement (tags self) tag)
   "
 RETURN: A string describing this element.
 "
-  (format "<A %s named %S>"
+  (format "<A %s named %S>"
           (class-name (class-of self))
           (name self)))

@@ -409,7 +409,7 @@ RETURN: The date of the youngest revision in this tag.
 "
   (unless (cached-date self)
     (setf (slot-value self 'date)
-          (car  (sort
+          (car  (sort
                  (mapcar (lambda (revision) (getAttribute revision "date"))
                          (elements self))
                  'string> ))))
@@ -436,10 +436,10 @@ RETURN: Whether this tag is a branch tag for the given `file', that is,

 (defmethod* getRevisionList ((self CvsTag))
   "
-RETURN: A list containing the file revisions in the form of conses
+RETURN: A list containing the file revisions in the form of conses
         (file-name . version) of this tag.
 "
-  (mapcar (lambda (revision) (cons (name (file revision))
+  (mapcar (lambda (revision) (cons (name (file revision))
                                    (file-version revision)))
           (elements self)))

@@ -454,7 +454,7 @@ RETURN: The tag named `tag-name' in the set of CvsTag `tags'.


 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Generating dot files
+;; Generating dot files

 (defmethod* generate-dot ((self CvsRevision))
   "
@@ -462,7 +462,7 @@ RETURN: A string containing the dot file data for this CvsRevision node.
 "
   (format
    "%S [ style=filled color=black fillcolor=LightYellow label=\"%s\\n%s\" ];\n"
-   (name self)
+   (name self)
    (let* ((got nil)
           (tag (selectElements
                 (tags self) (lambda (elem) (if got nil (setq got t)))))
@@ -484,7 +484,7 @@ RETURN: A string containing the dot file data for this CvsTag node.



-(defvar pjb-cvs%*ignore-descriptions* t
+(defvar pjb-cvs%*ignore-descriptions* t
   "set to nil to keep the descriptions from cvs log. They tend to be big.")

 (defun pjb-cvs%parse-log (cvs-log-output)
@@ -505,7 +505,7 @@ RETURN: A string containing the dot file data for this CvsTag node.
         (while file-lines
                (setq line (car file-lines))
                (setq file-lines (cdr file-lines))
-
+
                (cond
                  ((string-equal line "description:")
                   (unless pjb-cvs%*ignore-descriptions*
@@ -521,7 +521,7 @@ RETURN: A string containing the dot file data for this CvsTag node.
                  ((setq value (chop-prefix line "cvs server:"))
                   ;; ignore
                   )
-
+
                  ((setq value (chop-prefix line "? "))
                   ;; ignore
                   )
@@ -543,7 +543,7 @@ RETURN: A string containing the dot file data for this CvsTag node.
                   (setq line (split-string line ": *"))
                   (when (not (string-equal (cadr line) ""))
                     (setAttribute file (car line) (cadr line))))))
-
+
         ;; ---------------------
         ;; 2- revisions
         (dolist (rev revs-l)
@@ -567,7 +567,7 @@ RETURN: A string containing the dot file data for this CvsTag node.
           (let* ((tag-revision (split-string sn ": "))
                  (tag-name     (intern (car tag-revision)))
                  (version      (cadr tag-revision))
-                 (tag          (selectElements
+                 (tag          (selectElements
                                 tags (lambda (elem) (eq (name elem) tag-name))))
                  (revision))
             (if tag
@@ -575,7 +575,7 @@ RETURN: A string containing the dot file data for this CvsTag node.
                 (setq tag (make-instance 'CvsTag :name tag-name)))
             (setq revision (revisionWithVersion file version))
             (unless revision
-              (setq revision (make-instance 'CvsRevision
+              (setq revision (make-instance 'CvsRevision
                                             :file file :file-version version))
               (addRevision file revision))
             (addElement tag revision)
@@ -603,17 +603,17 @@ RETURN: The computed graph.
      files
      (lambda (file)

-       ;; We need to do a walk of the revision tree,
+       ;; We need to do a walk of the revision tree,
        ;; starting from the root "1.1",
        ;; collecting a "pre-tag" node and a "cur-tag" such as:
        ;;    (not (isMagicBranchRevision pre-rev))
        ;;    (not (isMagicBranchRevision cur-rev))
        ;;    there is a pre-tag in (tags pre-rev)
        ;;    there is a cur-tag in (tags cur-rev)
-       ;;    cur-rev is the first successor of pre-rev
+       ;;    cur-rev is the first successor of pre-rev
        ;;            matching the previous conditions.
-
-       (let ((rev-graph (revision-graph file))
+
+       (let ((rev-graph (revision-graph file))
              (rev-stack '()) ; stack of walked revisions: ((rev suc...)...)
              (tev-stack '()) ; stack of tagged revisions.
              cur-item cur-rev cur-suc cur-sucs newEdge edge)
@@ -624,7 +624,7 @@ RETURN: The computed graph.
                     (< 0 (cardinal (tags cur-rev))))
            (push cur-rev tev-stack))
          (while rev-stack
-                ;;(printf "\nrev-stack=%S\ntev-stack=%S\n"
+                ;;(printf "\nrev-stack=%S\ntev-stack=%S\n"
                 ;;  (mapcar (lambda (item) (mapcar 'name item)) rev-stack)
                 ;;  (mapcar 'name tev-stack))
                 (setq cur-item (pop rev-stack))
@@ -639,7 +639,7 @@ RETURN: The computed graph.
                       ;; We need to push even when there's no other successor
                       ;; to be able to pop when needed.
                       (push (cons cur-rev (cdr cur-sucs)) rev-stack)
-
+
                       (if (and (not (isMagicBranchRevision cur-suc))
                                (< 0 (cardinal (tags cur-suc))))
                           (progn
@@ -651,7 +651,7 @@ RETURN: The computed graph.
                             (if (car tev-stack)
                                 (dolist (ftag (elements (tags (car tev-stack))))
                                   (dolist (ttag (elements (tags cur-suc)))
-                                    (setq edge
+                                    (setq edge
                                           (car (edgesBetweenNodes graph ftag ttag)))
                                     ;; There should be only one edge from ftag to ttag.
                                     (if edge
@@ -687,12 +687,12 @@ RETURN: The computed graph.
         tag;; is a set of revision.
         (lambda (revision)

-          (message "%-20s %-47s %s"
+          (message "%-20s %-47s %s"
                    (name tag) (name (file revision)) (file-version revision))
           ;;(message "cardinal(edges)=%d" (cardinal (edges graph)))
           ;; successors are in the file's revision graph.
           (let* ( (rev-graph  (revision-graph (file revision)))
-                  (successors (successorNodes rev-graph revision))
+                  (successors (successorNodes rev-graph revision))
                   (checked    '())
                  successor succ-tags edge newEdge)
             (printf  "file=%S\nrevision=%S successors=%S\n\n" (name (file revision)) (file-version revision) (mapcar (lambda (s) (file-version s)) successors))
@@ -715,14 +715,14 @@ RETURN: The computed graph.
                                        (memq new-succ successors))
                              (push new-succ successors)))
                          ;; let's add edges or increment the existing edges' weight.
-                         (performWithElements
+                         (performWithElements
                           (tags successor)
                           (lambda (to-tag)
-                            (setq newEdge (make-instance PjbWeightedDirectedEdge
+                            (setq newEdge (make-instance PjbWeightedDirectedEdge
                                                          :from tag :to to-tag))
                             (setq edge (containsElement (edges graph) newEdge))
                             ;; There should be only one edge from tag to to-tag.
-                            (if edge
+                            (if edge
                                 (setWeight edge (1+ (weight edge)))
                                 (addEdge graph newEdge))))))))))))
     graph))
@@ -731,15 +731,15 @@ RETURN: The computed graph.

 (defun pjb-cvs%get-tag-graph-from-cvs-in-dir (dir-path &optional file-list)
   "
-NOTE:   When file-list is given, then only cvs log those files
+NOTE:   When file-list is given, then only cvs log those files
         (relative from dir-path).
-RETURN: A (list tag-graph files tags) containing the tag-graph (PjbGraph),
+RETURN: A (list tag-graph files tags) containing the tag-graph (PjbGraph),
         the files (PjbSet of CvsFile) and the tags (PjbSet of CvsTag).
 "
   (let* ((cvs-log-out-fname (format "/tmp/%s" (gensym "cvs-log-output-")))
          (cmd (format "cd %s ; cvs log %s > %s 2> /dev/null"
                       (shell-quote-argument dir-path)
-                      (if file-list
+                      (if file-list
                           (unsplit-string file-list " ")
                           "")
                       (shell-quote-argument cvs-log-out-fname)))
@@ -752,7 +752,7 @@ RETURN: A (list tag-graph files tags) containing the tag-graph (PjbGraph),
          tag-graph)
     (delete-file cvs-log-out-fname)
     (message "Got %d files, and %d tags." (cardinal files) (cardinal tags))
-    (performWithElements files
+    (performWithElements files
                          (lambda (file)
                            (addRootRevisionIfMissing file)
                            (computeRevisionGraph file)))
@@ -766,7 +766,7 @@ PRE:    graph is a graph of CvsTag.
 DO:     All edges such as (STRING> (date (from edge)) (date (to edge)))
         are reversed (ie. their from and to nodes are exchanged).
 "
-  (performWithElements
+  (performWithElements
    (edges graph)
    (lambda (edge)
      (when (STRING> (date (from edge)) (date (to edge)))
diff --git a/pjb-cvspass.el b/pjb-cvspass.el
index a3852fa..e679854 100644
--- a/pjb-cvspass.el
+++ b/pjb-cvspass.el
@@ -10,7 +10,7 @@
 ;;;;    in "~/.cvspass".
 ;;;;
 ;;;;AUTHORS
-;;;;    <PJB> Pascal J. Bourguignon
+;;;;    <PJB> Pascal J. Bourguignon
 ;;;;MODIFICATIONS
 ;;;;    2001-??-?? <PJB> Created.
 ;;;;BUGS
@@ -39,21 +39,21 @@


 (defconst cvs-scrambled-chars '[
-    0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15
-   16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31
-  114 120  53  79  96 109  72 108  70  64  76  67 116  74  68  87
-  111  52  75 119  49  34  82  81  95  65 112  86 118 110 122 105
-   41  57  83  43  46 102  40  89  38 103  45  50  42 123  91  35
-  125  55  54  66 124 126  59  47  92  71 115  78  88 107 106  56
-   36 121 117 104 101 100  69  73  99  63  94  93  39  37  61  48
-   58 113  32  90  44  98  60  51  33  97  62  77  84  80  85 223
-  225 216 187 166 229 189 222 188 141 249 148 200 184 136 248 190
-  199 170 181 204 138 232 218 183 255 234 220 247 213 203 226 193
-  174 172 228 252 217 201 131 230 197 211 145 238 161 179 160 212
-  207 221 254 173 202 146 224 151 140 196 205 130 135 133 143 246
-  192 159 244 239 185 168 215 144 139 165 180 157 147 186 214 176
-  227 231 219 169 175 156 206 198 129 164 150 210 154 177 134 127
-  182 128 158 208 162 132 167 209 149 241 153 251 237 236 171 195
+    0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15
+   16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31
+  114 120  53  79  96 109  72 108  70  64  76  67 116  74  68  87
+  111  52  75 119  49  34  82  81  95  65 112  86 118 110 122 105
+   41  57  83  43  46 102  40  89  38 103  45  50  42 123  91  35
+  125  55  54  66 124 126  59  47  92  71 115  78  88 107 106  56
+   36 121 117 104 101 100  69  73  99  63  94  93  39  37  61  48
+   58 113  32  90  44  98  60  51  33  97  62  77  84  80  85 223
+  225 216 187 166 229 189 222 188 141 249 148 200 184 136 248 190
+  199 170 181 204 138 232 218 183 255 234 220 247 213 203 226 193
+  174 172 228 252 217 201 131 230 197 211 145 238 161 179 160 212
+  207 221 254 173 202 146 224 151 140 196 205 130 135 133 143 246
+  192 159 244 239 185 168 215 144 139 165 180 157 147 186 214 176
+  227 231 219 169 175 156 206 198 129 164 150 210 154 177 134 127
+  182 128 158 208 162 132 167 209 149 241 153 251 237 236 171 195
   243 233 253 240 194 250 191 155 142 137 245 235 163 242 178 152 ]
   );;cvs-scrambled-chars

@@ -61,8 +61,8 @@
 (defun cvs-unscramble (password)
   "This interactive function unscramble cvs passwords."
   (interactive "sPassword: ")
-  (message
-   (concat
+  (message
+   (concat
     (mapcar (lambda (c)
               (aref cvs-scrambled-chars (string-to-char c)))
             (split-string password ""))))
diff --git a/pjb-date.el b/pjb-date.el
index b971892..fb9ebe5 100644
--- a/pjb-date.el
+++ b/pjb-date.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Date formats.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -15,19 +15,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    AGPL3
-;;;;
+;;;;
 ;;;;    Copyright Pascal J. Bourguignon 2015 - 2015
-;;;;
+;;;;
 ;;;;    This program is free software: you can redistribute it and/or modify
 ;;;;    it under the terms of the GNU Affero General Public License as published by
 ;;;;    the Free Software Foundation, either version 3 of the License, or
 ;;;;    (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be useful,
 ;;;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;;;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;;;    GNU Affero General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU Affero General Public License
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
diff --git a/pjb-dodo.el b/pjb-dodo.el
index a8cd249..bf72ff2 100644
--- a/pjb-dodo.el
+++ b/pjb-dodo.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Trace daily start and stop times and plot them.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -15,19 +15,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    GPL
-;;;;
+;;;;
 ;;;;    Copyright Pascal Bourguignon 2005 - 2011
-;;;;
+;;;;
 ;;;;    This program is free software; you can redistribute it and/or
 ;;;;    modify it under the terms of the GNU General Public License
 ;;;;    as published by the Free Software Foundation; either version
 ;;;;    2 of the License, or (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be
 ;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
 ;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;;;    PURPOSE.  See the GNU General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU General Public
 ;;;;    License along with this program; if not, write to the Free
 ;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
diff --git a/pjb-dot.el b/pjb-dot.el
index aaf184e..4220b9c 100644
--- a/pjb-dot.el
+++ b/pjb-dot.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             emacs-lisp
 ;;;;USER-INTERFACE:     emacs-lisp
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Generate dot files from graphs (pjb-graph).
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal Bourguignon
 ;;;;MODIFICATIONS
@@ -15,20 +15,20 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    GPL
-;;;;
+;;;;
 ;;;;    Copyright Pascal Bourguignon 2003 - 2011
 ;;;;    mailto:pjb@informatimago.com
-;;;;
+;;;;
 ;;;;    This program is free software; you can redistribute it and/or
 ;;;;    modify it under the terms of the GNU General Public License
 ;;;;    as published by the Free Software Foundation; either version
 ;;;;    2 of the License, or (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be
 ;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
 ;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;;;    PURPOSE.  See the GNU General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU General Public
 ;;;;    License along with this program; if not, write to the Free
 ;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
@@ -39,7 +39,7 @@
 (provide 'pjb-dot)

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Generating dot files
+;; Generating dot files

 (defun dot-ident (ident)
   "
@@ -60,10 +60,10 @@ RETURN: A string containing the dot file data for this PjbElement node.
                        (unsplit-string
                         (mapcar
                          (lambda (prop-name)
-                           (if (or
-                                (string-equal ;; for emacs:
+                           (if (or
+                                (string-equal ;; for emacs:
                                  "dot-" (subseq (symbol-name prop-name) 0 4))
-                                (string-equal ;; for emacs:
+                                (string-equal ;; for emacs:
                                  ":dot-" (subseq (symbol-name prop-name) 0 5)))
                              ""
                              (format "%s = %s" prop-name
@@ -111,7 +111,7 @@ RETURN: A string containing the dot file data for this edge.
 RETURN: A string containing the dot file data for this graph.
 NOTE:   dot graphs are directed.
 "
-  (apply
+  (apply
    'concat
    (flatten
     (list
@@ -129,7 +129,7 @@ NOTE:   dot graphs are directed.
      "  node [height=0.2 width=0.5 shape=box fontsize=8 fontname=Times];\n"
      (mapElements (nodes self) (lambda (node) (generate-dot node)))
      ;; common attributes of edges:
-     "  edge [style=solid];\n"
+     "  edge [style=solid];\n"
      (mapElements (edges self) (lambda (edge) (generate-dot edge)))
      "}\n"))))

diff --git a/pjb-echo-keys.el b/pjb-echo-keys.el
index f96b59a..f5a669f 100644
--- a/pjb-echo-keys.el
+++ b/pjb-echo-keys.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Echo emacs key chords as they are typed.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -15,19 +15,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    AGPL3
-;;;;
+;;;;
 ;;;;    Copyright Pascal J. Bourguignon 2014 - 2014
-;;;;
+;;;;
 ;;;;    This program is free software: you can redistribute it and/or modify
 ;;;;    it under the terms of the GNU Affero General Public License as published by
 ;;;;    the Free Software Foundation, either version 3 of the License, or
 ;;;;    (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be useful,
 ;;;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;;;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;;;    GNU Affero General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU Affero General Public License
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
diff --git a/pjb-emacs-balance-windows.el b/pjb-emacs-balance-windows.el
index 707905b..d84f1bf 100644
--- a/pjb-emacs-balance-windows.el
+++ b/pjb-emacs-balance-windows.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Set same size for all windows.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -15,19 +15,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    AGPL3
-;;;;
+;;;;
 ;;;;    Copyright Pascal J. Bourguignon 2015 - 2015
-;;;;
+;;;;
 ;;;;    This program is free software: you can redistribute it and/or modify
 ;;;;    it under the terms of the GNU Affero General Public License as published by
 ;;;;    the Free Software Foundation, either version 3 of the License, or
 ;;;;    (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be useful,
 ;;;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;;;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;;;    GNU Affero General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU Affero General Public License
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
diff --git a/pjb-emacs-patches.el b/pjb-emacs-patches.el
index a3c070b..f976d8a 100644
--- a/pjb-emacs-patches.el
+++ b/pjb-emacs-patches.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Random patches.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -15,19 +15,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    AGPL3
-;;;;
+;;;;
 ;;;;    Copyright Pascal J. Bourguignon 2015 - 2015
-;;;;
+;;;;
 ;;;;    This program is free software: you can redistribute it and/or modify
 ;;;;    it under the terms of the GNU Affero General Public License as published by
 ;;;;    the Free Software Foundation, either version 3 of the License, or
 ;;;;    (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be useful,
 ;;;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;;;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;;;    GNU Affero General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU Affero General Public License
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
@@ -39,7 +39,7 @@

 (when (string= emacs-version "24.3.1")
   (require 'minibuffer)
-
+
   (defun completion--twq-all (string ustring completions boundary
                               unquote requote)
     (when completions
@@ -144,7 +144,7 @@ rather than at left margin."
             (goto-char (point-min))
             ;; Quote any nested comment marker
             (comment-quote-nested comment-start comment-end nil)
-
+
             ;; Loop over all lines to find the needed indentations.
             (goto-char (point-min))
             (while
@@ -166,7 +166,7 @@ rather than at left margin."
             ;; (setq max-indent
             ;;   (+ max-indent (max (length cs) (length ccs)) tab-width -1))
             (unless indent (setq min-indent 0))
-
+
             ;; make the leading and trailing lines if requested
             (when lines
               (let ((csce
diff --git a/pjb-emacs.el b/pjb-emacs.el
index 9743725..c3874c3 100644
--- a/pjb-emacs.el
+++ b/pjb-emacs.el
@@ -128,7 +128,6 @@
          default)))

   (defun set-symbol-value-in-buffer (symbol buffer value &optional default)
-    (declare (ignore defaultp))
     (save-excursion
      (set-buffer buffer)
      (make-local-variable symbol)
@@ -782,10 +781,10 @@ DO:      Grep current directory for sources containing the current word.
 "
   (interactive)
   (let ( (word  (current-word))
-        (files (nremove-nil
-                (mapcar (lambda (name)
-                          (cond
-                            ((file-directory-p name) nil)
+         (files (delete nil
+                        (mapcar (lambda (name)
+                                  (cond
+                                   ((file-directory-p name) nil)
                             ((string-match pjb-cross-references-rejected-regexp
                                            name) nil)
                             (t (shell-quote-argument name))) )
@@ -2422,7 +2421,6 @@ FILE-AND-OPTION: either an atom evaluated to a path,

 (defun constantly (value)
   (lambda (&rest arguments)
-    (declare (ignore arguments))
     value))


diff --git a/pjb-erc-filter.el b/pjb-erc-filter.el
index 78cafea..532cec0 100644
--- a/pjb-erc-filter.el
+++ b/pjb-erc-filter.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Filters irc nicks.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -15,19 +15,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    AGPL3
-;;;;
+;;;;
 ;;;;    Copyright Pascal J. Bourguignon 2014 - 2014
-;;;;
+;;;;
 ;;;;    This program is free software: you can redistribute it and/or modify
 ;;;;    it under the terms of the GNU Affero General Public License as published by
 ;;;;    the Free Software Foundation, either version 3 of the License, or
 ;;;;    (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be useful,
 ;;;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;;;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;;;    GNU Affero General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU Affero General Public License
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
diff --git a/pjb-erc-speak.el b/pjb-erc-speak.el
index b323cfb..49595eb 100644
--- a/pjb-erc-speak.el
+++ b/pjb-erc-speak.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    erc speak stuff.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -15,19 +15,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    AGPL3
-;;;;
+;;;;
 ;;;;    Copyright Pascal J. Bourguignon 2014 - 2014
-;;;;
+;;;;
 ;;;;    This program is free software: you can redistribute it and/or modify
 ;;;;    it under the terms of the GNU Affero General Public License as published by
 ;;;;    the Free Software Foundation, either version 3 of the License, or
 ;;;;    (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be useful,
 ;;;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;;;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;;;    GNU Affero General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU Affero General Public License
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
@@ -74,7 +74,7 @@ RETURN:  The text to be read aloud for the `nick' in `*pjb-erc-spoken-nicks*'.

 (defparameter *pjb-erc-massage-substitutions*
   '(("\\<pjb\\>"                 "Pascal")
-    ("\\<CL\\>"                  "See Ell")
+    ("\\<CL\\>"                  "See Ell")
     ("\\<C-"                     "Control-")
     ("\\<M-"                     "Meta-")
     ("\\<A-"                     "Alt-")
@@ -86,9 +86,9 @@ RETURN:  The text to be read aloud for the `nick' in `*pjb-erc-spoken-nicks*'.
     (":-/"                       "muek")
     (":-?[Pp]"                   "bruu")
     ("\\<\\(ty\\|thx\\)\\>"      "Thank you!")
-    ("\\<LOL\\>"                 "AhAhAh! Laughting Out Loud!")
+    ("\\<LOL\\>"                 "AhAhAh! Laughting Out Loud!")
     ("\\<ROFL\\>"                "AhAhAh! Rolling On the Floor!")
-    ("\\<hrm\\>"                 "errrmmm")
+    ("\\<hrm\\>"                 "errrmmm")
     ("\\<btw\\>"                 "by the way")
     ("\\<wtf\\>"                 "what the fuck")
     ("\\<imo\\>"                 "in my opinion")
diff --git a/pjb-erc.el b/pjb-erc.el
index cbee446..8f425d2 100644
--- a/pjb-erc.el
+++ b/pjb-erc.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    ERC stuff.
-;;;;
+;;;;
 ;;;;    Don't worry anymore about flooding a channel!
 ;;;;
 ;;;;    This yank function for erc uses lisppaste when the text to yank
@@ -39,14 +39,14 @@
 ;;;;    if there is, add: annotate=#pastenumber to get an annotation.
 ;;;;LEGAL
 ;;;;    GPL
-;;;;
+;;;;
 ;;;;    Copyright Pascal Bourguignon 2006 - 2014
-;;;;
+;;;;
 ;;;;    This program is free software; you can redistribute it and/or
 ;;;;    modify it under the terms of the GNU General Public License
 ;;;;    as published by the Free Software Foundation; either version
 ;;;;    2 of the License, or (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be
 ;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
 ;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
@@ -62,7 +62,7 @@
 (require 'w3           nil t) ; not anymore. we should clean them up.
 (require 'w3-forms     nil t)

-(require 'xml) ; parse-xml-region
+(require 'xml) ; parse-xml-region


 (require 'pjb-cl)
@@ -149,7 +149,7 @@
 ;;;---------------------------------------------------------------------
 ;;; erc-yank / lisppaste
 ;;;---------------------------------------------------------------------
-
+
 (defconst +newline+ 10)

 (defvar *erc-yank-flood-limit* 5
@@ -240,7 +240,7 @@
     (cache-lisp-paste))
   *lisp-paste-channels*)

-
+
 (defun pjb-http-read (process)
   (accept-process-output process 5 0)
   (save-excursion
@@ -345,7 +345,7 @@
                                 (if result 'success 'failed)))
                (setf (car *paste-lisp-org-cache*) (GET-UNIVERSAL-TIME)
                      (cdr *paste-lisp-org-cache*) result))))))
-
+


 (defun pjb-erc-yank (&optional arg)
@@ -374,7 +374,7 @@ Otherwise, just yank it.
                 (error "To many lines to yank: %d" lines))))
       (funcall *erc-yank-function* arg)))

-
+

 ;;;---------------------------------------------------------------------
 ;;; erc answers
@@ -382,7 +382,7 @@ Otherwise, just yank it.

 (defparameter *pjb-erc-answers*
   '((macro . "The big secret of macros in lisp, is that they are functions
-just like the other functions.
+just like the other functions.

 The only difference, is that defmacro hooks those functions into the
 compiler, to be called at compilation time, passed a form, and expected
@@ -391,94 +391,94 @@ to return a new form to be compiled instead of the original form.
 \(The original form is actually destructured according to the macro
 lambda list; in emacs &whole isn't implemented, but in Common Lisp it
 allows receiving the original form intact).")
-    (lisp-1-vs-lisp-2-technical-issues
+    (lisp-1-vs-lisp-2-technical-issues
      . "Please read: http://www.nhplace.com/kent/Papers/Technical-Issues.html")
-    (equal
+    (equal
      . "Please read: http://www.nhplace.com/kent/PS/EQUAL.html")
     (ambitious-eval
      . "Please read: http://www.nhplace.com/kent/PS/Ambitious.html")
-    (what-implementation
+    (what-implementation
      . "To get help choosing a CL implementation, connect to telnet://voyager.informatimago.com:8101 ; have a look at http://www.cliki.net/Common%20Lisp%20implementation")
-    (clhs
+    (clhs
      . "http://www.lispworks.com/documentation/HyperSpec/Front/index.htm")
-    (intersection
+    (intersection
      . "Have a look at (intersection common-lisp emacs-lisp scheme) http://www.informatimago.com/develop/lisp/com/informatimago/small-cl-pgms/intersection-r5rs-common-lisp-emacs-lisp/")
-    (scheme-or-cl
+    (scheme-or-cl
      . "CL vs. Scheme http://irreal.org/blog/?p=813")
-    (cliki
+    (cliki
      . "Have a look at http://cliki.net/ ; start with http://www.cliki.net/Getting%20Started")
     (newbie
      . "http://cliki.net/Getting%20Started or http://articulate-lisp.com/ ")
-    (getting-started
+    (getting-started
      . "Start with http://www.cliki.net/Getting%20Started  or  http://articulate-lisp.com/" )
     (emacs-lisp-intro
      . "An Introduction to Programming in Emacs Lisp  http://www.gnu.org/software/emacs/emacs-lisp-intro/  or  M-: (info \"(eintr)Top\") RET (for non-programmers)")
-    (emacs-lisp
+    (emacs-lisp
      . "Emacs Lisp Manual http://www.gnu.org/software/emacs/manual/elisp.html  or  M-: (info \"(elisp)Top\") RET")
-    (emacs-manual
+    (emacs-manual
      . "Emacs Manual http://www.gnu.org/software/emacs/manual/   or  M-: (info \"(emacs)Top\") RET")
-    (the-art-of-unix-programming
+    (the-art-of-unix-programming
      . "The Art of Unix Programming http://www.faqs.org/docs/artu/")
-    (hacker-howto
+    (hacker-howto
      . "http://www.catb.org/~esr/faqs/hacker-howto.html")
-    (the-craft-of-text-editing
+    (the-craft-of-text-editing
      . "The Craft of Text Editing   http://www.finseth.com/craft/")
-    (essentials-of-programming-languages
+    (essentials-of-programming-languages
      . "Essentials of Programming Languages, 3rd ed.   Daniel P. Friedman and Mitchell Wand   ISBN: 978-0-262-06279-4   http://MITPress.MIT.Edu/0262062798/  http://WWW.EoPL3.Com/")
-    (practical-common-lisp
+    (practical-common-lisp
      . "Practical Common Lisp http://www.gigamonkeys.com/book/")
-    (common-lisp-a-gentle-introduction-to-symbolic-computation
+    (common-lisp-a-gentle-introduction-to-symbolic-computation
      . "Common Lisp: A Gentle Introduction to Symbolic Computation  http://www.cs.cmu.edu/~dst/LispBook/  http://www-cgi.cs.cmu.edu/afs/cs.cmu.edu/user/dst/www/LispBook/index.html")
-    (common-lisp-programming-for-artificial-intelligence
+    (common-lisp-programming-for-artificial-intelligence
      . "Common Lisp Programming for Artificial Intelligence  Tony Hasemer & John Domingue - 1989  International Computer Science Series  Addison & Wesley  ISBN 0-201-17579-7")
-    (common-lisp-an-interactive-approach
+    (common-lisp-an-interactive-approach
      . "Common Lisp: An Interactive Approach  by Stuart C. Shapiro   http://www.cse.buffalo.edu/~shapiro/Commonlisp/")
-    (paradigms-of-artificial-intellgience
+    (paradigms-of-artificial-intellgience
      . "Paradigms of Artificial Intelligence Programming: Case Studies in Common Lisp")
-    (artifical-intelligence-a-modern-approach
+    (artifical-intelligence-a-modern-approach
      . "Artificial Intelligence: A Modern Approach  http://aima.cs.berkeley.edu")
-    (sicp
+    (sicp
      . "Structure and Interpretation of Computer Programs  http://mitpress.mit.edu/sicp/full-text/book/book-Z-H-4.html  http://swiss.csail.mit.edu/classes/6.001/abelson-sussman-lectures/")
-    (sicp-mit
+    (sicp-mit
      . "http://web.mit.edu/alexmv/6.S184/")
-    (6.S184
+    (6.S184
      . "http://web.mit.edu/alexmv/6.S184/")
     ;; http://www.codepoetics.com/wiki/index.php?title=Topics:SICP_in_other_languages
     ;; http://eli.thegreenplace.net/category/programming/lisp/sicp/
     ;; http://www.neilvandyke.org/sicp-plt/
     ;; http://www.youtube.com/watch?v=rdj6deraQ6k
-    (r5rs
+    (r5rs
      . "http://www.schemers.org/Documents/Standards/R5RS/HTML/")
-    (how-to-design-programs
+    (how-to-design-programs
      . "How to Design Programs -- An Introduction to Computing and Programming  http://www.htdp.org/2003-09-26/Book/  ")
-    (concrete-abstraction
+    (concrete-abstraction
      . "Concrete Abstractions -- An Introduction to Computer Science Using Scheme  http://www.gustavus.edu/+max/concrete-abstractions.html")
-    (lisp-in-small-pieces
+    (lisp-in-small-pieces
      . "Lisp in Small Pieces   http://pagesperso-systeme.lip6.fr/Christian.Queinnec/WWW/LiSP.html  http://pagesperso-systeme.lip6.fr/Christian.Queinnec/Books/LiSP-2ndEdition-2006Dec11.tgz")
-    (on-lisp
+    (on-lisp
      . "On Lisp  Paul Graham   http://www.paulgraham.com/onlisptext.html  http://www.bookshelf.jp/texi/onlisp/onlisp.html  http://www.bookshelf.jp/texi/onlisp/onlisp.tar.gz")
-    (compiler-principle-techniques-and-tools
+    (compiler-principle-techniques-and-tools
      . "Compiler Principles Techniques and Tools, Aho et al. http://dragonbook.stanford.edu/")
-    (the-art-of-computer-programming
+    (the-art-of-computer-programming
      . "The Art of Computer Programming  Donald E. Knuth  Addison & Wesley")
-    (goedel-escher-bach
+    (goedel-escher-bach
      . "Gödel, Escher, Bach: An Eternal Golden Braid  Douglas Hofstadter")
-    (basic-lisp-technique
+    (basic-lisp-technique
      . "Basic Lisp Techniques  Cooper - 2003 Franz, Inc. - 100 pages.  http://www.franz.com/resources/educational_resources/cooper.book.pdf")
-    (casting-speels-in-lisp
+    (casting-speels-in-lisp
      . "Casting Spels in Lisp  Conrad Barski, M.D.  http://www.lisperati.com/casting.html")
     (floating-point
-     . "What Every Computer Scientist Should Know About Floating-Point Arithmetic http://docs.oracle.com/cd/E19957-01/806-3568/ncg_goldberg.html   and   What Every Programmer Should Know About Floating-Point Arithmetic http://floating-point-gui.de/")
+     . "What Every Computer Scientist Should Know About Floating-Point Arithmetic http://docs.oracle.com/cd/E19957-01/806-3568/ncg_goldberg.html   and   What Every Programmer Should Know About Floating-Point Arithmetic http://floating-point-gui.de/")
     ;; --
-    (gitlab-lisp
+    (gitlab-lisp
      . "https://gitlab.com/com-informatimago/com-informatimago")
     (gitlab-emacs
      . "https://gitlab.com/com-informatimago/emacs")
-    (rc
+    (rc
      . "http://git.informatimago.com/viewgit/index.php?a=summary&p=public/rc")
-    (bin
+    (bin
      . "http://git.informatimago.com/viewgit/index.php?a=summary&p=public/bin")
-    (idiots
+    (idiots
      . "There, there, we know there are idiots on the Internet.  Lisp will make it all better.")
     (maintained-illustration
      . "http://tinyurl.com/last-commit-six-month-ago http://tinyurl.com/monthly-commits http://tinyurl.com/last-commit-yesterday http://tinyurl.com/last-commit-before-VCS-existed")
@@ -487,24 +487,24 @@ allows receiving the original form intact).")
     ;; --
     (see-defpackage
      . ";;;;    See defpackage documentation string.\n")
-    (agpl3
+    (agpl3
      . "
 License:

     AGPL3
-
+
     Copyright Pascal J. Bourguignon 1994 - 2012
-
+
     This program is free software: you can redistribute it and/or modify
     it under the terms of the GNU Affero General Public License as published by
     the Free Software Foundation, either version 3 of the License, or
     (at your option) any later version.
-
+
     This program is distributed in the hope that it will be useful,
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     GNU Affero General Public License for more details.
-
+
     You should have received a copy of the GNU Affero General Public License
     along with this program.
     If not, see <a href=\\\"http://www.gnu.org/licenses/\\\">http://www.gnu.org/licenses/</a>.
@@ -519,8 +519,8 @@ License:
 (defvar *pjb-erc-last-answer* nil)

 (defun pjb-erc-answer (key)
-  (interactive (list
-                (intern (completing-read
+  (interactive (list
+                (intern (completing-read
                          "What? " (mapcar (lambda (x) (cons x nil)) (pjb-erc-get-answers))
                          (lambda (answer) (setq *pjb-erc-last-answer* (car answer)))
                          t))))
@@ -579,7 +579,7 @@ displaying erc buffers."
                  finally (return width))) 72)))

 (defvar *erc-cancel-auto-adjust-width* nil)
-
+
 (defun pjb-erc-auto-adjust-width ()
   (interactive)
   (if  *erc-cancel-auto-adjust-width*
@@ -592,7 +592,7 @@ displaying erc buffers."
   (setf *erc-cancel-auto-adjust-width* t))


-
+
 (defun pjb-erc-user-input ()
   "Return the input of the user in the current buffer."
   ;; We use erc-bol to ignore the prompt.
@@ -846,7 +846,7 @@ be printed just before the window-width."
             (erc-put-text-property from (1+ (point)) 'rear-nonsticky t)
             (setf from (point))))))))

-
+
 ;;;---------------------------------------------------------------------
 ;;; erc/irc emacs commands
 ;;;---------------------------------------------------------------------
@@ -873,7 +873,7 @@ be printed just before the window-width."
      ;;"#sicp"
      "#scheme")
     ;; (pjb-erc-add-fools "Xach")
-
+
     (dolist (fool '("NP" "Xah" "xah" "xahlee"  "xahlee_" "xahlee__"))
       (pjb-erc-add-fools fool)))
   ;; --------------------
@@ -892,7 +892,7 @@ be printed just before the window-width."
   ;; --------------------
   (erc-auto-adjust-width)
   (balance-windows))
-
+

 (defun irc ()
   (interactive)
@@ -919,7 +919,7 @@ be printed just before the window-width."
      ;;"#sicp"
      "#scheme")
     ;; (pjb-erc-add-fools "Xach")
-
+
     (dolist (fool '("NP" "Xah" "xah" "xahlee"  "xahlee_" "xahlee__"))
       (pjb-erc-add-fools fool)))
   ;; --------------------
@@ -975,7 +975,7 @@ be printed just before the window-width."
          (nick (cdr (assoc 'nick result))))
     (erc-display-message nil 'notice (current-buffer)
                          (format "%s (%s %s)" nick fname lname))))
-
+
 (defun pjb-erc-cmd-CLEAR ()
   (interactive)
   ;;(save-buffer)
@@ -1068,7 +1068,7 @@ command).
   (interactive)
   (let ((current-prefix-arg t)
         (expression (slime-last-expression)))
-    (push-mark)
+    (push-mark)
     (slime-eval-async `(swank:eval-and-grab-output-and-error ,expression)
                       (lambda (result)
                         (destructuring-bind (output values) result
@@ -1114,7 +1114,7 @@ command).
      (pjb-erc-keybindings)))
   (loop with current-channel = (buffer-name)
         for (channels . eval-function)
-          in '((("#lisp" "##lisp" "#lispcafe" "#lispgame"  "#lisp-lab" "#lisp-fr" "#lisp-es"
+          in '((("#lisp" "##lisp" "#lispcafe" "#lispgame"  "#lisp-lab" "#lisp-fr" "#lisp-es"
                  "#ccl" "#sbcl" "#quicklisp")
                 . cl-eval-last-expression)
                (("#emacs")
diff --git a/pjb-euro.el b/pjb-euro.el
index 741e7e8..7f680f2 100644
--- a/pjb-euro.el
+++ b/pjb-euro.el
@@ -9,7 +9,7 @@
 ;;;;    This module exports
 ;;;;
 ;;;;AUTHORS
-;;;;    <PJB> Pascal J. Bourguignon
+;;;;    <PJB> Pascal J. Bourguignon
 ;;;;MODIFICATIONS
 ;;;;    199?/??/?? <PJB> Creation.
 ;;;;BUGS
@@ -44,18 +44,18 @@

 (defvar euro-parities '(
     ;; Cours fixes:
-	(:EUR 1.00000  0.01 "%10.2f" "Euro")
+        (:EUR 1.00000  0.01 "%10.2f" "Euro")
     (:BEF 40.3399  1.00 "%10.0f" "Franc Belge")
-	(:DEM 1.95583  0.01 "%10.2f" "Mark Allemand")
-	(:ESP 166.386  1.00 "%10.0f" "Peseta Espagnole")
+        (:DEM 1.95583  0.01 "%10.2f" "Mark Allemand")
+        (:ESP 166.386  1.00 "%10.0f" "Peseta Espagnole")
     (:FRF 6.55957  0.01 "%10.2f" "Franc Français")
-	(:IEP 0.787564 0.01 "%10.2f" "Lire Irlandaise")
-	(:ITL 1936.27  1.00 "%10.0f" "Lire Italienne")
-	(:LUF 40.3399  1.00 "%10.0f" "Franc Luxembourgeois")
-	(:NLG 2.20371  1.00 "%10.2f" "Florin Néerlandais")
-	(:ATS 13.7604  0.01 "%10.2f" "Shilling Autrichien")
-	(:PTE 200.428  1.00 "%10.0f" "Escudo Portuguais")
-	(:FIM 5.94573  1.00 "%10.0f" "Mark Finlandais")
+        (:IEP 0.787564 0.01 "%10.2f" "Lire Irlandaise")
+        (:ITL 1936.27  1.00 "%10.0f" "Lire Italienne")
+        (:LUF 40.3399  1.00 "%10.0f" "Franc Luxembourgeois")
+        (:NLG 2.20371  1.00 "%10.2f" "Florin Néerlandais")
+        (:ATS 13.7604  0.01 "%10.2f" "Shilling Autrichien")
+        (:PTE 200.428  1.00 "%10.0f" "Escudo Portuguais")
+        (:FIM 5.94573  1.00 "%10.0f" "Mark Finlandais")
     ;; Cours variables:
     (:UKL 1.0 0.01 "%10.2f" "Livre Sterling")
     (:AUD 1.0 0.01 "%10.2f" "Dollar Australien")
@@ -67,7 +67,7 @@
     (:DKK 1.0 0.01 "%10.2f" "Couronne Danoise")
     (:NOK 1.0 0.01 "%10.2f" "Couronne Norvégienne")
     )
-"This is the list of the devises that are in the euro,
+"This is the list of the devises that are in the euro,
 with their conversion ratios.
 To update the devises with variable quotes, use update-devises.
 ")
@@ -89,11 +89,11 @@ To update the devises with variable quotes, use update-devises.
 (defun euro-update-devise-body (cours devise parities)
   "PRIVATE"
   (cond ((null parities) parities)
-        ((eq (caar parities) devise)
-         (cons (euro-parity-replace-ratio (car parities) cours)
+        ((eq (caar parities) devise)
+         (cons (euro-parity-replace-ratio (car parities) cours)
                (cdr parities)))
-        (t
-         (cons (car parities)
+        (t
+         (cons (car parities)
                (euro-update-devise-body cours devise (cdr parities))))))

 (defun euro-update-devise (cours devise)
@@ -106,10 +106,10 @@ To update the devises with variable quotes, use update-devises.
 (defun update-devisess ()
   "DO:  Retrieves the devise quotes from the url at `*devise-url*'."
   (interactive)
-  ;; (shell-command-to-string
+  ;; (shell-command-to-string
   ;;  "update-devisess boursorama > ~/.emacs-devises~ && mv ~/.emacs-devises~  ~/.emacs-devises ")
   ;;  (load "~/.emacs-devises")
-
+
   ;; (with-file ("~/.emacs-devises" :save t :kill t)
   ;;   (erase-buffer)
   ;; )
@@ -136,8 +136,8 @@ To update the devises with variable quotes, use update-devises.
 (defun euro-get-parity (parities devise)
   "PRIVATE"
   (cond ((null parities) parities)
-		((equal (caar parities) devise) (car parities))
-		(t (euro-get-parity (cdr parities) devise))))
+                ((equal (caar parities) devise) (car parities))
+                (t (euro-get-parity (cdr parities) devise))))

 (defun euro-is-devise (devise)
   "RETURN: Whether devise is a known devise."
@@ -149,7 +149,7 @@ To update the devises with variable quotes, use update-devises.
   (cadr (euro-get-parity euro-parities devise)))

 (defun euro-get-round (devise)
-  "RETURN: The smallest strictly positive value that can be expressed
+  "RETURN: The smallest strictly positive value that can be expressed
         in the devise.
 NOTE:   This value is used to round the values in the device."
   (caddr (euro-get-parity euro-parities devise)))
@@ -164,8 +164,8 @@ NOTE:   This value is used to round the values in the device."


 (defun euro-value-to-string (value devise)
-  "Return a string containing the value formated with the number of
-decimals needed for the devise, followed by a space, then by the
+  "Return a string containing the value formated with the number of
+decimals needed for the devise, followed by a space, then by the
 three-letter devise code. The value is euro-round'ed before formating."
   (if (not (euro-is-devise devise))
       (error "DEVISE must be a devise. See (euro-update-devisess)."))
@@ -195,7 +195,7 @@ three-letter devise code. The value is euro-round'ed before formating."
   (interactive)
   (insert
    (format (concat "\n"
-                   (euro-get-format devise) " %s = "
+                   (euro-get-format devise) " %s = "
                    (euro-get-format :EUR) " %s")
            value devise
            (euro-round (/ value (euro-get-ratio devise)) :EUR) :EUR)))
@@ -205,7 +205,7 @@ three-letter devise code. The value is euro-round'ed before formating."
   (interactive)
   (insert
    (format (concat "\n"
-                   (euro-get-format :EUR) " %s = "
+                   (euro-get-format :EUR) " %s = "
                    (euro-get-format devise) " %s")
            value-euro :EUR
            (euro-round (* value-euro (euro-get-ratio devise)) devise) devise)))
@@ -238,7 +238,7 @@ three-letter devise code. The value is euro-round'ed before formating."



-(defparameter gold-coins
+(defparameter gold-coins
   '(
     ("Kruger Rand" 31.1)
     ("1/2 Kruger Rand" 15.54)
@@ -275,7 +275,7 @@ three-letter devise code. The value is euro-round'ed before formating."
     (set s-max   max)
     (set s-step  step)
     `(lambda ()
-       (if (<= ,s-value ,s-max)
+       (if (<= ,s-value ,s-max)
          (values (prog1 ,s-value (incf ,s-value ,s-step)) t)
          (values nil nil)))
     ));;between
@@ -325,11 +325,11 @@ RETURN:        An enumerator that enumerates all the enumerators in turn.
 (defun make-gold-table ()
   (setq gold-coins
         (sort gold-coins
-              (lambda (a b)
+              (lambda (a b)
                 (or (< (second a) (second b))
                     (and (= (second a) (second b))
                          (STRING> (first a) (first b)))))))
-  (let ((umass-coins
+  (let ((umass-coins
          (set-difference
           (remove-duplicates gold-coins :key (lambda (a) (second a)))
           '(("Barre") ("Lingot"))
@@ -338,7 +338,7 @@ RETURN:        An enumerator that enumerates all the enumerators in turn.
         (prices (between 9400 11000 50))
         (lines '())
         (line  '()))
-    (map-enumerator
+    (map-enumerator
      (lambda (price)
        (setq line (list (format "%.0f" price)))
        (dolist (coin umass-coins)
@@ -357,7 +357,7 @@ RETURN:        An enumerator that enumerates all the enumerators in turn.
          (lines    (cdr ll))
          (widths   (mapcar (lambda (line) (mapcar (function length) line)) lines))
          col-widths top-cols)
-    (macrolet ((h-bars
+    (macrolet ((h-bars
                 () `(do ((col-widths col-widths (cdr col-widths)))
                         ((null col-widths))
                       (insert (make-string* (car col-widths)
@@ -373,7 +373,7 @@ RETURN:        An enumerator that enumerates all the enumerators in turn.
       ;; compute the top-lines columns:
       (setq top-cols
             (do ((col-widths col-widths (cdr col-widths))
-                 (cur-col 0 (+ 1 cur-col (car col-widths)))
+                 (cur-col 0 (+ 1 cur-col (car col-widths)))
                  (top-cols '()))
                 ((null col-widths) (nreverse top-cols))
               (push (+ (/ (car col-widths) 2) cur-col) top-cols)))
@@ -383,7 +383,7 @@ RETURN:        An enumerator that enumerates all the enumerators in turn.
            (right    "" (format "%s|%s"
                                 (if (endp (rest titles))
                                     0
-                                    (make-string* (- (first top-cols)
+                                    (make-string* (- (first top-cols)
                                                      (or (second top-cols) 0) 1)
                                                   :initial-element (character " ")))
                                 right))
@@ -394,7 +394,7 @@ RETURN:        An enumerator that enumerates all the enumerators in turn.
         (insert
          (if (<= (length name) col)
            (format "%s%s+%s\n"
-                   name
+                   name
                    (make-string* (- col (length name))
                                 :initial-element (character "-"))
                    right)
@@ -433,10 +433,10 @@ DO:      update-devisess and insert some eurotunnel data.
   (let ((today (calendar-current-date)))
     (update-devisess)
     (mapcar
-     (lambda (line)
+     (lambda (line)
        (let* ((fields   (split-string line ";"))
               (sym      (nth 0 fields))
-              (quo      (string-to-number
+              (quo      (string-to-number
                          (replace-regexp-in-string "," "." (nth 1 fields) nil nil))))
          (cond

@@ -462,8 +462,8 @@ DO:      update-devisess and insert some eurotunnel data.

            (t))))

-     (split-string
-      (url-retrieve-as-string
+     (split-string
+      (url-retrieve-as-string
        "http://fr.finance.yahoo.com/d/quos.csv?s=22456+22457+12537+GBP=X&m=PA&f=sl1d1t1c1ohgv&e=.csv")))))


diff --git a/pjb-find-tag-hook.el b/pjb-find-tag-hook.el
index e9fa805..a25111d 100644
--- a/pjb-find-tag-hook.el
+++ b/pjb-find-tag-hook.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    find-tag hook
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -15,19 +15,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    AGPL3
-;;;;
+;;;;
 ;;;;    Copyright Pascal J. Bourguignon 2015 - 2015
-;;;;
+;;;;
 ;;;;    This program is free software: you can redistribute it and/or modify
 ;;;;    it under the terms of the GNU Affero General Public License as published by
 ;;;;    the Free Software Foundation, either version 3 of the License, or
 ;;;;    (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be useful,
 ;;;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;;;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;;;    GNU Affero General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU Affero General Public License
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
@@ -69,7 +69,7 @@
                 (save-excursion
                  (message "pjb-find-tag-meat 3")
                  (switch-to-buffer-other-window (get-buffer-create
-                                                 (format "*tags on %s*" tagname)))
+                                                 (format "*tags on %s*" tagname)))
                  (erase-buffer)
                  (compilation-mode 1)
                  (message "pjb-find-tag-meat 4")
diff --git a/pjb-font.el b/pjb-font.el
index de61a14..ad6c430 100644
--- a/pjb-font.el
+++ b/pjb-font.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Font stuff.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -15,19 +15,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    GPL
-;;;;
+;;;;
 ;;;;    Copyright Pascal Bourguignon 2006 - 2011
-;;;;
+;;;;
 ;;;;    This program is free software; you can redistribute it and/or
 ;;;;    modify it under the terms of the GNU General Public License
 ;;;;    as published by the Free Software Foundation; either version
 ;;;;    2 of the License, or (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be
 ;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
 ;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;;;    PURPOSE.  See the GNU General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU General Public
 ;;;;    License along with this program; if not, write to the Free
 ;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
@@ -44,23 +44,22 @@
   (zerop
    (nth-value 0 (cl:parse-integer
      (shell-command-to-string
-      (format "xlsfonts -fn %S 2>&1|awk 'BEGIN{r=0;} /xlsfonts: pattern .* unmatched/{r=1;} END{printf \"%%d\",r;}'" pattern))))))
-
-
-
-
+      (format "xlsfonts -fn %S 2>&1|awk 'BEGIN{r=0;} /xlsfonts: pattern .* unmatched/{r=1;} END{printf \"%%d\",r;}'"
+              pattern))))))

 (defun font-canonical-to-pixel (canon &optional device)
   (let ((pix-width (float (or (cond ((fboundp 'device-pixel-width)
                                      (device-pixel-width device))
                                     ((fboundp 'display-pixel-width)
                                      (display-pixel-width) device)
-                                    (t nil)) 1024)))
+                                    (t nil))
+                              1024)))
         (mm-width (float (or (cond ((fboundp 'device-mm-width)
                                     (device-mm-width device))
                                    ((fboundp 'display-mm-width)
                                     (display-mm-width) device)
-                                   (t nil)) 293))))
+                                   (t nil))
+                             293))))
     (/ canon (/ pix-width mm-width) (/ 25.4 72.0))))


@@ -72,11 +71,11 @@ RETURN: The font height in pixel.
               (fboundp 'font-create-object)
               (fboundp 'font-spatial-to-canonical))
          (let ((fs (font-size (font-create-object font))))
-           (if (numberp fs)
-               fs
-               (font-canonical-to-pixel
-                (font-spatial-to-canonical fs device) device))))
-        (error "How do I compute the font size in pixel for font %S?" font)))
+           (if (numberp fs)
+             fs
+             (font-canonical-to-pixel
+              (font-spatial-to-canonical fs device) device))))
+        (t  (error "How do I compute the font size in pixel for font %S?" font))))


 (defun create-new-fontset (fontset-spec &optional style-variant noerror)
@@ -155,7 +154,7 @@ RETURN:  An a-list with entries for the selected keywords,
          each being the list of unique values for the corresponding
          field in all fonts selected by the pattern.
 EXAMPLE: All families in the Adobe foundry:
-         (get-independant-font-parts (make-font-pattern :foundry \"adobe\")
+         (get-independant-font-parts (make-font-pattern :foundry \"adobe\")
                                      :family t)
 "
   (let ((p-foundry nil)      (p-family nil)
@@ -222,9 +221,6 @@ EXAMPLE: All families in the Adobe foundry:
     (when foundry       (push (cons :foundry       p-foundry      ) res))
     res))

-
-
-
 (defmacro make-my-mac-font-sets (size)
   `(progn
      (create-new-fontset
@@ -244,7 +240,7 @@ latin-iso8859-1:-apple-monaco-%s--%d-%d0-75-75-m-%d0-mac-roman"
 ;; ---------------------------
 ;;       select-font
 ;; ---------------------------
-
+
 (defstruct ftree label children)

 (defun build-font-tree (fps &optional label)
@@ -266,23 +262,20 @@ RETURN:  A tree where the child of each node are labelled with
                                       classes)))
       (make-ftree :label label))))

-
 (defun ftree-children-named (font-tree name)
   (car (delete-if (lambda (child) (not (string-equal name (ftree-label child))))
                   (ftree-children font-tree))))

-
 (defparameter *font-default-fields*
-  ;;'(:spacing "m" :registry "iso8859" :encoding "1"))
   '(:spacing "m" :registry "iso8859"))

-
 (defparameter *font-tree*
   (when (eq window-system 'x)
     (build-font-tree
      (delete-if (lambda (fp)
                   (let* ((ssize (plist-get fp :pixel-size))
-                         (size  (and ssize (nth-value 0 (cl:parse-integer ssize)))))
+                         (size  (when (and ssize (not (string-equal "*" ssize)))
+                                  (nth-value 0 (cl:parse-integer ssize)))))
                     (or (null size) (< size 8))))
                 (get-font-parts
                  (apply (function make-font-pattern) *font-default-fields*)
@@ -326,7 +319,7 @@ RETURN:  A tree where the child of each node are labelled with
                                                     :slant slant :pixel-size pixel-size
                                                     :spacing "m"))
   (when (fboundp 'single-frame) (single-frame)))
-
+


 (defvar *default-font* "fixed")
diff --git a/pjb-gnus.el b/pjb-gnus.el
index ff41de1..984d952 100644
--- a/pjb-gnus.el
+++ b/pjb-gnus.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Defines some GNU commands.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -15,19 +15,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    GPL
-;;;;
+;;;;
 ;;;;    Copyright Pascal J. Bourguignon 2010 - 2011
-;;;;
+;;;;
 ;;;;    This program is free software; you can redistribute it and/or
 ;;;;    modify it under the terms of the GNU General Public License
 ;;;;    as published by the Free Software Foundation; either version
 ;;;;    2 of the License, or (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be
 ;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
 ;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;;;    PURPOSE.  See the GNU General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU General Public
 ;;;;    License along with this program; if not, write to the Free
 ;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
diff --git a/pjb-google-translate.el b/pjb-google-translate.el
index c23f226..fd81bcd 100644
--- a/pjb-google-translate.el
+++ b/pjb-google-translate.el
@@ -7,7 +7,7 @@
 ;; (does-not-work/google-translate-word "ru" "fr" "совсем")


-(defparameter *grammar-categories* '("phrase"
+(defparameter *grammar-categories* '("phrase"
                                      "adverb"
                                      "noun"
                                      "adjective"))
diff --git a/pjb-graph.el b/pjb-graph.el
index 07ba37c..133f4a1 100644
--- a/pjb-graph.el
+++ b/pjb-graph.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             emacs
 ;;;;USER-INTERFACE:     emacs
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Graph class.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal Bourguignon
 ;;;;MODIFICATIONS
@@ -15,20 +15,20 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    GPL
-;;;;
+;;;;
 ;;;;    Copyright Pascal Bourguignon 2003 - 2011
 ;;;;    mailto:pjb@informatimago.com
-;;;;
+;;;;
 ;;;;    This program is free software; you can redistribute it and/or
 ;;;;    modify it under the terms of the GNU General Public License
 ;;;;    as published by the Free Software Foundation; either version
 ;;;;    2 of the License, or (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be
 ;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
 ;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;;;    PURPOSE.  See the GNU General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU General Public
 ;;;;    License along with this program; if not, write to the Free
 ;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
@@ -46,7 +46,7 @@

 (provide 'pjb-graph)

-;;; cat pjb-graph.el | sed -n  -e '/^(def/s/^/;; /p'
+;;; cat pjb-graph.el | sed -n  -e '/^(def/s/^/;; /p'

 ;; (defclass PjbElement ()
 ;; (defmethod* description ((self PjbElement))
@@ -73,7 +73,7 @@
 ;; (defmethod* description ((self PjbEdge))
 ;; (defgeneric copy ((self PjbEdge))
 ;; (defgeneric nodes ((self PjbEdge))
-;; (defgeneric isBetweenNodes ((self PjbEdge)
+;; (defgeneric isBetweenNodes ((self PjbEdge)
 ;; (defgeneric successor-of ((self PjbEdge) (node PjbElement))

 ;; (defclass PjbWeightMixin ()
@@ -83,9 +83,9 @@
 ;; (defclass PjbUndirectedEdge (PjbEdge)
 ;; (defmethod* copy ((self PjbUndirectedEdge))
 ;; (defun identical-nodes (nodes-cons-a nodes-cons-b)
-;; (defmethod* isBetweenNodes ((self PjbEdge)
+;; (defmethod* isBetweenNodes ((self PjbEdge)
 ;; (defmethod* successor-of ((self PjbUndirectedEdge) (node PjbElement))
-;; (defmethod* setNodes ((self PjbUndirectedEdge)
+;; (defmethod* setNodes ((self PjbUndirectedEdge)

 ;; (defclass PjbWeightedUndirectedEdge (PjbUndirectedEdge PjbWeightMixin)
 ;; (defmethod* description ((self PjbWeightedUndirectedEdge))
@@ -93,7 +93,7 @@
 ;; (defclass PjbDirectedEdge (PjbEdge)
 ;; (defmethod* copy ((self PjbDirectedEdge))
 ;; (defmethod* nodes ((self PjbDirectedEdge))
-;; (defmethod* isBetweenNodes ((self PjbEdge)
+;; (defmethod* isBetweenNodes ((self PjbEdge)
 ;; (defmethod* successor-of ((self PjbDirectedEdge) (node PjbElement))
 ;; (defmethod* setNodes ((self PjbDirectedEdge)

@@ -109,16 +109,16 @@
 ;; (defmethod* removeNode ((self PjbGraph) (oldNode PjbElement))
 ;; (defmethod* removeNodes ((self PjbGraph) oldNodeList)
 ;; (defmethod* addEdge ((self PjbGraph) (newEdge PjbEdge))
-;; (defmethod* addEdgeBetweenNodes ((self PjbGraph)
+;; (defmethod* addEdgeBetweenNodes ((self PjbGraph)
 ;; (defmethod* removeEdge ((self PjbGraph) (oldEdge PjbEdge))
 ;; (defmethod* removeEdges ((self PjbGraph) edge-list)
 ;; (defmethod* removeEdgesBetweenNodes ((self PjbGraph)
 ;; (defmethod* edgesBetweenNodes ((self PjbGraph)
-;; (defmethod* directedEdgesBetweenNodes ((self PjbGraph)
+;; (defmethod* directedEdgesBetweenNodes ((self PjbGraph)
 ;; (defmethod* directedEdgesFromNode ((self PjbGraph) (fromNode PjbElement))
 ;; (defmethod* successorNodes ((self PjbGraph) (node PjbElement))
 ;; (defmethod* adjacentNodes ((self PjbGraph) (node PjbElement))
-;; (defmethod* flowDistanceFromNode ((self PjbGraph)
+;; (defmethod* flowDistanceFromNode ((self PjbGraph)
 ;; (defmethod* walkFromNode ((self PjbGraph) (startNode PjbElement) lambda-body)
 ;; (defmethod* walkEdgesFromNode ((self PjbGraph)
 ;; (defmethod* copy ((self PjbGraph) &rest keys)
@@ -133,7 +133,7 @@
     :reader   ident
     :type     symbol
     :documentation "A unique symbol identifying this element.")
-   (properties
+   (properties
     :initform nil
     :initarg  :properties
     :accessor properties
@@ -152,7 +152,7 @@ It can be used to store markers while walking sets or graphs containing them.")
   "
 DO:     Initalize the instance id.
 "
-  (setf (slot-value self 'ident)
+  (setf (slot-value self 'ident)
         (gensym (format "%s-" (upcase (cl:string (class-of self))))))
   self);;initialize-instance

@@ -231,7 +231,7 @@ DO:     Remove the property named `prop-name' from the property list of
   "
 RETURN: A string describing this element.
 "
-  (format "<An instance of %s with %d elements>"
+  (format "<An instance of %s with %d elements>"
           (class-name (class-of self)) (cardinal self))
   );;description

@@ -360,7 +360,7 @@ RETURN: A list of elements that have as property PROPERTY the value VALUE.
   (:documentation "This is a specialized kind of set that maintains a hashtable
 index of its elements to be able to retrieve them rapidly.")
   );;PjbHashedSet
-
+

 (defmethod* containsElement ((self PjbHashedSet) (anElement PjbElement))
   "
@@ -398,9 +398,9 @@ POST:   already_in       ==> (cardinal self) == old_cardinal
 RETURN: A string describing this element.
 "
   (let ((nodes (nodes self)))
-    (format "<A %s between { %s and %s }>"
-            (class-name (class-of self))
-            (description (car  nodes))
+    (format "<A %s between { %s and %s }>"
+            (class-name (class-of self))
+            (description (car  nodes))
             (description (cdr nodes))))
   );;description

@@ -423,7 +423,7 @@ RETURN: A cons containing the two nodes of the edge, in no specific order.
   );;nodes


-(defgeneric isBetweenNodes ((self PjbEdge)
+(defgeneric isBetweenNodes ((self PjbEdge)
                             (nodeA PjbElement)  (nodeB PjbElement))
   "
 RETURN: Whether this edge is between `nodeA' and `nodeB'.
@@ -437,7 +437,7 @@ RETURN: Whether this edge is between `nodeA' and `nodeB'.
 (defgeneric successor-of ((self PjbEdge) (node PjbElement))
   "
 RETURN: If node is a node of the edge, then return its successor or nil.
-        That is, for an undirected edge e,
+        That is, for an undirected edge e,
              (and (eq (successor-of e (car (nodes e))) (cdr (nodes e)))
                   (eq (successor-of e (cdr (nodes e))) (car (nodes e))) )
         while for a directed edge d:
@@ -532,7 +532,7 @@ RETURN: Whether nodes-cons-a and nodes-cons-b contain the same nodes.
 ;;        (identical-nodes (nodes self) (nodes other)))
 ;;   );;identicalTo

-(defmethod* isBetweenNodes ((self PjbEdge)
+(defmethod* isBetweenNodes ((self PjbEdge)
                             (nodeA PjbElement)  (nodeB PjbElement))
   "
 RETURN: Whether this edge is between `nodeA' and `nodeB'.
@@ -554,7 +554,7 @@ RETURN: If node is a node of this edge, then the other node, else nil.
   );;successor-of


-(defmethod* setNodes ((self PjbUndirectedEdge)
+(defmethod* setNodes ((self PjbUndirectedEdge)
                      (nodeA PjbElement) (nodeB PjbElement))
   "
 DO:     set the nodes of this edge.
@@ -577,8 +577,8 @@ DO:     set the nodes of this edge.
 RETURN: A string describing this element.
 "
   (let ((nodes (nodes self)))
-    (format "<A %s between { %s and %s } weighting %S>"
-            (class-name (class-of self))
+    (format "<A %s between { %s and %s } weighting %S>"
+            (class-name (class-of self))
             (description (car  nodes))
             (description (cdr nodes))
             (weight self)))
@@ -637,7 +637,7 @@ NOTE:   Use the accessor methods `from' and `to' to get the wanted node.
 ;;   );;identicalTo


-(defmethod* isBetweenNodes ((self PjbEdge)
+(defmethod* isBetweenNodes ((self PjbEdge)
                            (nodeA PjbElement)  (nodeB PjbElement))
   "
 RETURN: Whether this edge is between `nodeA' and `nodeB'.
@@ -681,7 +681,7 @@ DO:     set the nodes of this edge.
 RETURN: A string describing this element.
 "
   (let ((nodes (nodes self)))
-    (format "<A %s between { %s and %s } weighting %S>"
+    (format "<A %s between { %s and %s } weighting %S>"
             (class-name (class-of self))
             (description (car  nodes))
             (description (cdr nodes))
@@ -731,10 +731,10 @@ RETURN: Whether `item' is a subclass of PjbEdge (not PjbEdge itself).
     :accessor edge-class
     ;;:type     (satisfies 'subclass-of-edge-p)
     :documentation
-    "The class used to make new edges in this graph.
+    "The class used to make new edges in this graph.
 Default is PjbUndirectedEdge.")
    )
-  (:documentation
+  (:documentation
    "A graph of elements. By default, it's a undirected graph."
    )
   );;PjbGraph
@@ -744,8 +744,8 @@ Default is PjbUndirectedEdge.")
   "
 RETURN: A string describing this element.
 "
-  (format "<A %s with %d nodes and %d edges>"
-          (class-name (class-of self))
+  (format "<A %s with %d nodes and %d edges>"
+          (class-name (class-of self))
           (cardinal (nodes self))
           (cardinal (edges self)))
   );;description
@@ -770,7 +770,7 @@ DO:     Add a list of new nodes to the set of nodes of this graph.

 (defmethod* removeNode ((self PjbGraph) (oldNode PjbElement))
   "
-DO:      Remove the oldNode from the graph.
+DO:      Remove the oldNode from the graph.
          This implies removing all the edges adjacent to the node too.
 "
   (when (containsElement (nodes self) oldNode)
@@ -802,12 +802,12 @@ DO:     Add a new edge to this graph.
   );;addNode


-(defmethod* addEdgeBetweenNodes ((self PjbGraph)
+(defmethod* addEdgeBetweenNodes ((self PjbGraph)
                                 (nodeA PjbElement) (nodeB PjbElement))
   "
 DO:     Create a new edge (of class edge-class) between `nodeA' and `nodeB'.
         and add it to this graph.
-        If the edge is directed,
+        If the edge is directed,
         then `nodeA' is the `from' node and `nodeB' the `to' node.
 "
   (let ((edge (make-instance (edge-class self))))
@@ -856,7 +856,7 @@ RETURN: A list of edges existing between the `nodeA' and `nodeB'.
   );;edgesBetweenNodes


-(defmethod* directedEdgesBetweenNodes ((self PjbGraph)
+(defmethod* directedEdgesBetweenNodes ((self PjbGraph)
                                       (fromNode PjbElement) (toNode PjbElement))
   "
 RETURN: A list of edges existing from the `fromNode' and to the `toNode'.
@@ -910,25 +910,25 @@ NOTE:   For directed graphs, an adjacent node is either a predecessor
      (edges self)
      (lambda (edge)
        (let ((ns (nodes edge)))
-         (cond
-          ((eq node (car ns))
+         (cond
+          ((eq node (car ns))
            (unless (memq (cdr ns) result) (push (cdr ns) result)))
-          ((eq node (cdr ns))
+          ((eq node (cdr ns))
            (unless (memq (car ns) result) (push (car ns) result)))
           ))))
     result)
   );;adjacentNodes


-(defmethod* flowDistanceFromNode ((self PjbGraph)
+(defmethod* flowDistanceFromNode ((self PjbGraph)
                                  (startNode PjbElement) (prop-name symbol))
   "
 DO:     Compute for each node in this graph the distance from the startNode,
         and store it as a property named prop-name.
-NOTE:   If the graph is not connex, then some distances will be nil,
+NOTE:   If the graph is not connex, then some distances will be nil,
         meaning infinity.
 "
-  (performWithElements (nodes self) (lambda (node)
+  (performWithElements (nodes self) (lambda (node)
                                       (setProperty node prop-name nil)))
   (when (containsElement (nodes self) startNode)
     (setProperty startNode prop-name 0)
@@ -955,13 +955,13 @@ NOTE:   If the graph is not connex, then some distances will be nil,

 (defmethod* walkFromNode ((self PjbGraph) (startNode PjbElement) lambda-body)
   "
-DO:     Walk the graph starting form startNode, calling lambda-body
-        with each node as argument.
+DO:     Walk the graph starting form startNode, calling lambda-body
+        with each node as argument.
 "
   (let ((stamp (gensym "walked-")))

     (when (containsElement (nodes self) startNode)
-      (performWithElements (nodes self)
+      (performWithElements (nodes self)
                            (lambda (node) (setProperty node stamp nil)))


@@ -981,7 +981,7 @@ DO:     Walk the graph starting form startNode, calling lambda-body
           );;while
         );;let

-      (performWithElements (nodes self)
+      (performWithElements (nodes self)
                            (lambda (node) (deleteProperty node stamp)))

       );;when
@@ -992,7 +992,7 @@ DO:     Walk the graph starting form startNode, calling lambda-body
 (defmethod* walkEdgesFromNode ((self PjbGraph)
                               (startNode PjbElement) lambda-body)
   "
-DO:     Walk the graph starting form startNode, calling lambda-body
+DO:     Walk the graph starting form startNode, calling lambda-body
         with each edges as argument. Since it's the edges that are passed
         to lambda-body, one node can be \"walked\" several times either as
         `from' or `to' node or different edges.
@@ -1001,9 +1001,9 @@ DO:     Walk the graph starting form startNode, calling lambda-body

     (when (containsElement (nodes self) startNode)

-      (performWithElements (edges self)
+      (performWithElements (edges self)
                            (lambda (item) (setProperty item stamp nil)))
-      (performWithElements (nodes self)
+      (performWithElements (nodes self)
                            (lambda (item) (setProperty item stamp nil)))


@@ -1025,9 +1025,9 @@ DO:     Walk the graph starting form startNode, calling lambda-body
           );;while
         );;let

-      (performWithElements (edges self)
+      (performWithElements (edges self)
                            (lambda (item) (deleteProperty item stamp)))
-      (performWithElements (nodes self)
+      (performWithElements (nodes self)
                            (lambda (item) (deleteProperty item stamp)))

       );;when
@@ -1047,18 +1047,18 @@ NOTE:   By default, the nodes are the same, but the edges are duplicated.
             :no-copy-nodes    (default)
             :copy-edges       (default)
             :no-copy-edges    (==> :no-copy-node)
-
+
        The following combination are valid:

             :copy-nodes    :copy-edge    You get a deep copy of the graph,
-                                         where you can change anything
+                                         where you can change anything
                                          independtly from the orginal.

             :no-copy-nodes :copy-edge    You get a new graph with new edges,
                                          but the same nodes.

             :no-copy-nodes :no-copy-edge You get a new graph with the same
-                                         edges and the same nodes. But you
+                                         edges and the same nodes. But you
                                          still can add or remove nodes or
                                          edges to make it different from the
                                          original graph.
@@ -1088,9 +1088,9 @@ NOTE:   By default, the nodes are the same, but the edges are duplicated.
     (assert (or (and (not copy-edges) no-copy-edges)
                 (and  copy-edges (not no-copy-edges))))

-    (if copy-nodes
+    (if copy-nodes
         (progn
-          (setq node-hash (make-hash-table :test 'eq
+          (setq node-hash (make-hash-table :test 'eq
                                            :size (cardinal (nodes self))))
           (setq new-elements
                 (mapElements (nodes self)
@@ -1105,14 +1105,14 @@ NOTE:   By default, the nodes are the same, but the edges are duplicated.

     (if copy-edges
         (progn
-          (setq new-elements
+          (setq new-elements
                 (mapElements (edges self)
                              (lambda (edge)
                                (let ((new-edge (copy edge))
                                      nodes)
                                  (when copy-nodes
                                    (setq nodes (nodes new-edge))
-                                   (setNodes new-edge
+                                   (setNodes new-edge
                                              (gethash (car nodes) node-hash)
                                              (gethash (cdr nodes) node-hash))
                                    );;when copy-node
@@ -1140,7 +1140,7 @@ RETURN: A list of nodes that have as property PROPERTY the value VALUE.
 (defmethod* show-graph ((self PjbGraph))
   (printf "%s {\n" (description self))

-  (performWithElements
+  (performWithElements
    (nodes self)
    (lambda (node) (printf "   node %s\n"  (description node))) )

diff --git a/pjb-html.el b/pjb-html.el
index 948ff3c..2c2631a 100644
--- a/pjb-html.el
+++ b/pjb-html.el
@@ -5,11 +5,11 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Skip over <tag>...</tag>.
 ;;;;
 ;;;;    We need also up-tag and down-tag, etc.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal Bourguignon <pbourguignon@ravenpack.com>
 ;;;;MODIFICATIONS
@@ -23,19 +23,19 @@
 ;;;;
 ;;;;LEGAL
 ;;;;    GPL
-;;;;
+;;;;
 ;;;;    Copyright Pascal Bourguignon 2007 - 2011
-;;;;
+;;;;
 ;;;;    This program is free software; you can redistribute it and/or
 ;;;;    modify it under the terms of the GNU General Public License
 ;;;;    as published by the Free Software Foundation; either version
 ;;;;    2 of the License, or (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be
 ;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
 ;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;;;    PURPOSE.  See the GNU General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU General Public
 ;;;;    License along with this program; if not, write to the Free
 ;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
diff --git a/pjb-http.el b/pjb-http.el
index a7e9d45..9df1aec 100644
--- a/pjb-http.el
+++ b/pjb-http.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    HTTP and stuff.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal J. Bourguignon <pascal.bourguignon@ubudu.com>
 ;;;;MODIFICATIONS
@@ -15,19 +15,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    AGPL3
-;;;;
+;;;;
 ;;;;    Copyright Pascal J. Bourguignon 2013 - 2013
-;;;;
+;;;;
 ;;;;    This program is free software: you can redistribute it and/or modify
 ;;;;    it under the terms of the GNU Affero General Public License as published by
 ;;;;    the Free Software Foundation, either version 3 of the License, or
 ;;;;    (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be useful,
 ;;;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;;;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;;;    GNU Affero General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU Affero General Public License
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
diff --git a/pjb-i2p-expression.el b/pjb-i2p-expression.el
index c0fa167..552035f 100644
--- a/pjb-i2p-expression.el
+++ b/pjb-i2p-expression.el
@@ -16,7 +16,7 @@
 ;;;;              parse from a string instead of from a parsed i-expr.
 ;;;;
 ;;;;AUTHORS
-;;;;    <PJB> Pascal J. Bourguignon
+;;;;    <PJB> Pascal J. Bourguignon
 ;;;;MODIFICATIONS
 ;;;;    2002-12-27 <PJB> Creation.
 ;;;;BUGS
diff --git a/pjb-insert-image.el b/pjb-insert-image.el
index 16a0dab..3782987 100644
--- a/pjb-insert-image.el
+++ b/pjb-insert-image.el
@@ -5,10 +5,10 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    A patch to emacs to be able to insert images in a comint buffer
 ;;;;    such as inferior-lisp REPL.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
 ;;;;MODIFICATIONS
@@ -16,19 +16,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    GPL
-;;;;
+;;;;
 ;;;;    Copyright Pascal J. Bourguignon 2010 - 2010
-;;;;
+;;;;
 ;;;;    This program is free software; you can redistribute it and/or
 ;;;;    modify it under the terms of the GNU General Public License
 ;;;;    as published by the Free Software Foundation; either version
 ;;;;    2 of the License, or (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be
 ;;;;    useful, but WITHOUT ANY WARRANTY; without even the implied
 ;;;;    warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;;;    PURPOSE.  See the GNU General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU General Public
 ;;;;    License along with this program; if not, write to the Free
 ;;;;    Software Foundation, Inc., 59 Temple Place, Suite 330,
@@ -59,7 +59,7 @@
                                  t
                                  comint-preoutput-filter-functions))
               (strings (list string)))
-
+
           (while (and functions strings)
             (setf strings (loop
                              with result = ()
@@ -68,7 +68,7 @@
                              finally (return (nreverse result))))
             (setq functions (cdr functions)))
           (setf string strings))
-
+
         ;; Insert STRING
         (let ((inhibit-read-only t)
               ;; The point should float after any insertion we do.
@@ -92,7 +92,7 @@
                     ((consp   item) (insert-image (first item) (second item)))
                     (t (error "Unexpected kind of insert %S" item))))

-
+
             ;; Advance process-mark
             (set-marker (process-mark process) (point))
             (setf string (buffer-substring comint-last-output-start (point)))
diff --git a/pjb-invoices.el.restore b/pjb-invoices.el.restore
index eae1366..1043521 100644
--- a/pjb-invoices.el.restore
+++ b/pjb-invoices.el.restore
@@ -464,7 +464,7 @@ DOES:    Checks that the values for the fields are within limits.
 ;;;                                            (* (amount-ht self)
 ;;;                                               (vat-rate self)) (devise self))))
 ;;;   (setf (slot-value self 'amount-ttc) (euro-round
-;;;                                        (+ (amount-ht self)
+;;;                                        (+ (amount-ht self)
 ;;;                                           (amount-vat self)) (devise self)))

 ;;;   );;compute-amount-ttc
@@ -1920,7 +1920,7 @@ RETURN: a list containing the totals:


 (defun kind-to-order (kind)
-  (cond
+  (cond
    ((eq kind PRESTACION-NACIONAL)          1)
    ((eq kind PRESTACION-INTRACOMUNITARIA)  2)
    ((eq kind IMPUESTO)                     3)
@@ -1933,7 +1933,7 @@ RETURN: a list containing the totals:
   "DOES:   Insert the formated entries of the journal into the current buffer
         at the current point."
   (journal-sort)
-  (let* ((entries
+  (let* ((entries
           (sort (journal-extract year trimestre)
                 (lambda (a b)
                   (cond
@@ -2046,10 +2046,10 @@ SEE-ALSO:    impuestos-file-path."

   (unless (member (/ (round (abs (/  amount-vat amount-ht)) 0.01) 100.0)
                   vat-rates)
-  (error "Invalid VAT amount (%f/%f not in %S)."
+  (error "Invalid VAT amount (%f/%f not in %S)."
          amount-vat amount-ht vat-rates))

-  (when (/= (round amount-ttc 0.01)
+  (when (/= (round amount-ttc 0.01)
             (+ (round  amount-ht 0.01) (round amount-vat 0.01)))
     (error "amount-ttc /= amount-ht + amount-vat (%f /= %f + %f)."
            amount-ttc amount-ht amount-vat))
@@ -2057,7 +2057,7 @@ SEE-ALSO:    impuestos-file-path."
   (when (/= (round (/ amount-vat amount-ht) 0.01) (round vat-rate 0.01))
     (error "vat-rate /= amount-vat / amount-ht (%f /= %f / %f)."
            vat-rate amount-vat amount-ht))
-
+
   );;check-vat


@@ -2087,7 +2087,7 @@ RETURN: the IVA data for the given ENTRIES of journal."
          ((= vat-rate 0.16)
           (setq base-iva-16 (+ base-iva-16 (credit-ht entry))))
          (t
-          (error "Invalid VAT rate %f in entry %S of journal."
+          (error "Invalid VAT rate %f in entry %S of journal."
                  vat-rate entry))))
        ((member kind '(PRESTACION-INTRACOMUNITARIA IMPUESTO))
         ;; Nada que hacer.
diff --git a/pjb-java.el b/pjb-java.el
index f866114..aca7da7 100644
--- a/pjb-java.el
+++ b/pjb-java.el
@@ -5,9 +5,9 @@
 ;;;;SYSTEM:             POSIX
 ;;;;USER-INTERFACE:     NONE
 ;;;;DESCRIPTION
-;;;;
+;;;;
 ;;;;    Commands to help editing java code.
-;;;;
+;;;;
 ;;;;AUTHORS
 ;;;;    <PJB> Pascal. Bourguignon <pascal.bourguignon@ubudu.com>
 ;;;;MODIFICATIONS
@@ -15,19 +15,19 @@
 ;;;;BUGS
 ;;;;LEGAL
 ;;;;    AGPL3
-;;;;
+;;;;
 ;;;;    Copyright Pascal. Bourguignon 2013 - 2013
-;;;;
+;;;;
 ;;;;    This program is free software: you can redistribute it and/or modify
 ;;;;    it under the terms of the GNU Affero General Public License as published by
 ;;;;    the Free Software Foundation, either version 3 of the License, or
 ;;;;    (at your option) any later version.
-;;;;
+;;;;
 ;;;;    This program is distributed in the hope that it will be useful,
 ;;;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;;;;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;;;;    GNU Affero General Public License for more details.
-;;;;
+;;;;
 ;;;;    You should have received a copy of the GNU Affero General Public License
 ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
 ;;;;**************************************************************************
@@ -43,8 +43,8 @@
         (concat (capitalize (substring string 0 1)) (substring string 1)))))

 (defun java-generate-structure-class (class-name slots)
-  (insert (format "\npublic class %s {\n" class-name))
-  (insert (format "  public %s(){}\n" class-name))
+  (insert (format "\npublic class %s {\n" class-name))
+  (insert (format "  public %s(){}\n" class-name))
   (dolist (slot slots)
     (destructuring-bind (name type &rest options) slot
       (let ((came (java-capitalize-first-letter (etypecase name
@@ -66,8 +66,8 @@
 ;; (java-ins @Override)
 ;; (java-def `(method public ,name ,parameters ,retype [throws Exception]
 ;;                    (send super ,name ,arguments)
-;;
-;;
+;;
+;;
 ;;                    ))

 (defun lastcar (x) (car (last x)))
@@ -136,106 +136,106 @@


 ;; (pjb-parse-html (pjb-http-get  "http://developer.android.com/reference/classes.html"))
-;;
-;;
+;;
+;;
 ;; "<!DOCTYPE html>
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
 ;; <html>
 ;; <head>
-;;
-;;
-;;
+;;
+;;
+;;
 ;; <meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">
-;;
+;;
 ;; <link rel=\"shortcut icon\" type=\"image/x-icon\" href=\"/favicon.ico\" />
 ;; <title>Class Index | Android Developers</title>
-;;
+;;
 ;; <!-- STYLESHEETS -->
 ;; <link rel=\"stylesheet\"
 ;; href=\"//fonts.googleapis.com/css?family=Roboto:regular,medium,thin,italic,mediumitalic,bold\" title=\"roboto\">
 ;; <link href=\"/assets/css/default.css\" rel=\"stylesheet\" type=\"text/css\">
-;;
-;;
+;;
+;;
 ;; <!-- FULLSCREEN STYLESHEET -->
 ;; <link href=\"/assets/css/fullscreen.css\" rel=\"stylesheet\" class=\"fullscreen\"
 ;; type=\"text/css\">
-;;
-;;
+;;
+;;
 ;; <!-- JAVASCRIPT -->
 ;; <script src=\"//www.google.com/jsapi\" type=\"text/javascript\"></script>
 ;; <script src=\"/assets/js/android_3p-bundle.js\" type=\"text/javascript\"></script>
@@ -244,12 +244,12 @@
 ;;   var devsite = false;
 ;; </script>
 ;; <script src=\"/assets/js/docs.js\" type=\"text/javascript\"></script>
-;;
+;;
 ;; <script type=\"text/javascript\">
 ;;   var _gaq = _gaq || [];
 ;;   _gaq.push(['_setAccount', 'UA-5831155-1']);
 ;;   _gaq.push(['_trackPageview']);
-;;
+;;
 ;;   (function() {
 ;;     var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
 ;;     ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
@@ -257,12 +257,12 @@
 ;;   })();
 ;; </script>
 ;; </head>
-;; <body class=\"gc-documentation
+;; <body class=\"gc-documentation
 ;;   develop\" itemscope itemtype=\"http://schema.org/Article\">
 ;;   <a name=\"top\"></a>
-;;
+;;
 ;; <a name=\"top\"></a>
-;;
+;;
 ;;     <!-- Header -->
 ;;     <div id=\"header\">
 ;;         <div class=\"wrap\" id=\"header-wrap\">
@@ -271,8 +271,8 @@
 ;;             <img src=\"/assets/images/dac_logo.png\" width=\"123\" height=\"25\" alt=\"Android Developers\" />
 ;;           </a>
 ;;           <div class=\"btn-quicknav\" id=\"btn-quicknav\">
-;;           	<a href=\"#\" class=\"arrow-inactive\">Quicknav</a>
-;; 			      <a href=\"#\" class=\"arrow-active\">Quicknav</a>
+;;              <a href=\"#\" class=\"arrow-inactive\">Quicknav</a>
+;;                            <a href=\"#\" class=\"arrow-active\">Quicknav</a>
 ;;           </div>
 ;;           </div>
 ;;             <ul class=\"nav-x col-9\">
@@ -283,7 +283,7 @@
 ;;                   ru-lang=\"Проектирование\"
 ;;                   ko-lang=\"디자인\"
 ;;                   ja-lang=\"設計\"
-;;                   es-lang=\"Diseñar\"
+;;                   es-lang=\"Diseñar\"
 ;;                   >Design</a></li>
 ;;                 <li class=\"develop\"><a href=\"/develop/index.html\"
 ;;                   zh-tw-lang=\"開發\"
@@ -291,7 +291,7 @@
 ;;                   ru-lang=\"Разработка\"
 ;;                   ko-lang=\"개발\"
 ;;                   ja-lang=\"開発\"
-;;                   es-lang=\"Desarrollar\"
+;;                   es-lang=\"Desarrollar\"
 ;;                   >Develop</a></li>
 ;;                 <li class=\"distribute last\"><a href=\"/distribute/index.html\"
 ;;                   zh-tw-lang=\"發佈\"
@@ -299,10 +299,10 @@
 ;;                   ru-lang=\"Распространение\"
 ;;                   ko-lang=\"배포\"
 ;;                   ja-lang=\"配布\"
-;;                   es-lang=\"Distribuir\"
+;;                   es-lang=\"Distribuir\"
 ;;                   >Distribute</a></li>
 ;;             </ul>
-;;
+;;
 ;;             <!-- New Search -->
 ;;             <div class=\"menu-container\">
 ;;             <div class=\"moremenu\">
@@ -323,9 +323,9 @@
 ;;         <li class=\"active\"><a>Android Developers</a></li>
 ;;         <li><a href=\"http://source.android.com\">Android Open Source Project</a></li>
 ;;       </ul>
-;;
-;;
-;;
+;;
+;;
+;;
 ;;         <div class=\"header\">Language</div>
 ;;           <div id=\"language\" class=\"locales\">
 ;;             <select name=\"language\" onChange=\"changeLangPref(this.value, true)\">
@@ -343,10 +343,10 @@
 ;;           loadLangPref();
 ;;             //-->
 ;;         </script>
-;;
-;;
-;;
-;;
+;;
+;;
+;;
+;;
 ;;       <br class=\"clearfix\" />
 ;;     </div>
 ;;     <div class=\"bottom\"></div>
@@ -358,7 +358,7 @@
 ;;       <form onsubmit=\"return submit_search()\">
 ;;         <input id=\"search_autocomplete\" type=\"text\" value=\"\" autocomplete=\"off\" name=\"q\"
 ;; onfocus=\"search_focus_changed(this, true)\" onblur=\"search_focus_changed(this, false)\"
-;; onkeydown=\"return search_changed(event, true, '/')\"
+;; onkeydown=\"return search_changed(event, true, '/')\"
 ;; onkeyup=\"return search_changed(event, false, '/')\" />
 ;;       </form>
 ;;       <div class=\"right\"></div>
@@ -367,14 +367,14 @@
 ;;         <div class=\"right\"></div>
 ;;     </div>
 ;;   </div>
-;;
+;;
 ;;   <div class=\"search_filtered_wrapper reference\">
 ;;     <div class=\"suggest-card reference no-display\">
 ;;       <ul class=\"search_filtered\">
 ;;       </ul>
 ;;     </div>
 ;;   </div>
-;;
+;;
 ;;   <div class=\"search_filtered_wrapper docs\">
 ;;     <div class=\"suggest-card dummy no-display\">&nbsp;</div>
 ;;     <div class=\"suggest-card develop no-display\">
@@ -394,11 +394,11 @@
 ;;       </ul>
 ;;     </div>
 ;;   </div>
-;;
+;;
 ;;   </div>
 ;;   <!-- /New Search>
-;;
-;;
+;;
+;;
 ;;           <!-- Expanded quicknav -->
 ;;            <div id=\"quicknav\" class=\"col-9\">
 ;;                 <ul>
@@ -420,7 +420,7 @@
 ;;                           ru-lang=\"Курсы\"
 ;;                           ko-lang=\"교육\"
 ;;                           ja-lang=\"トレーニング\"
-;;                           es-lang=\"Capacitación\"
+;;                           es-lang=\"Capacitación\"
 ;;                           >Training</a></li>
 ;;                         <li><a href=\"/guide/components/index.html\"
 ;;                           zh-tw-lang=\"API 指南\"
@@ -428,7 +428,7 @@
 ;;                           ru-lang=\"Руководства по API\"
 ;;                           ko-lang=\"API 가이드\"
 ;;                           ja-lang=\"API ガイド\"
-;;                           es-lang=\"Guías de la API\"
+;;                           es-lang=\"Guías de la API\"
 ;;                           >API Guides</a></li>
 ;;                         <li><a href=\"/reference/packages.html\"
 ;;                           zh-tw-lang=\"參考資源\"
@@ -436,7 +436,7 @@
 ;;                           ru-lang=\"Справочник\"
 ;;                           ko-lang=\"참조문서\"
 ;;                           ja-lang=\"リファレンス\"
-;;                           es-lang=\"Referencia\"
+;;                           es-lang=\"Referencia\"
 ;;                           >Reference</a></li>
 ;;                         <li><a href=\"/tools/index.html\"
 ;;                           zh-tw-lang=\"相關工具\"
@@ -444,13 +444,13 @@
 ;;                           ru-lang=\"Инструменты\"
 ;;                           ko-lang=\"도구\"
 ;;                           ja-lang=\"ツール\"
-;;                           es-lang=\"Herramientas\"
+;;                           es-lang=\"Herramientas\"
 ;;                           >Tools</a>
 ;;                           <ul><li><a href=\"/sdk/index.html\">Get the SDK</a></li></ul>
 ;;                         </li>
 ;;                         <li><a href=\"/google/index.html\">Google Services</a>
 ;;                         </li>
-;;
+;;
 ;;                       </ul>
 ;;                     </li>
 ;;                     <li class=\"distribute last\">
@@ -469,15 +469,15 @@
 ;;         </div>
 ;;     </div>
 ;;     <!-- /Header -->
-;;
-;;
+;;
+;;
 ;;   <div id=\"searchResults\" class=\"wrap\" style=\"display:none;\">
 ;;           <h2 id=\"searchTitle\">Results</h2>
 ;;           <div id=\"leftSearchControl\" class=\"search-control\">Loading...</div>
 ;;   </div>
-;;
-;;
-;;
+;;
+;;
+;;
 ;;     <!-- Secondary x-nav -->
 ;;     <div id=\"nav-x\">
 ;;         <div class=\"wrap\">
@@ -488,7 +488,7 @@
 ;;                   ru-lang=\"Курсы\"
 ;;                   ko-lang=\"교육\"
 ;;                   ja-lang=\"トレーニング\"
-;;                   es-lang=\"Capacitación\"
+;;                   es-lang=\"Capacitación\"
 ;;                   >Training</a></li>
 ;;                 <li class=\"guide\"><a href=\"/guide/components/index.html\"
 ;;                   zh-tw-lang=\"API 指南\"
@@ -496,7 +496,7 @@
 ;;                   ru-lang=\"Руководства по API\"
 ;;                   ko-lang=\"API 가이드\"
 ;;                   ja-lang=\"API ガイド\"
-;;                   es-lang=\"Guías de la API\"
+;;                   es-lang=\"Guías de la API\"
 ;;                   >API Guides</a></li>
 ;;                 <li class=\"reference\"><a href=\"/reference/packages.html\"
 ;;                   zh-tw-lang=\"參考資源\"
@@ -504,7 +504,7 @@
 ;;                   ru-lang=\"Справочник\"
 ;;                   ko-lang=\"참조문서\"
 ;;                   ja-lang=\"リファレンス\"
-;;                   es-lang=\"Referencia\"
+;;                   es-lang=\"Referencia\"
 ;;                   >Reference</a></li>
 ;;                 <li class=\"tools\"><a href=\"/tools/index.html\"
 ;;                   zh-tw-lang=\"相關工具\"
@@ -517,24 +517,24 @@
 ;;                 <li class=\"google\"><a href=\"/google/index.html\"
 ;;                   >Google Services</a>
 ;;                 </li>
-;;
+;;
 ;;             </ul>
 ;;         </div>
-;;
+;;
 ;;     </div>
 ;;     <!-- /Sendondary x-nav -->
-;;
-;;
-;;
-;;
-;;
-;;
-;;
-;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
+;;
 ;;   <div class=\"wrap clearfix\" id=\"body-content\">
 ;;     <div class=\"col-4\" id=\"side-nav\" itemscope itemtype=\"http://schema.org/SiteNavigationElement\">
 ;;       <div id=\"devdoc-nav\">
-;;
+;;
 ;; <a class=\"totop\" href=\"#top\" data-g-event=\"left-nav-top\">to top</a>
 ;;       <div id=\"api-nav-header\">
 ;;         <div id=\"api-level-toggle\">
@@ -551,14 +551,14 @@
 ;;         var SINCE_DATA = [ '1', '2', '3', '4', '5', '6', '7', '8', '9', '10', '11', '12', '13', '14', '15', '16', '17', '18' ];
 ;;         buildApiLevelSelector();
 ;;       </script>
-;;
+;;
 ;;       <div id=\"swapper\">
 ;;         <div id=\"nav-panels\">
 ;;           <div id=\"resize-packages-nav\">
 ;;             <div id=\"packages-nav\" class=\"scroll-pane\">
-;;
+;;
 ;;               <ul>
-;;
+;;
 ;;     <li class=\"api apilevel-1\">
 ;;   <a href=\"/reference/android/package-summary.html\">android</a></li>
 ;;     <li class=\"api apilevel-4\">
@@ -944,16 +944,16 @@
 ;;     <li class=\"api apilevel-1\">
 ;;   <a href=\"/reference/org/xmlpull/v1/sax2/package-summary.html\">org.xmlpull.v1.sax2</a></li>
 ;;               </ul><br/>
-;;
+;;
 ;;             </div> <!-- end packages-nav -->
 ;;           </div> <!-- end resize-packages -->
 ;;           <div id=\"classes-nav\" class=\"scroll-pane\">
-;;
-;;
-;;
+;;
+;;
+;;
 ;;               <p style=\"padding:10px\">Select a package to view its members</p><br/>
-;;
-;;
+;;
+;;
 ;;           </div><!-- end classes -->
 ;;         </div><!-- end nav-panels -->
 ;;         <div id=\"nav-tree\" style=\"display:none\" class=\"scroll-pane\">
@@ -992,17 +992,17 @@
 ;;         scrollIntoView(\"classes-nav\");
 ;;         });
 ;;     </script>
-;;
-;;
-;;
-;;
-;;
+;;
+;;
+;;
+;;
+;;
 ;; <div class=\"col-12\" id=\"doc-col\">
-;;
+;;
 ;; <div id=\"jd-header\">
 ;; <h1>Class Index</h1>
 ;; </div>
-;;
+;;
 ;; <div id=\"jd-content\">
 ;; <p>These are the Android API classes. See all <a href=\"packages.html\">API packages</a>.</p>
 ;; <div class=\"jd-letterlist\">
@@ -1033,59 +1033,59 @@
 ;;     <a href=\"#letter_Y\">Y</a>&nbsp;&nbsp;
 ;;     <a href=\"#letter_Z\">Z</a>&nbsp;&nbsp;
 ;; </div>
-;;
-;;
-;;
+;;
+;;
+;;
 ;; <h2 id=\"letter_A\">A</h2>
 ;; <table class=\"jd-sumtable\">
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/client/methods/AbortableHttpRequest.html\">AbortableHttpRequest</a></td>
-;;             <td class=\"jd-descrcol\" width=\"100%\">Interface representing an HTTP request that can be aborted by shutting
+;;             <td class=\"jd-descrcol\" width=\"100%\">Interface representing an HTTP request that can be aborted by shutting
 ;;  down the underlying HTTP connection.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/AbsListView.html\">AbsListView</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Base class that can be used to implement virtualized lists of items.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/AbsListView.LayoutParams.html\">AbsListView.LayoutParams</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">AbsListView extends LayoutParams to provide a place to hold the view type.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/AbsListView.MultiChoiceModeListener.html\">AbsListView.MultiChoiceModeListener</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A MultiChoiceModeListener receives events for <code><a href=\"/reference/android/widget/AbsListView.html#CHOICE_MODE_MULTIPLE_MODAL\">CHOICE_MODE_MULTIPLE_MODAL</a></code>.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/AbsListView.OnScrollListener.html\">AbsListView.OnScrollListener</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Interface definition for a callback to be invoked when the list or grid
 ;;  has been scrolled.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/AbsListView.RecyclerListener.html\">AbsListView.RecyclerListener</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A RecyclerListener is used to receive a notification whenever a View is placed
 ;;  inside the RecycleBin's scrap heap.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/AbsListView.SelectionBoundsAdjuster.html\">AbsListView.SelectionBoundsAdjuster</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">The top-level view of a list item can implement this interface to allow
 ;;  itself to modify the bounds of the selection shown for that item.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/AbsoluteLayout.html\">AbsoluteLayout</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><em>
@@ -1095,729 +1095,729 @@
 ;;              or a custom layout instead.
 ;; </em>&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/AbsoluteLayout.LayoutParams.html\">AbsoluteLayout.LayoutParams</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Per-child layout information associated with AbsoluteLayout.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/text/style/AbsoluteSizeSpan.html\">AbsoluteSizeSpan</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/AbsSavedState.html\">AbsSavedState</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A <code><a href=\"/reference/android/os/Parcelable.html\">Parcelable</a></code> implementation that should be used by inheritance
 ;;  hierarchies to ensure the state of all classes along the chain is saved.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/AbsSeekBar.html\">AbsSeekBar</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/AbsSpinner.html\">AbsSpinner</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An abstract base class for spinner widgets.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-5\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/accounts/AbstractAccountAuthenticator.html\">AbstractAccountAuthenticator</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Abstract base class for creating AccountAuthenticators.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/impl/client/AbstractAuthenticationHandler.html\">AbstractAuthenticationHandler</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/impl/conn/AbstractClientConnAdapter.html\">AbstractClientConnAdapter</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Abstract adapter from <code><a href=\"/reference/org/apache/http/conn/OperatedClientConnection.html\">operated</a></code> to
 ;;  <code><a href=\"/reference/org/apache/http/conn/ManagedClientConnection.html\">managed</a></code> client connections.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/AbstractCollection.html\">AbstractCollection</a>&lt;E&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Class <code>AbstractCollection</code> is an abstract implementation of the <code>Collection</code> interface.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/impl/conn/tsccm/AbstractConnPool.html\">AbstractConnPool</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An abstract connection pool.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/impl/cookie/AbstractCookieAttributeHandler.html\">AbstractCookieAttributeHandler</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/impl/cookie/AbstractCookieSpec.html\">AbstractCookieSpec</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Abstract cookie specification which can delegate the job of parsing,
-;;  validation or matching cookie attributes to a number of arbitrary
+;;  validation or matching cookie attributes to a number of arbitrary
 ;;  <code><a href=\"/reference/org/apache/http/cookie/CookieAttributeHandler.html\">CookieAttributeHandler</a></code>s.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/database/AbstractCursor.html\">AbstractCursor</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This is an abstract cursor class that handles a lot of the common code
 ;;  that all cursors need to deal with and is provided for convenience reasons.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/database/AbstractCursor.SelfContentObserver.html\">AbstractCursor.SelfContentObserver</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Cursors use this class to track changes others make to their URI.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/concurrent/AbstractExecutorService.html\">AbstractExecutorService</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Provides default implementations of <code><a href=\"/reference/java/util/concurrent/ExecutorService.html\">ExecutorService</a></code>
 ;;  execution methods.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/impl/client/AbstractHttpClient.html\">AbstractHttpClient</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Convenience base class for HTTP client implementations.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/impl/AbstractHttpClientConnection.html\">AbstractHttpClientConnection</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Abstract client-side HTTP connection capable of transmitting and receiving data
 ;;  using arbitrary <code><a href=\"/reference/org/apache/http/io/SessionInputBuffer.html\">SessionInputBuffer</a></code> and <code><a href=\"/reference/org/apache/http/io/SessionOutputBuffer.html\">SessionOutputBuffer</a></code>&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/entity/AbstractHttpEntity.html\">AbstractHttpEntity</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Abstract base class for entities.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/message/AbstractHttpMessage.html\">AbstractHttpMessage</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Basic implementation of an HTTP message that can be modified.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/params/AbstractHttpParams.html\">AbstractHttpParams</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Abstract base class for parameter collections.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/impl/AbstractHttpServerConnection.html\">AbstractHttpServerConnection</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Abstract server-side HTTP connection capable of transmitting and receiving data
 ;;  using arbitrary <code><a href=\"/reference/org/apache/http/io/SessionInputBuffer.html\">SessionInputBuffer</a></code> and <code><a href=\"/reference/org/apache/http/io/SessionOutputBuffer.html\">SessionOutputBuffer</a></code>&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-3\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/inputmethodservice/AbstractInputMethodService.html\">AbstractInputMethodService</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">AbstractInputMethodService provides a abstract base class for input methods.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-3\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/inputmethodservice/AbstractInputMethodService.AbstractInputMethodImpl.html\">AbstractInputMethodService.AbstractInputMethodImpl</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Base class for derived classes to implement their <code><a href=\"/reference/android/view/inputmethod/InputMethod.html\">InputMethod</a></code>
 ;;  interface.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-3\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/inputmethodservice/AbstractInputMethodService.AbstractInputMethodSessionImpl.html\">AbstractInputMethodService.AbstractInputMethodSessionImpl</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Base class for derived classes to implement their <code><a href=\"/reference/android/view/inputmethod/InputMethodSession.html\">InputMethodSession</a></code>
 ;;  interface.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/nio/channels/spi/AbstractInterruptibleChannel.html\">AbstractInterruptibleChannel</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><code>AbstractInterruptibleChannel</code> is the root class for interruptible
 ;;  channels.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/AbstractList.html\">AbstractList</a>&lt;E&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><code>AbstractList</code> is an abstract implementation of the <code>List</code> interface, optimized
 ;;  for a backing store which supports random access.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/AbstractMap.html\">AbstractMap</a>&lt;K,&nbsp;V&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A base class for <code>Map</code> implementations.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-9\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/AbstractMap.SimpleEntry.html\">AbstractMap.SimpleEntry</a>&lt;K,&nbsp;V&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A key-value mapping with mutable values.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-9\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/AbstractMap.SimpleImmutableEntry.html\">AbstractMap.SimpleImmutableEntry</a>&lt;K,&nbsp;V&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An immutable key-value mapping.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/impl/io/AbstractMessageParser.html\">AbstractMessageParser</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Message parser base class.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/impl/io/AbstractMessageWriter.html\">AbstractMessageWriter</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/lang/AbstractMethodError.html\">AbstractMethodError</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Thrown by the VM when an abstract method is called.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-5\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/concurrent/locks/AbstractOwnableSynchronizer.html\">AbstractOwnableSynchronizer</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A synchronizer that may be exclusively owned by a thread.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/impl/conn/AbstractPooledConnAdapter.html\">AbstractPooledConnAdapter</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Abstract adapter from pool <code><a href=\"/reference/org/apache/http/impl/conn/AbstractPoolEntry.html\">entries</a></code> to
 ;;  <code><a href=\"/reference/org/apache/http/conn/ManagedClientConnection.html\">managed</a></code>
 ;;  client connections.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/impl/conn/AbstractPoolEntry.html\">AbstractPoolEntry</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A pool entry for use by connection manager implementations.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/prefs/AbstractPreferences.html\">AbstractPreferences</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This abstract class is a partial implementation of the abstract class
 ;;  Preferences, which can be used to simplify <code>Preferences</code> provider's
 ;;  implementation.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/AbstractQueue.html\">AbstractQueue</a>&lt;E&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This class provides skeletal implementations of some <code><a href=\"/reference/java/util/Queue.html\">Queue</a></code>
 ;;  operations.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-9\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/concurrent/locks/AbstractQueuedLongSynchronizer.html\">AbstractQueuedLongSynchronizer</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A version of <code><a href=\"/reference/java/util/concurrent/locks/AbstractQueuedSynchronizer.html\">AbstractQueuedSynchronizer</a></code> in
 ;;  which synchronization state is maintained as a <tt>long</tt>.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-9\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/concurrent/locks/AbstractQueuedLongSynchronizer.ConditionObject.html\">AbstractQueuedLongSynchronizer.ConditionObject</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Condition implementation for a <code><a href=\"/reference/java/util/concurrent/locks/AbstractQueuedLongSynchronizer.html\">AbstractQueuedLongSynchronizer</a></code> serving as the basis of a <code><a href=\"/reference/java/util/concurrent/locks/Lock.html\">Lock</a></code> implementation.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/concurrent/locks/AbstractQueuedSynchronizer.html\">AbstractQueuedSynchronizer</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Provides a framework for implementing blocking locks and related
 ;;  synchronizers (semaphores, events, etc) that rely on
 ;;  first-in-first-out (FIFO) wait queues.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/concurrent/locks/AbstractQueuedSynchronizer.ConditionObject.html\">AbstractQueuedSynchronizer.ConditionObject</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Condition implementation for a <code><a href=\"/reference/java/util/concurrent/locks/AbstractQueuedSynchronizer.html\">AbstractQueuedSynchronizer</a></code> serving as the basis of a <code><a href=\"/reference/java/util/concurrent/locks/Lock.html\">Lock</a></code> implementation.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/nio/channels/spi/AbstractSelectableChannel.html\">AbstractSelectableChannel</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><code>AbstractSelectableChannel</code> is the base implementation class for
 ;;  selectable channels.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/nio/channels/spi/AbstractSelectionKey.html\">AbstractSelectionKey</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><code>AbstractSelectionKey</code> is the base implementation class for selection keys.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/nio/channels/spi/AbstractSelector.html\">AbstractSelector</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><code>AbstractSelector</code> is the base implementation class for selectors.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/AbstractSequentialList.html\">AbstractSequentialList</a>&lt;E&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">AbstractSequentialList is an abstract implementation of the List interface.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/impl/io/AbstractSessionInputBuffer.html\">AbstractSessionInputBuffer</a></td>
-;;             <td class=\"jd-descrcol\" width=\"100%\">Abstract base class for session input buffers that stream data
+;;             <td class=\"jd-descrcol\" width=\"100%\">Abstract base class for session input buffers that stream data
 ;;  from a <code><a href=\"/reference/java/io/InputStream.html\">InputStream</a></code>.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/impl/io/AbstractSessionOutputBuffer.html\">AbstractSessionOutputBuffer</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Abstract base class for session output buffers that stream data
 ;;  to an <code><a href=\"/reference/java/io/OutputStream.html\">OutputStream</a></code>.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/AbstractSet.html\">AbstractSet</a>&lt;E&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An AbstractSet is an abstract implementation of the Set interface.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-5\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/content/AbstractThreadedSyncAdapter.html\">AbstractThreadedSyncAdapter</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An abstract implementation of a SyncAdapter that spawns a thread to invoke a sync operation.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/conn/ssl/AbstractVerifier.html\">AbstractVerifier</a></td>
-;;             <td class=\"jd-descrcol\" width=\"100%\">Abstract base class for all standard <code><a href=\"/reference/org/apache/http/conn/ssl/X509HostnameVerifier.html\">X509HostnameVerifier</a></code>
+;;             <td class=\"jd-descrcol\" width=\"100%\">Abstract base class for all standard <code><a href=\"/reference/org/apache/http/conn/ssl/X509HostnameVerifier.html\">X509HostnameVerifier</a></code>
 ;;  implementations.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/database/AbstractWindowedCursor.html\">AbstractWindowedCursor</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A base class for Cursors that store their data in <code><a href=\"/reference/android/database/CursorWindow.html\">CursorWindow</a></code>s.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/animation/AccelerateDecelerateInterpolator.html\">AccelerateDecelerateInterpolator</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An interpolator where the rate of change starts and ends slowly but
 ;;  accelerates through the middle.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/animation/AccelerateInterpolator.html\">AccelerateInterpolator</a></td>
-;;             <td class=\"jd-descrcol\" width=\"100%\">An interpolator where the rate of change starts out slowly and
+;;             <td class=\"jd-descrcol\" width=\"100%\">An interpolator where the rate of change starts out slowly and
 ;;  and then accelerates.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/security/AccessControlContext.html\">AccessControlContext</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Legacy security code; do not use.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/security/AccessControlException.html\">AccessControlException</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><code>AccessControlException</code> is thrown if the access control infrastructure
 ;;  denies protected access due to missing permissions.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/security/AccessController.html\">AccessController</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Legacy security code; do not use.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v4/view/AccessibilityDelegateCompat.html\">AccessibilityDelegateCompat</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Helper for accessing <code><a href=\"/reference/android/view/View.AccessibilityDelegate.html\">View.AccessibilityDelegate</a></code> introduced after
 ;;  API level 4 in a backwards compatible fashion.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-4\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/accessibility/AccessibilityEvent.html\">AccessibilityEvent</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><p>
 ;;  This class represents accessibility events that are sent by the system when
 ;;  something notable happens in the user interface.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v4/view/accessibility/AccessibilityEventCompat.html\">AccessibilityEventCompat</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Helper for accessing features in <code><a href=\"/reference/android/view/accessibility/AccessibilityEvent.html\">AccessibilityEvent</a></code>
 ;;  introduced after API level 4 in a backwards compatible fashion.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-4\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/accessibility/AccessibilityEventSource.html\">AccessibilityEventSource</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This interface is implemented by classes source of <code><a href=\"/reference/android/view/accessibility/AccessibilityEvent.html\">AccessibilityEvent</a></code>s.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-4\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/accessibility/AccessibilityManager.html\">AccessibilityManager</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">System level service that serves as an event dispatch for <code><a href=\"/reference/android/view/accessibility/AccessibilityEvent.html\">AccessibilityEvent</a></code>s,
 ;;  and provides facilities for querying the accessibility state of the system.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-14\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/accessibility/AccessibilityManager.AccessibilityStateChangeListener.html\">AccessibilityManager.AccessibilityStateChangeListener</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Listener for the system accessibility state.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v4/view/accessibility/AccessibilityManagerCompat.html\">AccessibilityManagerCompat</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Helper for accessing features in <code><a href=\"/reference/android/view/accessibility/AccessibilityManager.html\">AccessibilityManager</a></code>
 ;;  introduced after API level 4 in a backwards compatible fashion.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v4/view/accessibility/AccessibilityManagerCompat.AccessibilityStateChangeListenerCompat.html\">AccessibilityManagerCompat.AccessibilityStateChangeListenerCompat</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Listener for the accessibility state.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-14\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/accessibility/AccessibilityNodeInfo.html\">AccessibilityNodeInfo</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This class represents a node of the window content as well as actions that
 ;;  can be requested from its source.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v4/view/accessibility/AccessibilityNodeInfoCompat.html\">AccessibilityNodeInfoCompat</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Helper for accessing <code><a href=\"/reference/android/view/accessibility/AccessibilityNodeInfo.html\">AccessibilityNodeInfo</a></code>
 ;;  introduced after API level 4 in a backwards compatible fashion.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-16\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/accessibility/AccessibilityNodeProvider.html\">AccessibilityNodeProvider</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This class is the contract a client should implement to enable support of a
 ;;  virtual view hierarchy rooted at a given view for accessibility purposes.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v4/view/accessibility/AccessibilityNodeProviderCompat.html\">AccessibilityNodeProviderCompat</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Helper for accessing <code><a href=\"/reference/android/view/accessibility/AccessibilityNodeProvider.html\">AccessibilityNodeProvider</a></code>
 ;;  introduced after API level 4 in a backwards compatible fashion.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-14\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/accessibility/AccessibilityRecord.html\">AccessibilityRecord</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Represents a record in an <code><a href=\"/reference/android/view/accessibility/AccessibilityEvent.html\">AccessibilityEvent</a></code> and contains information
 ;;  about state change of its source <code><a href=\"/reference/android/view/View.html\">View</a></code>.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v4/view/accessibility/AccessibilityRecordCompat.html\">AccessibilityRecordCompat</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Helper for accessing <code><a href=\"/reference/android/view/accessibility/AccessibilityRecord.html\">AccessibilityRecord</a></code>
 ;;  introduced after API level 4 in a backwards compatible fashion.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-4\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/accessibilityservice/AccessibilityService.html\">AccessibilityService</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An accessibility service runs in the background and receives callbacks by the system
 ;;  when <code><a href=\"/reference/android/view/accessibility/AccessibilityEvent.html\">AccessibilityEvent</a></code>s are fired.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-4\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/accessibilityservice/AccessibilityServiceInfo.html\">AccessibilityServiceInfo</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This class describes an <code><a href=\"/reference/android/accessibilityservice/AccessibilityService.html\">AccessibilityService</a></code>.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v4/accessibilityservice/AccessibilityServiceInfoCompat.html\">AccessibilityServiceInfoCompat</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Helper for accessing features in <code><a href=\"/reference/android/accessibilityservice/AccessibilityService.html\">AccessibilityService</a></code>
 ;;  introduced after API level 4 in a backwards compatible fashion.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/lang/reflect/AccessibleObject.html\">AccessibleObject</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><code>AccessibleObject</code> is the superclass of all member reflection classes
 ;;  (Field, Constructor, Method).&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-5\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/accounts/Account.html\">Account</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Value type that represents an Account in the <code><a href=\"/reference/android/accounts/AccountManager.html\">AccountManager</a></code>.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-5\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/accounts/AccountAuthenticatorActivity.html\">AccountAuthenticatorActivity</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Base class for implementing an Activity that is used to help implement an
 ;;  AbstractAccountAuthenticator.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-5\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/accounts/AccountAuthenticatorResponse.html\">AccountAuthenticatorResponse</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Object used to communicate responses back to the AccountManager
 ;; &nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-5\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/accounts/AccountManager.html\">AccountManager</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This class provides access to a centralized registry of the user's
 ;;  online accounts.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-5\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/accounts/AccountManagerCallback.html\">AccountManagerCallback</a>&lt;V&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-5\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/accounts/AccountManagerFuture.html\">AccountManagerFuture</a>&lt;V&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A <tt>AccountManagerFuture</tt> represents the result of an asynchronous
 ;;  <code><a href=\"/reference/android/accounts/AccountManager.html\">AccountManager</a></code> call.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-5\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/accounts/AccountsException.html\">AccountsException</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/security/acl/Acl.html\">Acl</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">The <i>Access Control List</i> (<b>ACL</b>) interface definition.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/security/acl/AclEntry.html\">AclEntry</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">The <i>Access Control List Entry</i> interface definition.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/security/acl/AclNotFoundException.html\">AclNotFoundException</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">The exception, that is thrown when a reference to a non-existent <i>Access
 ;;  Control List</i> (ACL) is made.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-16\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/media/audiofx/AcousticEchoCanceler.html\">AcousticEchoCanceler</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Acoustic Echo Canceler (AEC).&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/ActionBar.html\">ActionBar</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A window feature at the top of the activity that may display the activity title, navigation
 ;;  modes, and other interactive items.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v7/app/ActionBar.html\">ActionBar</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A window feature at the top of the activity that may display the activity title, navigation
 ;;  modes, and other interactive items.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/ActionBar.LayoutParams.html\">ActionBar.LayoutParams</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Per-child layout information associated with action bar custom views.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v7/app/ActionBar.LayoutParams.html\">ActionBar.LayoutParams</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Per-child layout information associated with action bar custom views.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/ActionBar.OnMenuVisibilityListener.html\">ActionBar.OnMenuVisibilityListener</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Listener for receiving events when action bar menus are shown or hidden.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v7/app/ActionBar.OnMenuVisibilityListener.html\">ActionBar.OnMenuVisibilityListener</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Listener for receiving events when <code><a href=\"/reference/android/support/v7/app/ActionBar.html\">ActionBar</a></code> items are shown or hidden.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/ActionBar.OnNavigationListener.html\">ActionBar.OnNavigationListener</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Listener interface for ActionBar navigation events.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v7/app/ActionBar.OnNavigationListener.html\">ActionBar.OnNavigationListener</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Listener for receiving <code><a href=\"/reference/android/support/v7/app/ActionBar.html\">ActionBar</a></code> navigation events.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/ActionBar.Tab.html\">ActionBar.Tab</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A tab in the action bar.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v7/app/ActionBar.Tab.html\">ActionBar.Tab</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A tab in the action bar that manages the hiding and showing of <code><a href=\"/reference/android/support/v4/app/Fragment.html\">Fragment</a></code>s.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/ActionBar.TabListener.html\">ActionBar.TabListener</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Callback interface invoked when a tab is focused, unfocused, added, or removed.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v7/app/ActionBar.TabListener.html\">ActionBar.TabListener</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Callback interface invoked when an <code><a href=\"/reference/android/support/v7/app/ActionBar.Tab.html\">ActionBar.Tab</a></code> is focused, unfocused, added, or
 ;;  removed.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v7/app/ActionBarActivity.html\">ActionBarActivity</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Base class for activities that use the <a
 ;;  href=\"/tools/extras/support-library.html\">support library</a> action bar features.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v4/app/ActionBarDrawerToggle.html\">ActionBarDrawerToggle</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This class provides a handy way to tie together the functionality of
 ;;  <code><a href=\"/reference/android/support/v4/widget/DrawerLayout.html\">DrawerLayout</a></code> and the framework <code>ActionBar</code> to implement the recommended
 ;;  design for navigation drawers.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v4/app/ActionBarDrawerToggle.Delegate.html\">ActionBarDrawerToggle.Delegate</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v4/app/ActionBarDrawerToggle.DelegateProvider.html\">ActionBarDrawerToggle.DelegateProvider</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Allows an implementing Activity to return an <code><a href=\"/reference/android/support/v4/app/ActionBarDrawerToggle.Delegate.html\">ActionBarDrawerToggle.Delegate</a></code> to use
 ;;  with ActionBarDrawerToggle.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v7/view/ActionMode.html\">ActionMode</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Represents a contextual mode of the user interface.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/ActionMode.html\">ActionMode</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Represents a contextual mode of the user interface.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v7/view/ActionMode.Callback.html\">ActionMode.Callback</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Callback interface for action modes.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/ActionMode.Callback.html\">ActionMode.Callback</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Callback interface for action modes.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v4/view/ActionProvider.html\">ActionProvider</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This class is a mediator for accomplishing a given task, for example sharing a file.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-14\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/ActionProvider.html\">ActionProvider</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An ActionProvider defines rich menu interaction in a single component.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v4/view/ActionProvider.VisibilityListener.html\">ActionProvider.VisibilityListener</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Listens to changes in visibility as reported by <code><a href=\"/reference/android/support/v4/view/ActionProvider.html#refreshVisibility()\">refreshVisibility()</a></code>.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-16\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/ActionProvider.VisibilityListener.html\">ActionProvider.VisibilityListener</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Listens to changes in visibility as reported by <code><a href=\"/reference/android/view/ActionProvider.html#refreshVisibility()\">refreshVisibility()</a></code>.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/Activity.html\">Activity</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An activity is a single, focused thing that the user can do.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v4/app/ActivityCompat.html\">ActivityCompat</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Helper for accessing features in <code><a href=\"/reference/android/app/Activity.html\">Activity</a></code>
 ;;  introduced after API level 4 in a backwards compatible fashion.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/ActivityGroup.html\">ActivityGroup</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><em>
@@ -1828,721 +1828,721 @@
 ;;  available on older platforms through the Android compatibility package.
 ;; </em>&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/content/pm/ActivityInfo.html\">ActivityInfo</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Information you can retrieve about a particular application
 ;;  activity or receiver.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v4/content/pm/ActivityInfoCompat.html\">ActivityInfoCompat</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Helper for accessing features in <code><a href=\"/reference/android/content/pm/ActivityInfo.html\">ActivityInfo</a></code>
 ;;  introduced after API level 4 in a backwards compatible fashion.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/test/ActivityInstrumentationTestCase.html\">ActivityInstrumentationTestCase</a>&lt;T&nbsp;extends&nbsp;<a href=\"/reference/android/app/Activity.html\">Activity</a>&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><em>
 ;;       This class was deprecated
 ;;       in API level 3.
-;;     new tests should be written using
+;;     new tests should be written using
 ;;  <code><a href=\"/reference/android/test/ActivityInstrumentationTestCase2.html\">ActivityInstrumentationTestCase2</a></code>, which provides more options for
 ;;  configuring the Activity under test
 ;; </em>&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-3\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/test/ActivityInstrumentationTestCase2.html\">ActivityInstrumentationTestCase2</a>&lt;T&nbsp;extends&nbsp;<a href=\"/reference/android/app/Activity.html\">Activity</a>&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This class provides functional testing of a single activity.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/ActivityManager.html\">ActivityManager</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Interact with the overall activities running in the system.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/ActivityManager.MemoryInfo.html\">ActivityManager.MemoryInfo</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Information you can retrieve about the available memory through
 ;;  <code><a href=\"/reference/android/app/ActivityManager.html#getMemoryInfo(android.app.ActivityManager.MemoryInfo)\">getMemoryInfo(ActivityManager.MemoryInfo)</a></code>.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/ActivityManager.ProcessErrorStateInfo.html\">ActivityManager.ProcessErrorStateInfo</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Information you can retrieve about any processes that are in an error condition.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/ActivityManager.RecentTaskInfo.html\">ActivityManager.RecentTaskInfo</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Information you can retrieve about tasks that the user has most recently
 ;;  started or visited.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-3\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/ActivityManager.RunningAppProcessInfo.html\">ActivityManager.RunningAppProcessInfo</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Information you can retrieve about a running process.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/ActivityManager.RunningServiceInfo.html\">ActivityManager.RunningServiceInfo</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Information you can retrieve about a particular Service that is
 ;;  currently running in the system.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/ActivityManager.RunningTaskInfo.html\">ActivityManager.RunningTaskInfo</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Information you can retrieve about a particular task that is currently
 ;;  \"running\" in the system.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/content/ActivityNotFoundException.html\">ActivityNotFoundException</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This exception is thrown when a call to <code><a href=\"/reference/android/content/Context.html#startActivity(android.content.Intent)\">startActivity(Intent)</a></code> or
 ;;  one of its variants fails because an Activity can not be found to execute
 ;;  the given Intent.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-16\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/ActivityOptions.html\">ActivityOptions</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Helper class for building an options Bundle that can be used with
 ;;  <code><a href=\"/reference/android/content/Context.html#startActivity(android.content.Intent, android.os.Bundle)\">Context.startActivity(Intent, Bundle)</a></code> and related methods.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v4/app/ActivityOptionsCompat.html\">ActivityOptionsCompat</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Helper for accessing features in <code><a href=\"/reference/android/app/ActivityOptions.html\">ActivityOptions</a></code>
 ;;  introduced in API level 16 in a backwards compatible fashion.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/test/ActivityTestCase.html\">ActivityTestCase</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This is common code used to support Activity test cases.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/test/ActivityUnitTestCase.html\">ActivityUnitTestCase</a>&lt;T&nbsp;extends&nbsp;<a href=\"/reference/android/app/Activity.html\">Activity</a>&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This class provides isolated testing of a single activity.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/Adapter.html\">Adapter</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An Adapter object acts as a bridge between an <code><a href=\"/reference/android/widget/AdapterView.html\">AdapterView</a></code> and the
 ;;  underlying data for that view.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/AdapterView.html\">AdapterView</a>&lt;T&nbsp;extends&nbsp;<a href=\"/reference/android/widget/Adapter.html\">Adapter</a>&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An AdapterView is a view whose children are determined by an <code><a href=\"/reference/android/widget/Adapter.html\">Adapter</a></code>.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/AdapterView.AdapterContextMenuInfo.html\">AdapterView.AdapterContextMenuInfo</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Extra menu information provided to the
 ;;  <code><a href=\"/reference/android/view/View.OnCreateContextMenuListener.html#onCreateContextMenu(android.view.ContextMenu, android.view.View, android.view.ContextMenu.ContextMenuInfo)\">onCreateContextMenu(ContextMenu, View, ContextMenuInfo)</a></code>
 ;;  callback when a context menu is brought up for this AdapterView.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/AdapterView.OnItemClickListener.html\">AdapterView.OnItemClickListener</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Interface definition for a callback to be invoked when an item in this
 ;;  AdapterView has been clicked.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/AdapterView.OnItemLongClickListener.html\">AdapterView.OnItemLongClickListener</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Interface definition for a callback to be invoked when an item in this
 ;;  view has been clicked and held.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/AdapterView.OnItemSelectedListener.html\">AdapterView.OnItemSelectedListener</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Interface definition for a callback to be invoked when
 ;;  an item in this view has been selected.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/AdapterViewAnimator.html\">AdapterViewAnimator</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Base class for a <code><a href=\"/reference/android/widget/AdapterView.html\">AdapterView</a></code> that will perform animations
 ;;  when switching between its views.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/AdapterViewFlipper.html\">AdapterViewFlipper</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Simple <code><a href=\"/reference/android/widget/ViewAnimator.html\">ViewAnimator</a></code> that will animate between two or more views
 ;;  that have been added to it.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/location/Address.html\">Address</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A class representing an Address, i.e, a set of Strings describing a location.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/zip/Adler32.html\">Adler32</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">The Adler-32 class is used to compute the <code>Adler32</code> checksum from a set
 ;;  of data.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-16\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/Advanceable.html\">Advanceable</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This interface can be implemented by any collection-type view which has a notion of
 ;;  progressing through its set of children.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-9\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/provider/AlarmClock.html\">AlarmClock</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">The AlarmClock provider contains an Intent action and extras that can be used
 ;;  to start an Activity to set a new alarm in an alarm clock application.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/AlarmManager.html\">AlarmManager</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This class provides access to the system alarm services.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/AlertDialog.html\">AlertDialog</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A subclass of Dialog that can display one, two or three buttons.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/AlertDialog.Builder.html\">AlertDialog.Builder</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/security/AlgorithmParameterGenerator.html\">AlgorithmParameterGenerator</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><code>AlgorithmParameterGenerator</code> is an engine class which is capable of
 ;;  generating parameters for the algorithm it was initialized with.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/security/AlgorithmParameterGeneratorSpi.html\">AlgorithmParameterGeneratorSpi</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><code>AlgorithmParameterGeneratorSpi</code> is the Service Provider Interface
 ;;  (SPI) definition for <code>AlgorithmParameterGenerator</code>.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/security/AlgorithmParameters.html\">AlgorithmParameters</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><code>AlgorithmParameters</code> is an engine class which provides algorithm
 ;;  parameters.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/security/spec/AlgorithmParameterSpec.html\">AlgorithmParameterSpec</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">The marker interface for algorithm parameter specifications.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/security/AlgorithmParametersSpi.html\">AlgorithmParametersSpi</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><code>AlgorithmParametersSpi</code> is the Service Provider Interface (SPI)
 ;;  definition for <code>AlgorithmParameters</code>.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/AliasActivity.html\">AliasActivity</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Stub activity that launches another activity (and then finishes itself)
 ;;  based on information in its component's manifest meta-data.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/text/style/AlignmentSpan.html\">AlignmentSpan</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/text/style/AlignmentSpan.Standard.html\">AlignmentSpan.Standard</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/client/params/AllClientPNames.html\">AllClientPNames</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Collected parameter names for the HttpClient module.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/renderscript/Allocation.html\">Allocation</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><p> This class provides the primary method through which data is passed to
 ;;  and from RenderScript kernels.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/renderscript/Allocation.MipmapControl.html\">Allocation.MipmapControl</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Controls mipmap behavior when using the bitmap creation and update
 ;;  functions.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/renderscript/AllocationAdapter.html\">AllocationAdapter</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Only intended for use by generated reflected code.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/apache/http/conn/ssl/AllowAllHostnameVerifier.html\">AllowAllHostnameVerifier</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">The ALLOW_ALL HostnameVerifier essentially turns hostname verification
 ;;  off.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/security/AllPermission.html\">AllPermission</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Legacy security code; do not use.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/animation/AlphaAnimation.html\">AlphaAnimation</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An animation that controls the alpha level of an object.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-3\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/AlphabetIndexer.html\">AlphabetIndexer</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A helper class for adapters that implement the SectionIndexer interface.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/nio/channels/AlreadyConnectedException.html\">AlreadyConnectedException</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An <code>AlreadyConnectedException</code> is thrown when an attempt is made to
 ;;  connect a SocketChannel that is already connected.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/text/AlteredCharSequence.html\">AlteredCharSequence</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An AlteredCharSequence is a CharSequence that is largely mirrored from
 ;;  another CharSequence, except that a specified range of characters are
 ;;  mirrored from a different char array instead.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/AnalogClock.html\">AnalogClock</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This widget display an analogic clock with two hands for hours and
 ;;  minutes.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/text/AndroidCharacter.html\">AndroidCharacter</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">AndroidCharacter exposes some character properties that are not
 ;;  easily accessed from java.lang.Character.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/util/AndroidException.html\">AndroidException</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Base class for all checked exceptions thrown by the Android frameworks.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-8\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/net/http/AndroidHttpClient.html\">AndroidHttpClient</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Implementation of the Apache <code><a href=\"/reference/org/apache/http/impl/client/DefaultHttpClient.html\">DefaultHttpClient</a></code> that is configured with
 ;;  reasonable default settings and registered schemes for Android.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/util/AndroidRuntimeException.html\">AndroidRuntimeException</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Base class for all unchecked exceptions thrown by the Android frameworks.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/test/AndroidTestCase.html\">AndroidTestCase</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Extend this if you need to access Resources or other things that depend on Activity Context.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/test/AndroidTestRunner.html\">AndroidTestRunner</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-4\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/graphics/drawable/Animatable.html\">Animatable</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Interface that drawables suporting animations should implement.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/animation/Animation.html\">Animation</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Abstraction for an Animation that can be applied to Views, Surfaces, or
 ;;  other objects.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/animation/Animation.AnimationListener.html\">Animation.AnimationListener</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><p>An animation listener receives notifications from an animation.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/animation/Animation.Description.html\">Animation.Description</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Utility class to parse a string description of a size.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/graphics/drawable/AnimationDrawable.html\">AnimationDrawable</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An object used to create frame-by-frame animations, defined by a series of Drawable objects,
 ;;  which can be used as a View object's background.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/animation/AnimationSet.html\">AnimationSet</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Represents a group of Animations that should be played together.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/animation/AnimationUtils.html\">AnimationUtils</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Defines common utilities for working with animations.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/animation/Animator.html\">Animator</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This is the superclass for classes which provide basic support for animations which can be
 ;;  started, ended, and have <code>AnimatorListeners</code> added to them.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/animation/Animator.AnimatorListener.html\">Animator.AnimatorListener</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><p>An animation listener receives notifications from an animation.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/animation/AnimatorInflater.html\">AnimatorInflater</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This class is used to instantiate animator XML files into Animator objects.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/animation/AnimatorListenerAdapter.html\">AnimatorListenerAdapter</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This adapter class provides empty implementations of the methods from <code><a href=\"/reference/android/animation/Animator.AnimatorListener.html\">Animator.AnimatorListener</a></code>.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/animation/AnimatorSet.html\">AnimatorSet</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This class plays a set of <code><a href=\"/reference/android/animation/Animator.html\">Animator</a></code> objects in the specified order.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/animation/AnimatorSet.Builder.html\">AnimatorSet.Builder</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">The <code>Builder</code> object is a utility class to facilitate adding animations to a
 ;;  <code>AnimatorSet</code> along with the relationships between the various animations.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/lang/reflect/AnnotatedElement.html\">AnnotatedElement</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This interface provides reflective access to annotation information.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/text/Annotation.html\">Annotation</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Annotations are simple key-value pairs that are preserved across
 ;;  TextView save/restore cycles and can be used to keep application-specific
 ;;  data that needs to be maintained for regions of text.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/lang/annotation/Annotation.html\">Annotation</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Defines the interface implemented by all annotations.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/text/Annotation.html\">Annotation</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Wrapper for a text attribute value which represents an annotation.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/lang/annotation/AnnotationFormatError.html\">AnnotationFormatError</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Indicates that an annotation in the binary representation of a class is
 ;;  syntactically incorrect and the annotation parser is unable to process it.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/lang/annotation/AnnotationTypeMismatchException.html\">AnnotationTypeMismatchException</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Indicates that an annotation type has changed since it was compiled or
 ;;  serialized.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-4\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/animation/AnticipateInterpolator.html\">AnticipateInterpolator</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An interpolator where the change starts backward then flings forward.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-4\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/view/animation/AnticipateOvershootInterpolator.html\">AnticipateOvershootInterpolator</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An interpolator where the change starts backward then flings forward and overshoots
 ;;  the target value and finally goes back to the final value.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/lang/Appendable.html\">Appendable</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Declares methods to append characters or character sequences.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/Application.html\">Application</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Base class for those who need to maintain global application state.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-14\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/Application.ActivityLifecycleCallbacks.html\">Application.ActivityLifecycleCallbacks</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-18\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/Application.OnProvideAssistDataListener.html\">Application.OnProvideAssistDataListener</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Callback interface for use with <code><a href=\"/reference/android/app/Application.html#registerOnProvideAssistDataListener(android.app.Application.OnProvideAssistDataListener)\">registerOnProvideAssistDataListener(Application.OnProvideAssistDataListener)</a></code>
 ;;  and <code><a href=\"/reference/android/app/Application.html#unregisterOnProvideAssistDataListener(android.app.Application.OnProvideAssistDataListener)\">unregisterOnProvideAssistDataListener(Application.OnProvideAssistDataListener)</a></code>.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-14\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/ApplicationErrorReport.html\">ApplicationErrorReport</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Describes an application error.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-14\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/ApplicationErrorReport.AnrInfo.html\">ApplicationErrorReport.AnrInfo</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Describes an application not responding error.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-14\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/ApplicationErrorReport.BatteryInfo.html\">ApplicationErrorReport.BatteryInfo</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Describes a battery usage report.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-14\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/ApplicationErrorReport.CrashInfo.html\">ApplicationErrorReport.CrashInfo</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Describes an application crash.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-14\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/app/ApplicationErrorReport.RunningServiceInfo.html\">ApplicationErrorReport.RunningServiceInfo</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Describes a running service report.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/content/pm/ApplicationInfo.html\">ApplicationInfo</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Information you can retrieve about a particular application.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/content/pm/ApplicationInfo.DisplayNameComparator.html\">ApplicationInfo.DisplayNameComparator</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/test/ApplicationTestCase.html\">ApplicationTestCase</a>&lt;T&nbsp;extends&nbsp;<a href=\"/reference/android/app/Application.html\">Application</a>&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This test case provides a framework in which you can test Application classes in
 ;;  a controlled environment.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-3\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/appwidget/AppWidgetHost.html\">AppWidgetHost</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">AppWidgetHost provides the interaction with the AppWidget service for apps,
 ;;  like the home screen, that want to embed AppWidgets in their UI.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-3\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/appwidget/AppWidgetHostView.html\">AppWidgetHostView</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Provides the glue to show AppWidget views.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-3\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/appwidget/AppWidgetManager.html\">AppWidgetManager</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Updates AppWidget state; gets information about installed AppWidget providers and other
 ;;  AppWidget related state.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-3\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/appwidget/AppWidgetProvider.html\">AppWidgetProvider</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A convenience class to aid in implementing an AppWidget provider.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-3\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/appwidget/AppWidgetProviderInfo.html\">AppWidgetProviderInfo</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Describes the meta data for an installed AppWidget provider.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/graphics/drawable/shapes/ArcShape.html\">ArcShape</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Creates an arc shape.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/animation/ArgbEvaluator.html\">ArgbEvaluator</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This evaluator can be used to perform type interpolation between integer
 ;;  values that represent ARGB colors.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/lang/ArithmeticException.html\">ArithmeticException</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Thrown when the an invalid arithmetic operation is attempted.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/lang/reflect/Array.html\">Array</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Provides static methods to create and access arrays dynamically.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/sql/Array.html\">Array</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A Java representation of the SQL <code>ARRAY</code> type.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/widget/ArrayAdapter.html\">ArrayAdapter</a>&lt;T&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A concrete BaseAdapter that is backed by an array of arbitrary
 ;;  objects.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/concurrent/ArrayBlockingQueue.html\">ArrayBlockingQueue</a>&lt;E&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A bounded <code><a href=\"/reference/java/util/concurrent/BlockingQueue.html\">blocking queue</a></code> backed by an
 ;;  array.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-9\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/ArrayDeque.html\">ArrayDeque</a>&lt;E&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Resizable-array implementation of the <code><a href=\"/reference/java/util/Deque.html\">Deque</a></code> interface.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/lang/ArrayIndexOutOfBoundsException.html\">ArrayIndexOutOfBoundsException</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Thrown when the an array is indexed with a value less than zero, or greater
 ;;  than or equal to the size of the array.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/ArrayList.html\">ArrayList</a>&lt;E&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">ArrayList is an implementation of <code><a href=\"/reference/java/util/List.html\">List</a></code>, backed by an array.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/Arrays.html\">Arrays</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><code>Arrays</code> contains static methods which operate on arrays.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/lang/ArrayStoreException.html\">ArrayStoreException</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Thrown when a program attempts to store an element of an incompatible type in
 ;;  an array.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/text/method/ArrowKeyMovementMethod.html\">ArrowKeyMovementMethod</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A movement method that provides cursor movement and selection.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/junit/framework/Assert.html\">Assert</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A set of assert methods.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/lang/AssertionError.html\">AssertionError</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Thrown when an assertion has failed.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/test/AssertionFailedError.html\">AssertionFailedError</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><em>
@@ -2551,226 +2551,226 @@
 ;;     use junit.framework.AssertionFailedError
 ;; </em>&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/junit/framework/AssertionFailedError.html\">AssertionFailedError</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Thrown when an assertion failed.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/content/res/AssetFileDescriptor.html\">AssetFileDescriptor</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">File descriptor of an entry in the AssetManager.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-3\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/content/res/AssetFileDescriptor.AutoCloseInputStream.html\">AssetFileDescriptor.AutoCloseInputStream</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An InputStream you can create on a ParcelFileDescriptor, which will
 ;;  take care of calling <code><a href=\"/reference/android/os/ParcelFileDescriptor.html#close()\">ParcelFileDescritor.close()</a></code> for you when the stream is closed.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-3\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/content/res/AssetFileDescriptor.AutoCloseOutputStream.html\">AssetFileDescriptor.AutoCloseOutputStream</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An OutputStream you can create on a ParcelFileDescriptor, which will
 ;;  take care of calling <code><a href=\"/reference/android/os/ParcelFileDescriptor.html#close()\">ParcelFileDescritor.close()</a></code> for you when the stream is closed.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/content/res/AssetManager.html\">AssetManager</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Provides access to an application's raw asset files; see <code><a href=\"/reference/android/content/res/Resources.html\">Resources</a></code>
 ;;  for the way most applications will want to retrieve their resource data.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/content/res/AssetManager.AssetInputStream.html\">AssetManager.AssetInputStream</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/nio/channels/AsynchronousCloseException.html\">AsynchronousCloseException</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An <code>AsynchronousCloseException</code> is thrown when the underlying channel
 ;;  for an I/O operation is closed by another thread.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/media/AsyncPlayer.html\">AsyncPlayer</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Plays a series of audio URIs, but does all the hard work on another thread
 ;;  so that any slowness with preparing or loading doesn't block the calling thread.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/content/AsyncQueryHandler.html\">AsyncQueryHandler</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A helper class to help make handling asynchronous <code><a href=\"/reference/android/content/ContentResolver.html\">ContentResolver</a></code>
 ;;  queries easier.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/content/AsyncQueryHandler.WorkerArgs.html\">AsyncQueryHandler.WorkerArgs</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/content/AsyncQueryHandler.WorkerHandler.html\">AsyncQueryHandler.WorkerHandler</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-3\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/os/AsyncTask.html\">AsyncTask</a>&lt;Params,&nbsp;Progress,&nbsp;Result&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><p>AsyncTask enables proper and easy use of the UI thread.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-3\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/os/AsyncTask.Status.html\">AsyncTask.Status</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Indicates the current status of the task.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-11\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/content/AsyncTaskLoader.html\">AsyncTaskLoader</a>&lt;D&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Abstract Loader that provides an <code><a href=\"/reference/android/os/AsyncTask.html\">AsyncTask</a></code> to do the work.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v4/content/AsyncTaskLoader.html\">AsyncTaskLoader</a>&lt;D&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Static library support version of the framework's <code><a href=\"/reference/android/content/AsyncTaskLoader.html\">AsyncTaskLoader</a></code>.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/concurrent/atomic/AtomicBoolean.html\">AtomicBoolean</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A <code>boolean</code> value that may be updated atomically.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/support/v4/util/AtomicFile.html\">AtomicFile</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Static library support version of the framework's <code><a href=\"/reference/android/util/AtomicFile.html\">AtomicFile</a></code>,
 ;;  a helper class for performing atomic operations on a file by creating a
 ;;  backup file until a write has successfully completed.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-17\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/util/AtomicFile.html\">AtomicFile</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Helper class for performing atomic operations on a file by creating a
 ;;  backup file until a write has successfully completed.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/concurrent/atomic/AtomicInteger.html\">AtomicInteger</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An <code>int</code> value that may be updated atomically.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/concurrent/atomic/AtomicIntegerArray.html\">AtomicIntegerArray</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An <code>int</code> array in which elements may be updated atomically.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/concurrent/atomic/AtomicIntegerFieldUpdater.html\">AtomicIntegerFieldUpdater</a>&lt;T&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A reflection-based utility that enables atomic updates to
 ;;  designated <code>volatile int</code> fields of designated classes.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/concurrent/atomic/AtomicLong.html\">AtomicLong</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A <code>long</code> value that may be updated atomically.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/concurrent/atomic/AtomicLongArray.html\">AtomicLongArray</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A <code>long</code> array in which elements may be updated atomically.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/concurrent/atomic/AtomicLongFieldUpdater.html\">AtomicLongFieldUpdater</a>&lt;T&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A reflection-based utility that enables atomic updates to
 ;;  designated <code>volatile long</code> fields of designated classes.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/concurrent/atomic/AtomicMarkableReference.html\">AtomicMarkableReference</a>&lt;V&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An <code>AtomicMarkableReference</code> maintains an object reference
 ;;  along with a mark bit, that can be updated atomically.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/concurrent/atomic/AtomicReference.html\">AtomicReference</a>&lt;V&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An object reference that may be updated atomically.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/concurrent/atomic/AtomicReferenceArray.html\">AtomicReferenceArray</a>&lt;E&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An array of object references in which elements may be updated
 ;;  atomically.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/concurrent/atomic/AtomicReferenceFieldUpdater.html\">AtomicReferenceFieldUpdater</a>&lt;T,&nbsp;V&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A reflection-based utility that enables atomic updates to
 ;;  designated <code>volatile</code> reference fields of designated
 ;;  classes.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/concurrent/atomic/AtomicStampedReference.html\">AtomicStampedReference</a>&lt;V&gt;</td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An <code>AtomicStampedReference</code> maintains an object reference
 ;;  along with an integer \"stamp\", that can be updated atomically.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/w3c/dom/Attr.html\">Attr</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">The <code>Attr</code> interface represents an attribute in an
 ;;  <code>Element</code> object.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/text/AttributedCharacterIterator.html\">AttributedCharacterIterator</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Extends the
 ;;  <code><a href=\"/reference/java/text/CharacterIterator.html\">CharacterIterator</a></code> interface, adding support for iterating over
 ;;  attributes and not only characters.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/text/AttributedCharacterIterator.Attribute.html\">AttributedCharacterIterator.Attribute</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Defines keys for text attributes.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/text/AttributedString.html\">AttributedString</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Holds a string with attributes describing the characters of
 ;;  this string.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/xml/sax/AttributeList.html\">AttributeList</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><em>
@@ -2780,8 +2780,8 @@
 ;;              <code><a href=\"/reference/org/xml/sax/Attributes.html\">Attributes</a></code>
 ;;              interface, which includes Namespace support.</em>&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/xml/sax/helpers/AttributeListImpl.html\">AttributeListImpl</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\"><em>
@@ -2794,68 +2794,68 @@
 ;;              which is implemented in the
 ;;              <code><a href=\"/reference/org/xml/sax/helpers/AttributesImpl.html\">AttributesImpl</a></code> helper class.</em>&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/jar/Attributes.html\">Attributes</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">The <code>Attributes</code> class is used to store values for manifest entries.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/xml/sax/Attributes.html\">Attributes</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Interface for a list of XML attributes.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/java/util/jar/Attributes.Name.html\">Attributes.Name</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">The name part of the name/value pairs constituting an attribute as
 ;;  defined by the specification of the JAR manifest.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/xml/sax/ext/Attributes2.html\">Attributes2</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">SAX2 extension to augment the per-attribute information
 ;;  provided though <code><a href=\"/reference/org/xml/sax/Attributes.html\">Attributes</a></code>.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/xml/sax/ext/Attributes2Impl.html\">Attributes2Impl</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">SAX2 extension helper for additional Attributes information,
 ;;  implementing the <code><a href=\"/reference/org/xml/sax/ext/Attributes2.html\">Attributes2</a></code> interface.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/util/AttributeSet.html\">AttributeSet</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">A collection of attributes, as found associated with a tag in an XML
 ;;  document.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/org/xml/sax/helpers/AttributesImpl.html\">AttributesImpl</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">Default implementation of the Attributes interface.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-12\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/net/rtp/AudioCodec.html\">AudioCodec</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">This class defines a collection of audio codecs to be used with
 ;;  <code><a href=\"/reference/android/net/rtp/AudioStream.html\">AudioStream</a></code>s.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-9\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/media/audiofx/AudioEffect.html\">AudioEffect</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">AudioEffect is the base class for controlling audio effects provided by the android audio
 ;;  framework.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-9\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/media/audiofx/AudioEffect.Descriptor.html\">AudioEffect.Descriptor</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">The effect descriptor contains information on a particular effect implemented in the
@@ -2863,57 +2863,57 @@
 ;;  <ul>
 ;;   <li>type: UUID identifying the effect type.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-9\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/media/audiofx/AudioEffect.OnControlStatusChangeListener.html\">AudioEffect.OnControlStatusChangeListener</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">The OnControlStatusChangeListener interface defines a method called by the AudioEffect
 ;;  when a the control of the effect engine is gained or lost by the application
 ;; &nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-9\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/media/audiofx/AudioEffect.OnEnableStatusChangeListener.html\">AudioEffect.OnEnableStatusChangeListener</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">The OnEnableStatusChangeListener interface defines a method called by the AudioEffect
 ;;  when a the enabled state of the effect engine was changed by the controlling application.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-3\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/media/AudioFormat.html\">AudioFormat</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">The AudioFormat class is used to access a number of audio format and
 ;;  channel configuration constants.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\"alt-color api apilevel-12\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/net/rtp/AudioGroup.html\">AudioGroup</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">An AudioGroup is an audio hub for the speaker, the microphone, and
 ;;  <code><a href=\"/reference/android/net/rtp/AudioStream.html\">AudioStream</a></code>s.&nbsp;</td>
 ;;         </tr>
-;;
-;;
+;;
+;;
 ;;         <tr class=\" api apilevel-1\" >
 ;;             <td class=\"jd-linkcol\"><a href=\"/reference/android/media/AudioManager.html\">AudioManager</a></td>
 ;;             <td class=\"jd-descrcol\" width=\"100%\">AudioManager provides access to volume and ringer mode control.&nbsp;</td>
 ;;         </tr>
-;;
-;;