diff --git a/users/sterni/mblog/mail-note/note.lisp b/users/sterni/mblog/mail-note/note.lisp index 5afe70605..aea8ff0b4 100644 --- a/users/sterni/mblog/mail-note/note.lisp +++ b/users/sterni/mblog/mail-note/note.lisp @@ -9,7 +9,7 @@ (defun html-escape-stream (in out) "Escape characters read from stream IN and write them to stream OUT escaped using WHO:ESCAPE-STRING-MINIMAL." - (let ((buf (make-string config:*general-buffer-size*))) + (let ((buf (make-string *general-buffer-size*))) (loop for len = (read-sequence buf in) while (> len 0) do (write-string (who:escape-string-minimal (subseq buf 0 len)) out)))) diff --git a/users/sterni/mblog/packages.lisp b/users/sterni/mblog/packages.lisp index e55558267..5e9d2fe14 100644 --- a/users/sterni/mblog/packages.lisp +++ b/users/sterni/mblog/packages.lisp @@ -22,8 +22,8 @@ :common-lisp :closure-html :cl-date-time-parser - :mime4cl - :config) + :mime4cl) + (:import-from :config :*general-buffer-size*) (:import-from :alexandria :when-let*