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

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

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

revision 1.55 by pfdietz, Thu Mar 6 04:11:48 2003 UTC revision 1.56 by pfdietz, Fri Mar 7 01:56:08 2003 UTC
# Line 1211  the condition to go uncaught if it canno Line 1211  the condition to go uncaught if it canno
1211                               (member e z :key key :test test)))                               (member e z :key key :test test)))
1212     t))     t))
1213    
1214    #|
1215  (defun do-random-set-exclusive-ors (size niters &optional (maxelem (* 2 size)))  (defun do-random-set-exclusive-ors (size niters &optional (maxelem (* 2 size)))
1216    (let ((state (make-random-state)))    (let ((state (make-random-state)))
1217      (loop      (loop
# Line 1223  the condition to go uncaught if it canno Line 1224  the condition to go uncaught if it canno
1224           (let ((is-good (check-set-exclusive-or x y z)))           (let ((is-good (check-set-exclusive-or x y z)))
1225             (unless is-good (return (values x y z)))))))             (unless is-good (return (values x y z)))))))
1226      nil))      nil))
1227    |#
1228    
1229  (defun nset-exclusive-or-with-check (x y &key (key 'no-key)  (defun nset-exclusive-or-with-check (x y &key (key 'no-key)
1230                                         test test-not)                                         test test-not)
# Line 1234  the condition to go uncaught if it canno Line 1236  the condition to go uncaught if it canno
1236               ,@(when test `(:test ,test))               ,@(when test `(:test ,test))
1237               ,@(when test-not `(:test-not ,test-not)))))               ,@(when test-not `(:test-not ,test-not)))))
1238    
1239    #|
1240  (defun do-random-nset-exclusive-ors (size niters &optional (maxelem (* 2 size)))  (defun do-random-nset-exclusive-ors (size niters &optional (maxelem (* 2 size)))
1241    (let ((state (make-random-state)))    (let ((state (make-random-state)))
1242      (loop      (loop
# Line 1246  the condition to go uncaught if it canno Line 1249  the condition to go uncaught if it canno
1249           (let ((is-good (check-set-exclusive-or x y z)))           (let ((is-good (check-set-exclusive-or x y z)))
1250             (unless is-good (return (values x y z)))))))             (unless is-good (return (values x y z)))))))
1251      nil))      nil))
1252    |#
1253    
1254  (defun subsetp-with-check (x y &key (key 'no-key) test test-not)  (defun subsetp-with-check (x y &key (key 'no-key) test test-not)
1255    (let ((xcopy (make-scaffold-copy x))    (let ((xcopy (make-scaffold-copy x))

Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56

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