diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-10 17:05:22 +0100 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2011-03-10 17:05:22 +0100 |
| commit | 00122c09063ee369533e874558c6c9f6fbca3618 (patch) | |
| tree | 8abc9a59e2c705c74c328fc7579cfa6d74af27db | |
| parent | d5da001a3df092274f86b0628d574b6d5e16e622 (diff) | |
Fix formatting.
| -rw-r--r-- | mulkcms.lisp | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/mulkcms.lisp b/mulkcms.lisp index 13aea8d..6a5423a 100644 --- a/mulkcms.lisp +++ b/mulkcms.lisp @@ -61,13 +61,12 @@ ;; Taken from Mulkblog. (with-html-output-to-string (out) (loop for last-position = 0 then (cadr matches) - for matches = (ppcre:all-matches "(\\n|\\r|\\r\\n)(\\n|\\r|\\r\\n)+" - text) + for matches = (ppcre:all-matches "(\\n|\\r|\\r\\n)(\\n|\\r|\\r\\n)+" text) then (cddr matches) while (not (endp matches)) do (htm (:p (esc (subseq text last-position (car matches))))) finally - (htm (:p (esc (subseq text last-position))))))) + (htm (:p (esc (subseq text last-position))))))) (defun paramify-comment (comment-revision-data) (destructuring-bind (crid comment date content author format status |