/[gcl]/gcl/ansi-tests/subseq.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/subseq.lsp

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

revision 1.1 by pfdietz, Sun Oct 13 01:25:59 2002 UTC revision 1.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC
# Line 59  Line 59 
59       for e on x       for e on x
60       and f on y       and f on y
61       and g in z do       and g in z do
62       (when (or (not (eq g e))       (when (or (not (eqt g e))
63                 (not (eql (car e) (car f)))                 (not (eql (car e) (car f)))
64                 (car e)                 (car e)
65                 (eq e f))                 (eqt e f))
66         (return nil))         (return nil))
67       finally (return t))))       finally (return t))))
68    
# Line 117  Line 117 
117    (block nil    (block nil
118    (let* ((x (make-sequence 'vector 10 :initial-element 'a))    (let* ((x (make-sequence 'vector 10 :initial-element 'a))
119           (y (subseq x 4 8)))           (y (subseq x 4 8)))
120      (unless (every #'(lambda (e) (eq e 'a)) x)      (unless (every #'(lambda (e) (eqt e 'a)) x)
121        (return 1))        (return 1))
122      (unless (every #'(lambda (e) (eq e 'a)) y)      (unless (every #'(lambda (e) (eqt e 'a)) y)
123        (return 2))        (return 2))
124      (unless (eql (length x) 10) (return 3))      (unless (eql (length x) 10) (return 3))
125      (unless (eql (length y) 4)  (return 4))      (unless (eql (length y) 4)  (return 4))
126      (loop for i from 0 to 9 do (setf (aref x i) 'b))      (loop for i from 0 to 9 do (setf (aref x i) 'b))
127      (unless (every #'(lambda (e) (eq e 'a)) y)      (unless (every #'(lambda (e) (eqt e 'a)) y)
128        (return 5))        (return 5))
129      (loop for i from 0 to 3 do (setf (aref y i) 'c))      (loop for i from 0 to 3 do (setf (aref y i) 'c))
130      (or      (or
131       (not (not (every #'(lambda (e) (eq e 'b)) x)))       (not (not (every #'(lambda (e) (eqt e 'b)) x)))
132       6))))       6))))
133    
134  (deftest subseq-vector-1  (deftest subseq-vector-1
135      (subseq-vector-1-body)    (subseq-vector-1-body)
136    t)    t)
137    
138  (defun subseq-vector-2-body ()  (defun subseq-vector-2-body ()
139    (block nil    (block nil

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