marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Renamed find-all matching parameter to matches-p

Browse source 
In response to feedback on PR-78
  https://github.com/redline6561/coleslaw/pull/78
This commit is contained in:
Colin M. Strickland 2015-01-04 14:10:40 +00:00
parent 7facd55afb
commit 7d26e2bb5a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/documents.lisp
View file

@ -68,10 +68,10 @@ use it as the template passing any RENDER-ARGS."
(url (namestring (page-url document))))
(write-file (rel-path (staging-dir *config*) url) html)))
(defun find-all (doc-type &optional (matching (lambda (x) (typep x doc-type))))
(defun find-all (doc-type &optional (matches-p (lambda (x) (typep x doc-type))))
"Return a list of all instances of a given DOC-TYPE."
(loop for val being the hash-values in *site*
when (funcall matching val) collect val))
when (funcall matches-p val) collect val))
(defun purge-all (doc-type)
"Remove all instances of DOC-TYPE from memory."