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

Updated comments.

Browse Source
This commit is contained in:
Gerd Heber 2016-04-03 03:53:57 -04:00
parent 626acb6d5e
commit cc7399edba
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/special-smsts.lisp
View File

@ -484,24 +484,26 @@
;; must be positive FIXNUM or :INFINITY ;; must be positive FIXNUM or :INFINITY
;; if one is FIXNUM, assign K ;; if one is FIXNUM, assign K
;; if both are FIXNUM, sort and assign such that (<= k l) ;; if both are FIXNUM, sort and assign such that (<= k l)
;; if both are :INFINITY -> error
(ecase (length args) (ecase (length args)
(0 t) (0 t)
(1 (let ((a (first args))) (1 (let ((a (first args)))
(if (dimp a) (if (dimp a)
(unless (infinityp a) (unless (infinityp a) ; set K only if it's a FIXNUM
(setq k a)) (setq k a))
(error "~A is not a positive FIXNUM." a)))) (error "~A is not a positive FIXNUM or :INFINITY." a))))
(2 (let ((a (first args)) (2 (let ((a (first args))
(b (first (last args)))) (b (first (last args))))
(if (and (and (dimp a) (if (and
(dimp b)) (and (dimp a)
(or (not (infinityp a)) (dimp b))
(not (infinityp b)))) (or (not (infinityp a))
(not (infinityp b))))
(cond (cond
((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))) ; (< b a)
(error "At most two arguments of type FIXNUM or value :INFINITY are expected,~%and at most one of them can be :INFINITY."))))) (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