Commit 501edfb2 authored by Robert Goldman's avatar Robert Goldman
Browse files

Fix allegro-compiler-let test.

There was a cut-and-paste typo in this test.
parent d5f83a99
...@@ -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))))
......
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