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

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

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

revision 1.1 by pfdietz, Tue Jun 10 00:05:35 2003 UTC revision 1.2 by pfdietz, Sat Aug 9 18:13:35 2003 UTC
# Line 16  Line 16 
16      (assert (> len 0))      (assert (> len 0))
17      `(case (random ,len)      `(case (random ,len)
18         ,@(loop for i from 0 for e in cases collect `(,i ,e))         ,@(loop for i from 0 for e in cases collect `(,i ,e))
19         (t (error "Can't happen?! (in random-case~%")))))         (t (error "Can't happen?! (in random-case)~%")))))
20    
21  (defun coin (&optional (n 2))  (defun coin (&optional (n 2))
22    "Flip an n-sided coin."    "Flip an n-sided coin."

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