/[gcl]/gcl/ansi-tests/structures-03.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/structures-03.lsp

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

revision 1.2 by pfdietz, Tue Jan 7 03:40:05 2003 UTC revision 1.3 by pfdietz, Wed Jan 8 01:33:02 2003 UTC
# Line 24  Line 24 
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

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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