152 |
(with-slots (a b c) obj (values a b c))) |
(with-slots (a b c) obj (values a b c))) |
153 |
missing missing missing) |
missing missing missing) |
154 |
|
|
155 |
|
(deftest with-slots.19 |
156 |
|
(let ((obj (make-instance 'with-slots-class-01 :a 'x :b 'y :c 'z))) |
157 |
|
(with-slots (a b c) obj |
158 |
|
(declare (optimize (speed 3) (safety 3))) |
159 |
|
(values a b c))) |
160 |
|
x y z) |
161 |
|
|
162 |
|
(deftest with-slots.20 |
163 |
|
(let ((obj (make-instance 'with-slots-class-01 :a 'x :b 'y :c 'z))) |
164 |
|
(with-slots (a b c) obj |
165 |
|
(declare (optimize (speed 3) (safety 3))) |
166 |
|
(declare (special *x*)) |
167 |
|
(values a b c))) |
168 |
|
x y z) |