From aabc92196b0eefcfaf8495171701518783fffa39 Mon Sep 17 00:00:00 2001 From: Craig Oates Date: Wed, 5 Jan 2022 17:50:09 +0000 Subject: [PATCH] fix cl-ppcre import statement in view.lisp and rename articles-make. I had a typo in the import statement which meant I could not quickload rails-to-caveman. The articles-make function rename is, also, a typo. --- src/view.lisp | 4 ++-- src/web.lisp | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/view.lisp b/src/view.lisp index fb3863a..3f91eec 100644 --- a/src/view.lisp +++ b/src/view.lisp @@ -47,7 +47,7 @@ (:import-from #:caveman2 #:url-for) (:import-from #:cl-ppcre - #:regexp-replace-all) + #:regex-replace-all) (:export #:title! ; Added in Chapter 3 (Mockup section). #:date-options )) @@ -82,7 +82,7 @@ (djula::def-filter :simple-format (it) (with-output-to-string (s) (3bmd:parse-string-and-print-to-stream - (ppcre:regex-replace-all #\newline it "
") s))) + (cl-ppcre:regex-replace-all #\newline it "
") s))) #| LACK OF 'DJULA' DOES NOT MEAN IT IS NOT PART OF IT (date-options) ==================================================================== diff --git a/src/web.lisp b/src/web.lisp index da65527..023bc2c 100644 --- a/src/web.lisp +++ b/src/web.lisp @@ -929,7 +929,7 @@ nil "/users/~D"(mito:object-id user)))))))) time :format '((:year 4)"-"(:month 2)"-"(:day 2)))) -(defun articles (n &key (logged-in-p (hermetic:logged-in-p)) +(defun articles-make (n &key (logged-in-p (hermetic:logged-in-p)) (user(and logged-in-p (current-user)))) (if logged-in-p (if (rails-to-caveman.model::administrator-of user)