Merge pull request #62 from cmstrickland/ccl-fixes

A couple of tiny ccl fixes, external-format and gitgnore for ccl fsl files.

.gitignore

@@ -1,5 +1,6 @@
 *~
 *.fasl
+*.dx??fsl
 ignore/
 generated/
 .curr

src/config.lisp

@@ -68,7 +68,7 @@ doesn't exist, use the .coleslawrc in the home directory."
 (defun load-config (&optional (repo-dir ""))
   "Find and load the coleslaw configuration from .coleslawrc. REPO-DIR will be
 preferred over the home directory if provided."
-  (with-open-file (in (discover-config-path repo-dir) :external-format '(:utf-8))
+  (with-open-file (in (discover-config-path repo-dir) :external-format :utf-8)
     (let ((config-form (read in)))
       (setf *config* (construct 'blog config-form)
             (repo *config*) repo-dir)))

src/content.lisp

@@ -72,7 +72,7 @@
                                       (file-position stream)))))
              (read-sequence seq stream)
              (remove #\Nul seq))))
-    (with-open-file (in file :external-format '(:utf-8))
+    (with-open-file (in file :external-format :utf-8)
       (let ((metadata (parse-metadata in))
             (content (slurp-remainder in))
             (filepath (enough-namestring file (repo *config*))))

src/util.lisp

@@ -88,7 +88,7 @@ along with any missing parent directories otherwise."
                    :direction :output
                    :if-exists :supersede
                    :if-does-not-exist :create
-                   :external-format '(:utf-8))
+                   :external-format :utf-8)
     (write text :stream out :escape nil)))
 
 (defun get-updated-files (&optional (revision *last-revision*))