diff options
| -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) |