24 |
|
|
25 |
(deftest structure-boa-test-02/1 |
(deftest structure-boa-test-02/1 |
26 |
(let ((s (sbt-02-con 1 2 3))) |
(let ((s (sbt-02-con 1 2 3))) |
27 |
(values (sbt-01-a s) |
(values (sbt-02-a s) |
28 |
(sbt-01-b s) |
(sbt-02-b s) |
29 |
(sbt-01-c s))) |
(sbt-02-c s))) |
30 |
1 2 3) |
1 2 3) |
31 |
|
|
32 |
(deftest structure-boa-test-02/2 |
(deftest structure-boa-test-02/2 |
33 |
(let ((s (sbt-02-con-2 'p 'q))) |
(let ((s (sbt-02-con-2 'p 'q))) |
34 |
(values (sbt-01-a s) |
(values (sbt-02-a s) |
35 |
(sbt-01-b s) |
(sbt-02-b s) |
36 |
(sbt-01-c s))) |
(sbt-02-c s))) |
37 |
p q z) |
p q z) |
38 |
|
|
39 |
(deftest structure-boa-test-02/3 |
(deftest structure-boa-test-02/3 |
40 |
(let ((s (sbt-02-con-3))) |
(let ((s (sbt-02-con-3))) |
41 |
(values (sbt-01-a s) |
(values (sbt-02-a s) |
42 |
(sbt-01-b s) |
(sbt-02-b s) |
43 |
(sbt-01-c s))) |
(sbt-02-c s))) |
44 |
x y z) |
x y z) |
45 |
|
|
46 |
;;; &optional in BOA LL |
;;; &optional in BOA LL |