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))
+