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

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

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

revision 1.6 by pfdietz, Sun Jan 26 14:28:55 2003 UTC revision 1.7 by pfdietz, Sat Feb 15 05:11:12 2003 UTC
# Line 323  Line 323 
323    (notnot-mv (typep (vector 1 2 3) '(simple-vector *)))    (notnot-mv (typep (vector 1 2 3) '(simple-vector *)))
324    t)    t)
325    
326    (deftest vector.order.1
327      (let ((i 0) a b c)
328        (values
329         (vector (setf a (incf i)) (setf b (incf i)) (setf c (incf i)))
330         i a b c))
331      #(1 2 3) 3 1 2 3)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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