/[gcl]/gcl/ansi-tests/position-if-not.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/position-if-not.lsp

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

revision 1.11 by pfdietz, Sat Jan 17 21:27:09 2004 UTC revision 1.12 by pfdietz, Wed Sep 22 12:19:37 2004 UTC
# Line 217  Line 217 
217       (position-if-not #'symbolp a :from-end t)))       (position-if-not #'symbolp a :from-end t)))
218    nil 0 nil 4)    nil 0 nil 4)
219    
220    (deftest position-if-not-vector.14
221      (let* ((v1 #(x x x a b 1 d a b 2 d y y y y y))
222             (v2 (make-array '(8) :displaced-to v1
223                            :displaced-index-offset 3)))
224        (values (position-if-not #'symbolp v2)
225                (position-if-not #'symbolp v2 :from-end t)))
226      2 6)
227    
228  ;;; Bit vector tests  ;;; Bit vector tests
229    
230  (deftest position-if-not-bit-vector.1  (deftest position-if-not-bit-vector.1
# Line 444  Line 452 
452            (position-if-not (complement #'digit-char-p) a :from-end t))))            (position-if-not (complement #'digit-char-p) a :from-end t))))
453    nil 0 nil 4)    nil 0 nil 4)
454    
455    (deftest position-if-not-string.14
456      (do-special-strings
457       (s "12345a6  78b90" nil)
458       (let ((pos (position-if-not (complement #'alpha-char-p) s)))
459         (assert (eql pos 5) () "First alpha char in ~A is at position ~A" s pos)))
460      nil)
461    
462    (deftest position-if-not-string.15
463      (do-special-strings
464       (s "12345a6  78b90" nil)
465       (let ((pos (position-if-not (complement #'alpha-char-p) s :from-end t)))
466         (assert (eql pos 11) () "Last alpha char in ~A is at position ~A" s pos)))
467      nil)
468    
469  (deftest position-if-not.order.1  (deftest position-if-not.order.1
470    (let ((i 0) a b c d e f)    (let ((i 0) a b c d e f)
471      (values      (values

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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