Browse files

Fix package-name thinko. Resolves Issue #2.

  • Loading branch information...
1 parent 572afce commit da7e292e809f8dae075a3b8271635315df598bbf @kingcons committed Dec 4, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 colorize.lisp
2 colorize.lisp
@@ -285,7 +285,7 @@
(defun html-colorization (coloring-type string &optional (encoder 'encode-for-pre))
"Given a COLORING-TYPE and STRING, return the colorized HTML."
- (let* ((encoder-fn (find-symbol (princ-to-string encoder) :html-colorize))
+ (let* ((encoder-fn (find-symbol (princ-to-string encoder) :html-encode))
(parse-tree (loop for (meta . token) in (scan-string coloring-type string)
for encoded = (funcall encoder-fn token)
if (and (plusp (length encoded))

0 comments on commit da7e292

Please sign in to comment.