diff --git a/.gitignore b/.gitignore index 4675d0a..021dbdc 100644 --- a/.gitignore +++ b/.gitignore @@ -1,5 +1,6 @@ *~ *.fasl +*.dx??fsl ignore/ generated/ .curr diff --git a/src/config.lisp b/src/config.lisp index d73a98a..f9d4ea0 100644 --- a/src/config.lisp +++ b/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))) diff --git a/src/content.lisp b/src/content.lisp index 0774ead..a4bf94b 100644 --- a/src/content.lisp +++ b/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*)))) diff --git a/src/util.lisp b/src/util.lisp index 1862ec3..8bcff07 100644 --- a/src/util.lisp +++ b/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*))