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

add regression test for #292

Browse source
This commit is contained in:
Marius Gerbershagen 2017-12-02 22:08:39 +01:00
parent a0a1a54747
commit 31ed58b7c3
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1289,3 +1289,17 @@
(test cmp.0060.loop-on-dotted-list
(finishes (funcall (compile nil
'(lambda () (loop for (i) on '(1 2 . 3)))))))
;;; Date 2017-12-02
;;; Description
;;;
;;; type declarations for optional and keyword function arguments
;;; resulted in an error, when the default values weren't of the
;;; specified type.
;;;
;;; Bug https://gitlab.com/embeddable-common-lisp/ecl/issues/292
(test cmp.0061.optional-type-declaration
(declaim (ftype (function (real &optional real &key (:c symbol)) real) foo))
(defun foo (a &optional (b 'test) &key (c 1)) (if b c a))
(compile 'foo)
(finishes (foo 1)))