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
Eric Timmons
iterate
Commits
d5f83a99
Commit
d5f83a99
authored
Jan 31, 2021
by
Robert Goldman
Committed by
Attila Lendvai
Feb 03, 2021
Browse files
Fix COMPILER-LET on Allegro.
parent
b6f7a482
Changes
2
Hide whitespace changes
Inline
Side-by-side
iterate-test.lisp
View file @
d5f83a99
...
...
@@ -1948,4 +1948,17 @@
(
when
def
t
))))
t
)
#+
allegro
(
deftest
allegro-compiler-let
(
catch
'compiler-warned
(
handler-bind
((
ccl:compiler-warning
#'
(
lambda
(
e
)
(
declare
(
ignore
e
))
(
throw
'compiler-warned
nil
))))
(
let
((
def
(
compile
nil
'
(
lambda
(
list-xs
)
(
iter
(
for
x
in
list-xs
)
(
assert
x
()
"~s is not a foo."
x
))))))
(
when
def
t
))))
t
)
;;; eof
iterate.lisp
View file @
d5f83a99
...
...
@@ -313,6 +313,7 @@
;; pretty sure the bindings in compiler-let should NOT be transformed,
;; hence use of WALK-CDDR instead of WALK-LET
#+
ccl
(
ccl:compiler-let
.
walk-cddr
)
#+
allegro
(
excl:compiler-let
.
walk-cddr
)
; fix from Phoebe Goldman
;; A suitable generalization would be a pattern language that describes
;; which car/cdr are forms to be walked, declarations or structure.
;; Walk with-*-iterator ourselves in order to avoid macrolet warnings.
...
...
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