43 |
(defun (setf defun-test-fun-4) (newval x) |
(defun (setf defun-test-fun-4) (newval x) |
44 |
(return-from defun-test-fun-4 (setf (car x) newval)))) |
(return-from defun-test-fun-4 (setf (car x) newval)))) |
45 |
|
|
46 |
|
(deftest defun.5 |
47 |
|
(let ((x 1)) |
48 |
|
(declare (special x)) |
49 |
|
(let ((x 2)) |
50 |
|
(defun defun-test-fun-5 (&aux (y x)) |
51 |
|
(declare (special x)) |
52 |
|
(values y x)) |
53 |
|
(defun-test-fun-5))) |
54 |
|
2 1) |
55 |
|
|
56 |
|
(deftest defun.6 |
57 |
|
(let ((x 1)) |
58 |
|
(declare (special x)) |
59 |
|
(let ((x 2)) |
60 |
|
(defun defun-test-fun-5 (&optional (y x)) |
61 |
|
(declare (special x)) |
62 |
|
(values y x)) |
63 |
|
(defun-test-fun-5))) |
64 |
|
2 1) |
65 |
|
|
66 |
|
(deftest defun.7 |
67 |
|
(let ((x 1)) |
68 |
|
(declare (special x)) |
69 |
|
(let ((x 2)) |
70 |
|
(defun defun-test-fun-5 (&key (y x)) |
71 |
|
(declare (special x)) |
72 |
|
(values y x)) |
73 |
|
(defun-test-fun-5))) |
74 |
|
2 1) |
75 |
|
|
76 |
;;; Error tests |
;;; Error tests |
77 |
|
|
78 |
(deftest defun.error.1 |
(deftest defun.error.1 |