From 700546750a523d99cd8c770a821a693c15ca1374 Mon Sep 17 00:00:00 2001 From: Ana Romero Date: Wed, 12 Jun 2019 17:23:15 +0200 Subject: [PATCH] Problem in computation of homotopy groups solved --- src/anromero/homotopy.lisp | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/src/anromero/homotopy.lisp b/src/anromero/homotopy.lisp index 8fcd8d5..42a3e90 100644 --- a/src/anromero/homotopy.lisp +++ b/src/anromero/homotopy.lisp @@ -119,15 +119,21 @@ (cond ((equal (car list) 1) (let* ((ch (chml-clss chcm indx)) (fib (z-whitehead chcm ch)) (ft (fibration-total fib))) - (construct-space-iterative ft (cdr list) indx))) + (progn + (kill-epis ft 1 indx) + (construct-space-iterative ft (cdr list) indx)))) ((equal (car list) 2) (let* ((ch (chml-clss chcm indx)) (fib (z2-whitehead chcm ch)) (ft (fibration-total fib))) - (construct-space-iterative ft (cdr list) indx))) + (progn + (kill-epis ft 1 indx) + (construct-space-iterative ft (cdr list) indx)))) (t (let* ((ch (chml-clss chcm indx)) (fib (zp-whitehead (car list) chcm ch)) (ft (fibration-total fib))) - (construct-space-iterative ft (cdr list) indx))) + (progn + (kill-epis ft 1 indx) + (construct-space-iterative ft (cdr list) indx)))) )))