Browse files

remove extra closing paren. downcase error

  • Loading branch information...
1 parent b0a10bc commit 7ad9fdf037a11f433d087c76ba26446708dd88da @erikg committed Mar 10, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 maildir.lisp
@@ -114,7 +114,7 @@
(let ((l (split-mail-to-head-and-body file)))
(when (funcall func (car l) (cdr l) hooks)
(rename-file file (merge-pathnames processed-maildir (file-namestring file)))))
- (SB-INT:STREAM-DECODING-ERROR (e) (format t "Went ~s wonky on ~s~%" e file) '()))))))
+ (sb-int:stream-decoding-error (e) (format t "Went ~s wonky on ~s~%" e file) '())))))
(defun process-mail-dir (&key (maildir +db-unprocessed-mail-dir+) (processed-maildir +db-processed-mail-dir+) (hooks '()) (verbose nil))
"Parse all messages in a mail dir, adding parsed commit messages to the list and applying the hooks"

0 comments on commit 7ad9fdf

Please sign in to comment.