diff --git a/src/hssg/artifacts/html.lisp b/src/hssg/artifacts/html.lisp index e32cce5..b789b4f 100644 --- a/src/hssg/artifacts/html.lisp +++ b/src/hssg/artifacts/html.lisp @@ -45,7 +45,7 @@ (declare (type atom symbol) (optimize (speed 3) (safety 0))) (etypecase symbol - (string (string-downcase symbol)) + (string symbol) (symbol (string-downcase (symbol-name symbol))) (atom (string-downcase (princ-to-string symbol)))))