~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
src/**/*.lisp: Use convenience functions to invoke restarts.
[sod]
/
src
/
sod.asd.in
diff --git
a/src/sod.asd.in
b/src/sod.asd.in
index
f88ea25
..
4a1c341
100644
(file)
--- a/
src/sod.asd.in
+++ b/
src/sod.asd.in
@@
-178,10
+178,7
@@
(defmethod perform ((op test-op) (component (eql (find-system "sod"))))
(declare (ignore op component))
(defmethod perform ((op test-op) (component (eql (find-system "sod"))))
(declare (ignore op component))
- (handler-bind (((or warning style-warning)
- (lambda (cond)
- (declare (ignore cond))
- (invoke-restart 'muffle-warning))))
+ (handler-bind (((or warning style-warning) #'muffle-warning))
(operate 'test-op "sod-test")))
;;;----- That's all, folks --------------------------------------------------
(operate 'test-op "sod-test")))
;;;----- That's all, folks --------------------------------------------------