Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
asdf
asdf
Commits
89a87112
Commit
89a87112
authored
Feb 18, 2014
by
Robert P. Goldman
Browse files
Better implementation of CALL-QUIETLY for ACL.
parent
e4dc9a87
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/script-support.lisp
View file @
89a87112
...
...
@@ -340,8 +340,13 @@ is bound, write a message and exit on an error. If
`
(
call-quietly
#'
(
lambda
()
,@
body
)))
(
defun
call-quietly
(
thunk
)
#-
allegro
(
handler-bind
(
#+
sbcl
(
sb-kernel:redefinition-warning
#'
muffle-warning
))
(
funcall
thunk
)))
(
funcall
thunk
))
#+
allegro
(
excl:without-redefinition-warnings
(
funcall
thunk
))
)
(
defun
interactive-test
(
&optional
files
)
(
verbose
t
nil
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment