13 |
(progn |
(progn |
14 |
(safely-delete-package "TEMP1") |
(safely-delete-package "TEMP1") |
15 |
(let ((p (make-package "TEMP1"))) |
(let ((p (make-package "TEMP1"))) |
16 |
(multiple-value-bind (sym1 status1) |
(multiple-value-bind* (sym1 status1) |
17 |
(find-symbol "FOO" p) |
(find-symbol "FOO" p) |
18 |
(intern "FOO" p) |
(intern "FOO" p) |
19 |
(multiple-value-bind (sym2 status2) |
(multiple-value-bind* (sym2 status2) |
20 |
(find-symbol "FOO" p) |
(find-symbol "FOO" p) |
21 |
(and (null sym1) |
(and (null sym1) |
22 |
(null status1) |
(null status1) |
30 |
(progn |
(progn |
31 |
(safely-delete-package "TEMP1") |
(safely-delete-package "TEMP1") |
32 |
(let ((p (make-package "TEMP1"))) |
(let ((p (make-package "TEMP1"))) |
33 |
(multiple-value-bind (sym1 status1) |
(multiple-value-bind* (sym1 status1) |
34 |
(find-symbol "FOO" "TEMP1") |
(find-symbol "FOO" "TEMP1") |
35 |
(intern "FOO" "TEMP1") |
(intern "FOO" "TEMP1") |
36 |
(multiple-value-bind (sym2 status2) |
(multiple-value-bind* (sym2 status2) |
37 |
(find-symbol "FOO" p) |
(find-symbol "FOO" p) |
38 |
(and (null sym1) |
(and (null sym1) |
39 |
(null status1) |
(null status1) |