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

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

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

revision 1.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC revision 1.2 by pfdietz, Sat Oct 12 04:25:43 2002 UTC
# Line 7  Line 7 
7  (declaim (optimize (safety 3)))  (declaim (optimize (safety 3)))
8    
9  (deftest do-symbols-1  (deftest do-symbols-1
10      (equal    (equal
11       (sort-symbols (let ((all nil))     (sort-symbols (let ((all nil))
12                       (do-symbols (x "B" all) (push x all))))                     (do-symbols (x "B" all) (push x all))))
13       (list (find-symbol "BAR" "B")     (list (find-symbol "BAR" "B")
14             (find-symbol "FOO" "A")))           (find-symbol "FOO" "A")))
15    t)    t)
16    
17  ;;  ;;
# Line 37  Line 37 
37    (DS2:A DS2::E DS2::F DS2:G DS2:H))    (DS2:A DS2::E DS2::F DS2:G DS2:H))
38    
39  (deftest do-symbols-4  (deftest do-symbols-4
40      (collect-symbols "DS3")    (collect-symbols "DS3")
41    (DS1:A DS3:B DS2:G DS2:H DS3:I DS3:J DS3:K DS3::L DS3::M))    (DS1:A DS3:B DS2:G DS2:H DS3:I DS3:J DS3:K DS3::L DS3::M))
42    
43  (deftest do-symbols-5  (deftest do-symbols-5
44      (remove-duplicates    (remove-duplicates
45       (collect-symbols "DS4")     (collect-symbols "DS4")
46       :test #'(lambda (x y)     :test #'(lambda (x y)
47                 (and (eq x y)               (and (eq x y)
48                      (not (eq x 'DS4::B)))))                    (not (eq x 'DS4::B)))))
49    (DS1:A DS1:B DS2::F DS3:G DS3:I DS3:J DS3:K DS4::X DS4::Y DS4::Z))    (DS1:A DS1:B DS2::F DS3:G DS3:I DS3:J DS3:K DS4::X DS4::Y DS4::Z))
50    
51    

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

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