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

Better error handling.

Browse Source
This commit is contained in:
Gerd Heber 2016-04-02 08:54:47 -04:00
parent 206d7d172f
commit 626acb6d5e
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/special-smsts.lisp
View File

@ -487,12 +487,13 @@
(ecase (length args) (ecase (length args)
(0 t) (0 t)
(1 (let ((a (first args))) (1 (let ((a (first args)))
(when (dimp a) (if (dimp a)
(unless (infinityp a) (unless (infinityp a)
(setq k a))))) (setq k a))
(error "~A is not a positive FIXNUM." a))))
(2 (let ((a (first args)) (2 (let ((a (first args))
(b (first (last args)))) (b (first (last args))))
(when (and (and (dimp a) (if (and (and (dimp a)
(dimp b)) (dimp b))
(or (not (infinityp a)) (or (not (infinityp a))
(not (infinityp b)))) (not (infinityp b))))
@ -500,7 +501,8 @@
((infinityp a) (setq k b)) ((infinityp a) (setq k b))
((infinityp b) (setq k a)) ((infinityp b) (setq k a))
((<= a b) (setq l b k a)) ((<= a b) (setq l b k a))
(t (setq l a k b))))))) (t (setq l a k b)))
(error "At most two arguments of type FIXNUM or value :INFINITY are expected,~%and at most one of them can be :INFINITY.")))))
(the simplicial-set (the simplicial-set
(build-smst (build-smst
:cmpr #'R-proj-space-cmpr :cmpr #'R-proj-space-cmpr