From 8cbd522de88d4c888e622fa6f13214e460c9d84b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ana=20Romero=20Ib=C3=A1=C3=B1ez?= <anromero@unirioja.loc>
Date: Thu, 16 Jan 2020 11:23:10 +0100
Subject: [PATCH] Examples removed

---
 src/anromero/homotopy.lisp | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/src/anromero/homotopy.lisp b/src/anromero/homotopy.lisp
index dc32c6d..39facd1 100644
--- a/src/anromero/homotopy.lisp
+++ b/src/anromero/homotopy.lisp
@@ -213,12 +213,7 @@
       
     
 
-(setf smst X degr 4)
-(setf n-hom 4 obj smst degree (first-non-null-homology-group smst degr)  
-  hom (homology-format smst (1+ degree)))
-
-(compute-homotopy-z-xslt n-hom obj (1+ degree))
-(setf degree (1+ degree))
+