Commit d5f83a99 authored by Robert Goldman's avatar Robert Goldman Committed by Attila Lendvai
Browse files

Fix COMPILER-LET on Allegro.

parent b6f7a482
......@@ -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
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment