From bbffb8fb87ba8835954ed9a6a0273b3ada68cbd1 Mon Sep 17 00:00:00 2001
From: Gerd Heber <gheber@hdfgroup.org>
Date: Sat, 25 Jul 2015 21:04:59 -0500
Subject: [PATCH] Extracted test from simplicial-mrphs.lisp.

---
 src/simplicial-mrphs.lisp | 15 ---------------
 1 file changed, 15 deletions(-)

diff --git a/src/simplicial-mrphs.lisp b/src/simplicial-mrphs.lisp
index c726420..a548a26 100644
--- a/src/simplicial-mrphs.lisp
+++ b/src/simplicial-mrphs.lisp
@@ -89,21 +89,6 @@
 	   (push rslt *smmr-list*)
 	   rslt))))
 
-#|
-(setf d (delta 3))
-(setf m (build-smmr
-	 :sorc d :trgt d :degr 0
-	 :sintr #'(lambda (dmns gmsm)
-		    (absm 0 gmsm))
-	 :orgn '(identity delta-3)))
-(setf m2 (build-smmr
-	  :sorc d :trgt d :degr 0
-	  :sintr #'(lambda (dmns gmsm)
-		     (absm (mask dmns) 1))
-	  :orgn '(null delta-3)))
-(? m2 2 7)
-;;  (s? m2 2 7)
-|#
 
 #|  ????
 (DEFUN IA-SINTR3 (sintr dmns iabsm)