Browse Source

use :utf8 symbol directly in external-format

sbcl can use :utf8 as a direct symbol also
Colin M. Strickland 10 years ago
parent
commit
bcd9051b14
3 changed files with 3 additions and 3 deletions
  1. 1 1
      src/config.lisp
  2. 1 1
      src/content.lisp
  3. 1 1
      src/util.lisp

+ 1 - 1
src/config.lisp

68
 (defun load-config (&optional (repo-dir ""))
68
 (defun load-config (&optional (repo-dir ""))
69
   "Find and load the coleslaw configuration from .coleslawrc. REPO-DIR will be
69
   "Find and load the coleslaw configuration from .coleslawrc. REPO-DIR will be
70
 preferred over the home directory if provided."
70
 preferred over the home directory if provided."
71
-  (with-open-file (in (discover-config-path repo-dir) :external-format '(:utf-8))
71
+  (with-open-file (in (discover-config-path repo-dir) :external-format :utf-8)
72
     (let ((config-form (read in)))
72
     (let ((config-form (read in)))
73
       (setf *config* (construct 'blog config-form)
73
       (setf *config* (construct 'blog config-form)
74
             (repo *config*) repo-dir)))
74
             (repo *config*) repo-dir)))

+ 1 - 1
src/content.lisp

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

+ 1 - 1
src/util.lisp

88
                    :direction :output
88
                    :direction :output
89
                    :if-exists :supersede
89
                    :if-exists :supersede
90
                    :if-does-not-exist :create
90
                    :if-does-not-exist :create
91
-                   :external-format '(:utf-8))
91
+                   :external-format :utf-8)
92
     (write text :stream out :escape nil)))
92
     (write text :stream out :escape nil)))
93
 
93
 
94
 (defun get-updated-files (&optional (revision *last-revision*))
94
 (defun get-updated-files (&optional (revision *last-revision*))