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

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

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

revision 1.1 by pfdietz, Mon Jul 25 00:43:56 2005 UTC revision 1.2 by pfdietz, Tue Aug 23 13:53:27 2005 UTC
# Line 6  Line 6 
6  (in-package :cl-test)  (in-package :cl-test)
7    
8  (defun bit-random-test-fn (bit-fn log-fn &key (reps 5000) (maxlen 100))  (defun bit-random-test-fn (bit-fn log-fn &key (reps 5000) (maxlen 100))
9    (assert (typep maxlen '(integer (0))))    (assert (typep maxlen '(integer 1)))
10    (assert (typep reps 'unsigned-byte))    (assert (typep reps 'unsigned-byte))
11    (loop for len = (random maxlen)    (loop for len = (random maxlen)
12          for twos = (make-list len :initial-element 2)          for twos = (make-list len :initial-element 2)

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