Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
ansi-test
Commits
b700de21
Commit
b700de21
authored
Mar 10, 2003
by
pfdietz
Browse files
Added tests for RETURN-FROM in DEFUN.
parent
94fee32e
Changes
1
Show whitespace changes
Inline
Side-by-side
ansi-tests/defun.lsp
View file @
b700de21
...
...
@@ -5,9 +5,6 @@
(in-package :cl-test)
;;; DEFUN is used extensively elsewhere, so I'm just putting error
;;; case tests here
#|
(deftest defun.error.1
(classify-error (defun))
...
...
@@ -17,3 +14,45 @@
(classify-error (defun ignored-defun-name))
program-error)
|#
;;; Tests for implicit blocks
(defun defun-test-fun-1 ()
(return-from defun-test-fun-1 'good))
(deftest defun.1
(defun-test-fun-1)
good)
(defun defun-test-fun-2 ()
(return-from defun-test-fun-2 (values)))
(deftest defun.2
(defun-test-fun-2))
(defun defun-test-fun-3 ()
(return-from defun-test-fun-3 (values 'a 'b 'c 'd 'e 'f)))
(deftest defun.3
(defun-test-fun-3)
a b c d e f)
(defun defun-test-fun-4 (x)
(car x))
(eval-when (load eval compile)
(ignore-errors
(defun (setf defun-test-fun-4) (newval x)
(return-from defun-test-fun-4 (setf (car x) newval)))))
(deftest defun.4
(let ((x (list 'a 'b)))
(values
(setf (defun-test-fun-4 x) 'c)
x))
c
(c b))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment