mmarco/kenzo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Removed duplicate definition of RANDOM-ALLP.

Browse Source
This commit is contained in:
Gerd Heber 2015-08-02 15:58:50 -05:00
parent 6cc1acf71b
commit b4c7ad119a
1 changed files with 0 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
test/cobar-test.lisp
View File

@ -50,16 +50,6 @@
3 (cat:d (cat:mask 5)))))) 3 (cat:d (cat:mask 5))))))
(defun random-allp (length)
(let ((rslt nil))
(dotimes (i length)
(let* ((gmsm (random (cat:mask 9)))
(dmns (1- (logcount gmsm))))
(when (plusp dmns)
(push (cat:cbgn (1- dmns) (cat:d gmsm)) rslt))))
(cat:make-allp :list rslt)))
(test vrtc-cobar (test vrtc-cobar
(cat:cat-init) (cat:cat-init)
(let ((v (cat:vrtc-cobar (cat:soft-delta-infinity)))) (let ((v (cat:vrtc-cobar (cat:soft-delta-infinity))))