Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Jan Moringen
asdf
Commits
c5e871a2
Commit
c5e871a2
authored
Feb 18, 2014
by
Robert P. Goldman
Browse files
Better implementation of CALL-QUIETLY for ACL.
parent
c6538607
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/script-support.lisp
View file @
c5e871a2
...
...
@@ -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
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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