/[gcl]/gcl/ansi-tests/remove-duplicates-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/remove-duplicates-aux.lsp

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

revision 1.2 by pfdietz, Mon Sep 30 02:00:27 2002 UTC revision 1.3 by pfdietz, Sat Jul 12 13:46:01 2003 UTC
# Line 55  Line 55 
55    (multiple-value-bind (element-type type len start end from-end    (multiple-value-bind (element-type type len start end from-end
56                                       count seq key test test-not)                                       count seq key test test-not)
57        (make-random-rd-params maxlen)        (make-random-rd-params maxlen)
58      (declare (ignore count element-type))      (declare (ignore count element-type len type))
59      (let ((arg-list      (let ((arg-list
60             (reduce #'nconc             (reduce #'nconc
61                     (random-permute                     (random-permute

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

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