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

find-all matching adjusted

Browse source 
find-all implementation returns false positives for subclasses
added parameter of a predicate to implement matching, with a default
value that preserves original behaviour

added an exact class matcher to purge-all invocation of find-all to stop
it purging subclasses
This commit is contained in:
Colin M. Strickland 2014-12-09 10:06:35 +00:00
parent 144cb03294
commit 7facd55afb
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/documents.lisp
View file

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