Fix CSS class logic.

gigamonkey · Jan 27, 2012 · 4554c2c · 4554c2c
1 parent e2d2a35
commit 4554c2c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/manifest.lisp b/manifest.lisp
@@ -95,7 +95,7 @@ a true Common Lisp while still working in Allegro's mlisp."
                      (:table
                       (dolist (sym names)
                         (html
-                          ((:tr :class (:format "~@[not-documented~]~@[ internal~]" (docs-for sym what) (not (exported-p sym))))
+                          ((:tr :class (:format "~:[not-documented~;~]~:[ internal~;~]" (docs-for sym what) (exported-p sym)))
                            (:td :class "symbol" (:print (princ-to-string sym)))
                            (:td :class "docs" (:print (or (docs-for sym what) "NO DOCS!")))))))))