floss/stoe
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix remove-hook

Browse source
This commit is contained in:
Renaud Casenave-Péré 2015-12-27 16:54:33 +01:00
parent 233cbf95d7
commit efb41ecc11
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
core/utils.lisp
View file

@ -69,7 +69,7 @@
(defmacro remove-hook (hook fun)
"Remove `fun' from `hook'."
`(delete ,fun ,hook))
`(setf ,hook (delete ,fun ,hook)))
(defun run-hook (hook &rest args)
"Apply all functions attached to `hook' with specified `args' if any."