/[gcl]/gcl/ansi-tests/packages-04.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/packages-04.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by pfdietz, Sat Jan 18 18:14:02 2003 UTC revision 1.6 by pfdietz, Fri Jan 24 04:22:54 2003 UTC
# Line 13  Line 13 
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)
# Line 30  Line 30 
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)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26