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

Fix destructuring in FIND-INJECTIONS.

Browse source
This commit is contained in:
Brit Butler 2012-09-20 18:49:24 -04:00
parent 93ad2670da
commit 0716fdae6c
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/themes.lisp
View file

@ -15,7 +15,7 @@ any return value other than nil indicates the injection should be added."
(defun find-injections (content)
(flet ((injections-for (location)
(loop for (injection . predicate) in (getf *injections* location)
(loop for (injection predicate) in (getf *injections* location)
when (funcall predicate content)
collect injection)))
(list :head (injections-for :head)