241 |
(s1 c))) |
(s1 c))) |
242 |
t nil x) |
t nil x) |
243 |
|
|
244 |
|
(deftest class-07.10 |
245 |
|
(let ((c (make-instance 'class-07 :s1a 'x :s2 'y :allow-other-keys nil))) |
246 |
|
(values (s1 c) (s2 c))) |
247 |
|
x y) |
248 |
|
|
249 |
|
(deftest class-07.11 |
250 |
|
(let ((c (make-instance 'class-07 :s1a 'a :s2 'b :garbage 'z |
251 |
|
:allow-other-keys t))) |
252 |
|
(values (s1 c) (s2 c))) |
253 |
|
a b) |
254 |
|
|
255 |
|
|
256 |
;;;; |
;;;; |
257 |
|
|
258 |
(declaim (special *class-08-s2-initvar*)) |
(declaim (special *class-08-s2-initvar*)) |
357 |
(slot-value (make-instance 'class-12 :s1 'y) 's1) |
(slot-value (make-instance 'class-12 :s1 'y) 's1) |
358 |
y) |
y) |
359 |
|
|
360 |
|
;;; |
361 |
|
|
362 |
|
(defclass class-13 () |
363 |
|
((s1 :allocation :class :initarg :s1))) |
364 |
|
|
365 |
|
(deftest class-13.1 |
366 |
|
(let ((c1 (make-instance 'class-13)) |
367 |
|
(c2 (make-instance 'class-13 :s1 'foo))) |
368 |
|
(values |
369 |
|
(slot-value c1 's1) |
370 |
|
(slot-value c1 's1))) |
371 |
|
foo foo) |
372 |
|
|
373 |
|
;;; |
374 |
|
|
375 |
|
(defclass class-14 () |
376 |
|
((s1 :initarg nil :reader s1))) |
377 |
|
|
378 |
|
(deftest class-14.1 |
379 |
|
(let ((c (make-instance 'class-14 nil 'x))) |
380 |
|
(s1 c)) |
381 |
|
x) |
382 |
|
|
383 |
|
|
384 |
|
|