116 |
(deftest the.18 |
(deftest the.18 |
117 |
(the (values symbol integer &rest t) (values 'a 1 'foo '(x y))) |
(the (values symbol integer &rest t) (values 'a 1 'foo '(x y))) |
118 |
a 1 foo (x y)) |
a 1 foo (x y)) |
119 |
|
|
120 |
|
(deftest the.19 |
121 |
|
(let () (list (the (values) (eval '(values))))) |
122 |
|
(nil)) |
123 |
|
|
124 |
|
;;; This is from SBCL bug 261 |
125 |
|
(deftest the.20 |
126 |
|
(let () (list (the (values &optional fixnum) (eval '(values))))) |
127 |
|
(nil)) |
128 |
|
|
129 |
|
(deftest the.21 |
130 |
|
(let () (list (the (values &rest t) (eval '(values))))) |
131 |
|
(nil)) |
132 |
|
|
133 |
|
(deftest the.22 |
134 |
|
(the (values symbol integer &rest t) (eval '(values 'a 1 'foo '(x y)))) |
135 |
|
a 1 foo (x y)) |
136 |
|
|
137 |
|
(deftest the.23 |
138 |
|
(multiple-value-list |
139 |
|
(the (values symbol integer &optional fixnum) (eval '(values 'a 1)))) |
140 |
|
(a 1)) |
141 |
|
|
142 |
|
|