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
Steve Losh
iterate
Commits
ffc414eb
Commit
ffc414eb
authored
Oct 25, 2006
by
Henrik Hjelte
Browse files
wrap code in progns, to avoid possiblity of multiple nil tags in tagbody
darcs-hash:9ecc45d1834bb9584f2d4fb2c3b57da2b7af0f77
parent
20ef584b
Changes
1
Hide whitespace changes
Inline
Side-by-side
iterate.lisp
View file @
ffc414eb
...
...
@@ -569,14 +569,14 @@ Evaluate (iterate:display-iterate-clauses) for an overview of clauses"
(
prepend
(
default-driver-code
)
body
)
(
let
((
it-bod
`
(
block
,
*block-name*
(
tagbody
,.
init-code
(
progn
,.
init-code
)
,
*loop-top*
,.
body
(
progn
,.
body
)
,.
(
if
*loop-step-used?*
(
list
*loop-step*
))
,.
steppers
(
progn
,.
steppers
)
(
go
,
*loop-top*
)
,.
(
if
*loop-end-used?*
(
list
*loop-end*
))
,.
final-code
)
(
progn
,.
final-code
)
)
,
(
if
(
member
*result-var*
*bindings*
:key
#'
car
)
*result-var*
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