From 80ced3c9b1023f32ed1dd41459d3176ed41aa463 Mon Sep 17 00:00:00 2001 From: Marius Gerbershagen Date: Tue, 21 Nov 2017 18:00:25 +0100 Subject: [PATCH] add test for #418 --- src/tests/normal-tests/compiler.lsp | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/tests/normal-tests/compiler.lsp b/src/tests/normal-tests/compiler.lsp index 21afd59f8..5c5991521 100644 --- a/src/tests/normal-tests/compiler.lsp +++ b/src/tests/normal-tests/compiler.lsp @@ -1279,3 +1279,13 @@ (test cmp.0059.gray-is-not-ansi (let ((stream (make-instance 'gray:fundamental-stream))) (is-false (typep stream 'ext:ansi-stream)))) + +;;; Date 2017-11-21 +;;; Description +;;; +;;; loop on dotted lists with destructuring bind gave a type error +;;; +;;; Bug https://gitlab.com/embeddable-common-lisp/ecl/issues/418 +(test cmp.0060.loop-on-dotted-list + (finishes (funcall (compile nil + '(lambda () (loop for (i) on '(1 2 . 3)))))))