Skip to content
Snippets Groups Projects
Commit c21dee42 authored by pfdietz's avatar pfdietz
Browse files

A few more tests for flet, labels, defun

parent 93a683b4
No related branches found
No related tags found
No related merge requests found
...@@ -22,6 +22,11 @@ ...@@ -22,6 +22,11 @@
(def-error-test defun.4 (defun #.(gensym) #.(gensym))) (def-error-test defun.4 (defun #.(gensym) #.(gensym)))
(def-error-test defun.5 (defun #.(gensym) () . foo)) (def-error-test defun.5 (defun #.(gensym) () . foo))
(def-error-test defun.6 (defun #.(gensym) () "foo" "bar" (declare)))
(def-error-test defun.7 (defun #.(gensym) () nil (declare)))
;;; FIXME Add lambda list tests
;;; FLET ;;; FLET
(def-error-test flet.1 (flet . foo)) (def-error-test flet.1 (flet . foo))
...@@ -65,6 +70,11 @@ ...@@ -65,6 +70,11 @@
(def-error-test flet.28 (flet ((foo (&aux (x nil . bar)))))) (def-error-test flet.28 (flet ((foo (&aux (x nil . bar))))))
(def-error-test flet.29 (flet ((foo (&aux (x nil nil)))))) (def-error-test flet.29 (flet ((foo (&aux (x nil nil))))))
(def-error-test flet.30 (flet ((foo () "x" "y" (declare))) (foo)))
(def-error-test flet.31 (flet ((foo () :bad1) (foo () :bad2)) (foo)))
;;; FIXME Add tests for disallowed lambda list keywords
;;; LABELS ;;; LABELS
(def-error-test labels.1 (labels . foo)) (def-error-test labels.1 (labels . foo))
...@@ -108,5 +118,10 @@ ...@@ -108,5 +118,10 @@
(def-error-test labels.28 (labels ((foo (&aux (x nil . bar)))))) (def-error-test labels.28 (labels ((foo (&aux (x nil . bar))))))
(def-error-test labels.29 (labels ((foo (&aux (x nil nil)))))) (def-error-test labels.29 (labels ((foo (&aux (x nil nil))))))
(def-error-test labels.30 (labels ((foo () "x" "y" (declare))) (foo)))
(def-error-test labels.31 (labels ((foo () :bad1) (foo () :bad2)) (foo)))
;;; FIXME Add tests for disallowed lambda list keywords
;;; MACROLET ;;; MACROLET
;;; FIXME: add these ;;; FIXME: add these
...@@ -83,6 +83,7 @@ ...@@ -83,6 +83,7 @@
(def-all-error-test destructuring-bind.3 (def-all-error-test destructuring-bind.3
(typef '(or symbol cons)) (typef '(or symbol cons))
#'(lambda (x) `(destructuring-bind ,x nil))) #'(lambda (x) `(destructuring-bind ,x nil)))
(def-error-test destructuring-bind.4 (destructuring-bind (x) '(a) nil (declare) x))
;;; LET ;;; LET
...@@ -101,6 +102,8 @@ ...@@ -101,6 +102,8 @@
(def-all-error-test let.12 'symbolp (def-all-error-test let.12 'symbolp
#'(lambda (x) `(let ((,x)) nil))) #'(lambda (x) `(let ((,x)) nil)))
(def-error-test let.13 (let ((x 0) (x 1)) x))
;;; LET* ;;; LET*
(def-error-test let*.1 (let*)) (def-error-test let*.1 (let*))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment