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

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

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

revision 1.1 by pfdietz, Sun Apr 20 13:17:45 2003 UTC revision 1.2 by pfdietz, Sun Apr 20 22:59:26 2003 UTC
# Line 41  Line 41 
41       i x y))       i x y))
42    t (a b e f) 2 1 2)    t (a b e f) 2 1 2)
43    
44    (deftest remf.order.2
45      (let ((x  (copy-seq #(nil :a :b)))
46            (pa (vector (list :a 1) (list :b 2) (list :c 3) (list :d 4)))
47            (i 0))
48        (values
49         (not (remf (aref pa (incf i)) (aref x (incf i))))
50         pa))
51      nil #((:a 1) nil (:c 3) (:d 4)))
52    
53    (def-macro-test remf.error.1 (remf x 'a))

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