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)