15 |
(let ((p (make-package "TEST1"))) |
(let ((p (make-package "TEST1"))) |
16 |
(let ((sym (intern "FOO" p))) |
(let ((sym (intern "FOO" p))) |
17 |
(setf return-value (export sym p)) |
(setf return-value (export sym p)) |
18 |
(multiple-value-bind (sym2 status) |
(multiple-value-bind* (sym2 status) |
19 |
(find-symbol "FOO" p) |
(find-symbol "FOO" p) |
20 |
(prog1 |
(prog1 |
21 |
(and sym2 |
(and sym2 |
33 |
(let ((p (make-package "TEST1"))) |
(let ((p (make-package "TEST1"))) |
34 |
(let ((sym (intern "FOO" p))) |
(let ((sym (intern "FOO" p))) |
35 |
(export (list sym) p) |
(export (list sym) p) |
36 |
(multiple-value-bind (sym2 status) |
(multiple-value-bind* (sym2 status) |
37 |
(find-symbol "FOO" p) |
(find-symbol "FOO" p) |
38 |
(prog1 |
(prog1 |
39 |
(and sym2 |
(and sym2 |