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
Eric Timmons
iterate
Commits
501edfb2
Commit
501edfb2
authored
May 17, 2021
by
Robert Goldman
Browse files
Fix allegro-compiler-let test.
There was a cut-and-paste typo in this test.
parent
d5f83a99
Changes
1
Hide whitespace changes
Inline
Side-by-side
iterate-test.lisp
View file @
501edfb2
...
@@ -1952,9 +1952,9 @@
...
@@ -1952,9 +1952,9 @@
(
deftest
allegro-compiler-let
(
deftest
allegro-compiler-let
(
catch
'compiler-warned
(
catch
'compiler-warned
(
handler-bind
(
handler-bind
((
ccl:compiler-
warning
#'
(
lambda
(
e
)
((
warning
#'
(
lambda
(
e
)
(
declare
(
ignore
e
))
(
declare
(
ignore
e
))
(
throw
'compiler-warned
nil
))))
(
throw
'compiler-warned
nil
))))
(
let
((
def
(
compile
nil
'
(
lambda
(
list-xs
)
(
let
((
def
(
compile
nil
'
(
lambda
(
list-xs
)
(
iter
(
for
x
in
list-xs
)
(
assert
x
()
"~s is not a foo."
x
))))))
(
iter
(
for
x
in
list-xs
)
(
assert
x
()
"~s is not a foo."
x
))))))
(
when
def
t
))))
(
when
def
t
))))
...
...
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