diff options
| author | Nikodemus Siivola <nikodemus@random-state.net> | 2012-04-09 12:04:18 +0300 |
|---|---|---|
| committer | Nikodemus Siivola <nikodemus@random-state.net> | 2012-04-09 12:17:29 +0300 |
| commit | 0ec40e49f2208f838ff622489ee81a7ce42aa4b4 (patch) | |
| tree | 170e179fd2f6fee9b5375ade722ea446f0eed20d | |
| parent | e6e4f0e22afa9df7f801a34062e30fdf429f2f9b (diff) | |
| download | tl-who-0ec40e49f2208f838ff622489ee81a7ce42aa4b4.tar.gz tl-who-0ec40e49f2208f838ff622489ee81a7ce42aa4b4.tar.bz2 tl-who-0ec40e49f2208f838ff622489ee81a7ce42aa4b4.zip | |
delete trailing whitespace
| -rwxr-xr-x | specials.lisp | 2 | ||||
| -rw-r--r-- | test/tests.lisp | 2 | ||||
| -rw-r--r-- | who.lisp | 6 |
3 files changed, 5 insertions, 5 deletions
diff --git a/specials.lisp b/specials.lisp index 8808f2f..349c7fc 100755 --- a/specials.lisp +++ b/specials.lisp @@ -89,7 +89,7 @@ needs to output case sensitive XML.") :of :over :param - :range + :range :right :source :spacer diff --git a/test/tests.lisp b/test/tests.lisp index 44ea411..88cbc6d 100644 --- a/test/tests.lisp +++ b/test/tests.lisp @@ -58,7 +58,7 @@ :of :over :param - :range + :range :right :spacer :spot @@ -114,7 +114,7 @@ forms." ;; do the same things as above but at runtime nconc (list `(let ((,=var= ,val)) (cond ((null ,=var=)) - ((eq ,=var= t) + ((eq ,=var= t) ,(case *html-mode* (:sgml `(fmt " ~A" attr)) @@ -189,7 +189,7 @@ flattened list of strings. Utility function used by TREE-TO-COMMANDS-AUX." ;; list - insert as sexp else if (consp element) collect `(let ((*indent* ,*indent*)) ,element) - ;; something else - insert verbatim + ;; something else - insert verbatim else collect element)) @@ -276,7 +276,7 @@ supplied." (macrolet ((htm (&body body) `(with-html-output (,',var nil :prologue nil :indent ,,indent) ,@body)) - (fmt (&rest args) + (fmt (&rest args) `(format ,',var ,@args)) (esc (thing) (with-unique-names (result) |