Formating.

Pascal J. Bourguignon [2013-07-28 20:34]
Formating.
Filename
common-lisp/html-parser/parse-html.lisp
diff --git a/common-lisp/html-parser/parse-html.lisp b/common-lisp/html-parser/parse-html.lisp
index 67c3a1a..127ff94 100644
--- a/common-lisp/html-parser/parse-html.lisp
+++ b/common-lisp/html-parser/parse-html.lisp
@@ -1797,8 +1797,7 @@ DOCUMENTATION:  A string used as documentation string for the macro NAME.
                                         (advance parser)))
                         ((:open-tag)  (parse-open-tag parser))
                         ((:close-tag) (parse-close-tag parser))
-                        (otherwise   (report-error parser
-                                                   "Unexpected token")))
+                        (otherwise   (report-error parser "Unexpected token")))
      :while synthetic :do (push synthetic items)
      :finally (return (when items
                         (let ((result '()))
ViewGit