mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-24 13:31:58 -08:00
Code Issues Projects Releases Packages Wiki Activity

add test for #418

Browse source
This commit is contained in:
Marius Gerbershagen 2017-11-21 18:00:25 +01:00
parent 2f48a7df9d
commit 80ced3c9b1
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/tests/normal-tests/compiler.lsp
View file

@ -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)))))))