Remove CL-WHO cruft we don't need.

* CHANGELOG: File removed. Changelogs are not useful;
they can be reconstructed from version control comments.
I will create a RELNOTES file for release notes.

* cl-who.asd: Removed; no ASDF in TXR Lisp.

* test/packages.lisp, test/tests.lisp: Files removed;
the test/simple.tl is self-contained.

4 files changed, 0 insertions, 374 deletions

diff --git a/CHANGELOG b/CHANGELOG
deleted file mode 100644
index 599facb..0000000
--- a/CHANGELOG
+++ /dev/null
@@ -1,133 +0,0 @@
-Version 1.1.4
-2014-11-28
-update support info (Hans Huebner)
-
-Version 1.1.3
-2013-11-16
-Add type check to guard against invalid stream argument (Stas Boukarev)
-
-Version 1.1.2
-2013-11-16
-Missing comma in macro expansion (Jeff Cunningham)
-Fix style-warning
-
-Version 1.1.1
-2012-09-04
-Bug fixes for broken declaration processing (Stas Boukarev)
-
-Version 1.1.0
-2012-09-01
-Make declarations work as advertised (Ala'a Mohammad Alawi)
-Add :description to .asd file
-Fix and improve tests
-Add *HTML-NO-INDENT-TAGS* (Nikodemus Siivola)
-Documentation fixes
-
-Version 1.0.0
-2010-0x-xx
-Refactored internals and made STR etc. local macros
-Added test suite
-	todo: replace s-h-texp with walk in docs
-Removed deprecated ESCAPE-STRING-ISO-8859 function
-Removed SHOW-HTML-EXPANSION
-Bugfixes (thanks to Slawek Zak)
-Added support for HTML5 (Chaitanya Gupta)
-Test portability fixes and improvements (Nikodemus Siivola)
-New *HTML-NO-INDENT-TAGS* variable to selectively suppress indentation (Nikodemus Siivola)
-Lock package on SBCL (Nikodemus Siivola)
-
-Version 0.11.1
-2008-03-28
-Replaced T with t to be friendly to AllegroCL's "modern" mode (thanks to John Maraist)
-
-Version 0.11.0
-2007-08-24
-Replaces *DOWNCASE-TAGS-P* with *DOWNCASE-TOKENS-P* (thanks to Osei Poku)
-
-Version 0.10.0
-2007-07-25
-Added ESCAPE-CHAR-... functions (based on a patch by Volkan Yazici)
-
-Version 0.9.1
-2007-05-28
-Fixed bug in CONVERT-TAG-TO-STRING-LIST (thanks to Simon Cusack)
-
-Version 0.9.0
-2007-05-08
-Changed behaviour of STR and ESC when "argument" is NIL (patch by Mac Chan)
-
-Version 0.8.1
-2007-04-27
-Removed antiquated installation instructions and files (thanks to a hint by Mac Chan)
-
-Version 0.8.0
-2007-04-27
-Added *HTML-EMPTY-TAG-AWARE-P* (patch by Mac Chan)
-A bit of refactoring
-
-Version 0.7.1
-2007-04-05
-Made *HTML-MODE* a compile-time flag (patch by Mac Chan)
-
-Version 0.7.0
-2007-03-23
-Added *DOWNCASE-TAGS-P* (patch by Mac Chan)
-	
-Version 0.6.3
-2006-12-22
-Fixed example for CONVERT-TAG-TO-STRING-LIST (thanks to Daniel Gackle)
-	
-Version 0.6.2
-2006-10-10
-Reintroduced ESCAPE-STRING-ISO-8859-1 for backwards compatibility
-	
-Version 0.6.1
-2006-07-27
-EVAL CONSTANTP forms in attribute position (caught by Erik Enge)
-Added WHO nickname to CL-WHO package	
-
-Version 0.6.0
-2005-08-02
-Introduced *ATTRIBUTE-QUOTE-CHAR* and HTML-MODE and adapted code accordingly (patch by Stefan Scholl)
-
-Version 0.5.0
-2005-03-01
-Enable customization via CONVERT-TAG-TO-STRING-LIST
-
-Version 0.4.4
-2005-01-22
-Explicitely provide elementy type for +SPACES+ to prevent problems with LW (thanks to Bob Hutchinson)
-
-Version 0.4.3
-2004-09-13
-ESCAPE-STRING-ISO-8859 wasn't exported
-
-Version 0.4.2
-2004-09-08
-Fixed bug in docs (caught by Peter Seibel)
-Added hyperdoc support
-
-Version 0.4.1
-2004-04-15
-Added :CL-WHO to *FEATURES* (for TBNL)
-
-Version 0.4.0
-2003-12-03
-Allow for optional LHTML syntax (patch by Kevin Rosenberg)
-
-Version 0.3.0
-2003-08-02
-Changed behaviour of attributes (incompatible with 0.2.0 syntax!) due to a question by Jörg-Cyril Höhle
-Changed ' back to ' because of IE
-
-Version 0.2.0
-2003-07-27
-Changed default for :PROLOGUE (I was convinced by Rob Warnock and Eduardo Muñoz)
-
-Version 0.1.1
-2003-07-20
-Typo in WITH-OUTPUT-TO-STRING
-
-Version 0.1.0
-2003-07-17
-Initial release
diff --git a/cl-who.asd b/cl-who.asd
deleted file mode 100644
index eb0abfa..0000000
--- a/cl-who.asd
+++ /dev/null
@@ -1,49 +0,0 @@
-;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
-;;; $Header: /usr/local/cvsrep/cl-who/cl-who.asd,v 1.24 2009/01/26 11:10:49 edi Exp $
-
-;;; Copyright (c) 2003-2009, Dr. Edmund Weitz.  All rights reserved.
-
-;;; Redistribution and use in source and binary forms, with or without
-;;; modification, are permitted provided that the following conditions
-;;; are met:
-
-;;;   * Redistributions of source code must retain the above copyright
-;;;     notice, this list of conditions and the following disclaimer.
-
-;;;   * Redistributions in binary form must reproduce the above
-;;;     copyright notice, this list of conditions and the following
-;;;     disclaimer in the documentation and/or other materials
-;;;     provided with the distribution.
-
-;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED
-;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
-;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-;;; ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
-;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
-;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
-;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
-;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
-;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-(asdf:defsystem :cl-who
-  :description "(X)HTML generation macros"
-  :version "1.1.4"
-  :serial t
-  :license "BSD"
-  :components ((:file "packages")
-               (:file "specials")
-               (:file "util")
-               (:file "who")))
-
-(defsystem :cl-who-test
-  :depends-on (:cl-who :flexi-streams)
-  :components ((:module "test"
-                        :serial t
-                        :components ((:file "packages")
-                                     (:file "tests")))))
-
-(defmethod perform ((o test-op) (c (eql (find-system :cl-who))))
-  (operate 'load-op :cl-who-test)
-  (funcall (intern (symbol-name :run-all-tests) (find-package :cl-who-test))))
diff --git a/test/packages.lisp b/test/packages.lisp
deleted file mode 100644
index 7f5058a..0000000
--- a/test/packages.lisp
+++ /dev/null
@@ -1,34 +0,0 @@
-;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
-;;; $Header: /usr/local/cvsrep/cl-who/test/packages.lisp,v 1.3 2009/01/26 11:10:52 edi Exp $
-
-;;; Copyright (c) 2008-2009, Dr. Edmund Weitz. All rights reserved.
-
-;;; Redistribution and use in source and binary forms, with or without
-;;; modification, are permitted provided that the following conditions
-;;; are met:
-
-;;;   * Redistributions of source code must retain the above copyright
-;;;     notice, this list of conditions and the following disclaimer.
-
-;;;   * Redistributions in binary form must reproduce the above
-;;;     copyright notice, this list of conditions and the following
-;;;     disclaimer in the documentation and/or other materials
-;;;     provided with the distribution.
-
-;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED
-;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
-;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-;;; ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
-;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
-;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
-;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
-;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
-;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-(in-package :cl-user)
-
-(defpackage :cl-who-test
-  (:use :cl :cl-who)
-  (:export #:run-all-tests))
\ No newline at end of file
diff --git a/test/tests.lisp b/test/tests.lisp
deleted file mode 100644
index bbd2294..0000000
--- a/test/tests.lisp
+++ /dev/null
@@ -1,158 +0,0 @@
-;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package:CL-WHO-TEST; Base: 10 -*-
-;;; $Header: /usr/local/cvsrep/cl-who/test/tests.lisp,v 1.5 2009/01/26 11:10:52 edi Exp $
-
-;;; Copyright (c) 2008-2009, Dr. Edmund Weitz. All rights reserved.
-
-;;; Redistribution and use in source and binary forms, with or without
-;;; modification, are permitted provided that the following conditions
-;;; are met:
-
-;;;   * Redistributions of source code must retain the above copyright
-;;;     notice, this list of conditions and the following disclaimer.
-
-;;;   * Redistributions in binary form must reproduce the above
-;;;     copyright notice, this list of conditions and the following
-;;;     disclaimer in the documentation and/or other materials
-;;;     provided with the distribution.
-
-;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED
-;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
-;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-;;; ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
-;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
-;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
-;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
-;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
-;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-(in-package :cl-who-test)
-
-(defvar *initial-settings*
-  (list #\'
-        t
-        (lambda (char)
-          (or (find char "<>&'\"")
-              (> (char-code char) 127)))
-        t
-        '(:area
-          :atop
-          :audioscope
-          :base
-          :basefont
-          :br
-          :choose
-          :col
-          :frame
-          :hr
-          :img
-          :input
-          :isindex
-          :keygen
-          :left
-          :limittext
-          :link
-          :meta
-          :nextid
-          :of
-          :over
-          :param
-          :range
-          :right
-          :spacer
-          :spot
-          :tab
-          :wbr)
-        "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">"))
-
-(defvar *this-file* (load-time-value
-                     (or #.*compile-file-pathname* *load-pathname*))
-  "The location of this source file.")
-
-(defmacro do-tests ((name &optional show-progress-p) &body body)
-  "Helper macro which repeatedly executes BODY until the code in body
-calls the function DONE.  It is assumed that each invocation of BODY
-will be the execution of one test which returns NIL in case of success
-and list of string describing errors otherwise.
-
-The macro prints a simple progress indicator \(one dots for ten tests)
-to *STANDARD-OUTPUT* unless SHOW-PROGRESS-P is NIL and returns a true
-value iff all tests succeeded.  Errors in BODY are caught and reported
-\(and counted as failures)."
-  `(let ((successp t)
-         (testcount 1))
-     (block test-block
-       (flet ((done ()
-                (return-from test-block successp)))
-         (format t "~&Test: ~A~%" ,name)
-         (loop
-          (when (and ,show-progress-p (zerop (mod testcount 1)))
-            (format t ".")
-            (when (zerop (mod testcount 10))
-              (terpri))
-            (force-output))
-          (let ((errors
-                 (handler-case
-                     (progn ,@body)
-                   (error (msg)
-                     (list (format nil "~&got an unexpected error: ~A" msg))))))
-            (setq successp (and successp (null errors)))
-            (when errors
-              (format t "~&~4@A:~{~&   ~A~}~%" testcount errors))
-            (incf testcount)))))
-     successp))
-
-(defun simple-tests (&key (file-name
-                           (make-pathname :name "simple"
-                                          :type nil :version nil
-                                          :defaults *this-file*))
-                          (external-format '(:latin-1 :eol-style :lf))
-                          verbose)
-  "Loops through all the forms in the file FILE-NAME and executes each
-of them using EVAL.  It is assumed that each FORM specifies a test
-which returns a true value iff it succeeds.  Prints each test form to
-*STANDARD-OUTPUT* if VERBOSE is true and shows a simple progress
-indicator otherwise.  EXTERNAL-FORMAT is the FLEXI-STREAMS external
-format which is used to read the file.  Returns a true value iff all
-tests succeeded."
-  (with-open-file (binary-stream file-name :element-type 'flex:octet)
-    (let ((stream (flex:make-flexi-stream binary-stream :external-format external-format))
-          (*package* (find-package :cl-who-test))
-          (html-mode (html-mode)))
-      (unwind-protect
-          (destructuring-bind (*attribute-quote-char*
-                               *downcase-tokens-p*
-                               *escape-char-p*
-                               *html-empty-tag-aware-p*
-                               *html-empty-tags*
-                               *prologue*)
-              *initial-settings*
-            (setf (html-mode) :xml)
-            (do-tests ((format nil "Simple tests from file ~S" (file-namestring file-name))
-                       (not verbose))
-              (let ((form (or (read stream nil) (done))))
-                (when verbose
-                  (format t "~&~S" form))
-                (cond ((and (consp form) (eq 'string= (car form))
-                            (stringp (third form)))
-                       (destructuring-bind (gen expected) (cdr form)
-                         (let ((actual (eval gen)))
-                           (unless (string= actual expected)
-                             (list (format nil "~@<~:@_    ~2:I~S~:@_Expected: ~S~
-                                                                 ~@:_  Actual: ~S~:>"
-                                           form expected actual))))))
-                      ((eval form) nil)
-                      (t (list (format nil "~S returned NIL" form)))))))
-        (setf (html-mode) html-mode)))))
-
-(defun run-all-tests (&key verbose)
-  "Runs all tests for CL-WHO and returns a true value iff all tests
-succeeded.  VERBOSE is interpreted by the individual test suites."
-  (let ((successp t))
-    (macrolet ((run-test-suite (&body body)
-                 `(unless (progn ,@body)
-                    (setq successp nil))))
-      (run-test-suite (simple-tests :verbose verbose)))
-    (format t "~2&~:[Some tests failed~;All tests passed~]." successp)
-    successp))
\ No newline at end of file