From b4c7ad119a478a160fd14cf0dbada2188cb57761 Mon Sep 17 00:00:00 2001 From: Gerd Heber Date: Sun, 2 Aug 2015 15:58:50 -0500 Subject: [PATCH] Removed duplicate definition of RANDOM-ALLP. --- test/cobar-test.lisp | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/test/cobar-test.lisp b/test/cobar-test.lisp index 2757681..f8a5878 100644 --- a/test/cobar-test.lisp +++ b/test/cobar-test.lisp @@ -50,16 +50,6 @@ 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 (cat:cat-init) (let ((v (cat:vrtc-cobar (cat:soft-delta-infinity))))