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

Make CMBN-NO-ZERO-P return a boolean instead of CMBN-LIST.

Browse Source
This commit is contained in:
Gerd Heber 2015-08-08 15:20:46 -05:00
parent 6a52d31d7f
commit 6a04badd8b
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/macros.lisp
View File

@ -134,7 +134,7 @@ CMBN-NON-ZERO-P
Args: (cmbn)
Tests if the combination CMBN is a non-null combination of any degree.
------------------------------------------------------------------------------"
`(cmbn-list ,cmbn))
`(not (null (cmbn-list ,cmbn))))
(DEFMACRO CMBN-ZERO-P (cmbn)

2
test/combinations-test.lisp
View File

@ -65,7 +65,7 @@
(is (equal (cat:cmbn-list comb) nil)))
(is (null (cat:cmbn-non-zero-p (cat:cmbn 0))))
(is (equal (cat:cmbn-non-zero-p (cat:cmbn 0 1 'a)) '((1 . a))))
(is (cat:cmbn-non-zero-p (cat:cmbn 0 1 'a)))
(is (cat:cmbn-zero-p (cat:cmbn 0)))
(is (null (cat:cmbn-zero-p (cat:cmbn 0 1 'a)))))