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

Add regression tests for non-lambda exprs and (setf fun) names

Browse source
This commit is contained in:
Daniel Kochmanski 2018-02-13 12:44:52 +01:00
parent fd183e575f
commit 2862fc611d
1 changed files with 28 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1401,3 +1401,31 @@
(flet ((a () b)) #'a))))
(is (null (nth-value 1 (function-lambda-expression fun-1))))
(is (nth-value 1 (function-lambda-expression fun-2)))))
;;; Date 2018-02-13
;;; Description
;;;
;;; ext::bc-compile executed compiled form.
(test cmp.0067.bytecodes-compile-exec
(multiple-value-bind (fun warn err)
(ext::bc-compile nil '(flet ((a () 3)) #'a))
(is (and (null fun) warn err)
"bc-compile: invalid lambda expression should signal error.")))
;;; Date 2018-02-13
;;; Description
;;;
;;; compile / ext::bc-compile doesn't accept (setf foo).
(ext:with-clean-symbols (foo bar)
(test cmp.0068.bytecmp-setf-foo
(defun (setf foo) (x) x)
(multiple-value-bind (fun warn err)
(ext::bc-compile '(setf foo))
(is (and fun (null warn) (null err))
"bc-compile: (setf foo) is a valid function name.")))
(test cmp.0069.cmp-setf-foo
(defun (setf foo) (x) x)
(multiple-value-bind (fun warn err)
(compile '(setf foo))
(is (and fun (null warn) (null err))
"compile: (setf foo) is a valid function name."))))