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

Diff of /gcl/ansi-tests/packages-05.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 15  Line 15 
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
# Line 33  Line 33 
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

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