From 30ff3bc32a5459198db2ae6a7de4e5bb620c8781 Mon Sep 17 00:00:00 2001
From: gheber <gheber@hdfgroup.org>
Date: Sat, 23 Apr 2016 17:16:42 -0500
Subject: [PATCH] Fixed issue #123 in Chapter 11.

---
 examples/11_Simplicial_Groups.ipynb | 40 ++++++++++++-----------------
 1 file changed, 16 insertions(+), 24 deletions(-)

diff --git a/examples/11_Simplicial_Groups.ipynb b/examples/11_Simplicial_Groups.ipynb
index bbcaa7f..936c689 100644
--- a/examples/11_Simplicial_Groups.ipynb
+++ b/examples/11_Simplicial_Groups.ipynb
@@ -1103,14 +1103,6 @@
     "collapsed": false
    },
    "outputs": [
-    {
-     "name": "stderr",
-     "output_type": "stream",
-     "text": [
-      "SIMPLE-STYLE-WARNING: \n",
-      "  #<SB-INT:SIMPLE-STYLE-WARNING \"The variable ~S is defined but never used.\" {10067FD4A3}>\n"
-     ]
-    },
     {
      "data": {
       "text/plain": [
@@ -1124,20 +1116,20 @@
    ],
    "source": [
     "(def assoc1 (build-mrph\n",
-    "               :sorc 3-left\n",
-    "               :trgt 3-right\n",
-    "               :degr 0\n",
-    "               :intr #'(lambda (degr a2-a)\n",
-    "                               (declare (ignore degr))\n",
-    "                         (with-tnpr (degra2 gnrta2 degra gnrta) a2-a\n",
-    "                            (with-tnpr (degr1 gnrt1 degr2 gnrt2) gnrta2\n",
-    "                               (cmbn (+ degr1 degr2 degra) \n",
-    "                                     1 (tnpr degr1 \n",
-    "                                             gnrt1 \n",
-    "                                             (+ degr2 degra) \n",
-    "                                             (tnpr degr2 gnrt2 degra gnrta))))))\n",
-    "               :strt :gnrt\n",
-    "               :orgn '(assoc-double-tensor-product)))"
+    "             :sorc 3-left\n",
+    "             :trgt 3-right\n",
+    "             :degr 0\n",
+    "             :intr #'(lambda (degr a2-a)\n",
+    "                             (declare (ignore degr))\n",
+    "                             (with-tnpr (degra2 gnrta2 degra gnrta) a2-a\n",
+    "                                 (declare (ignore degra2))\n",
+    "                                 (with-tnpr (degr1 gnrt1 degr2 gnrt2) gnrta2\n",
+    "                                     (cmbn (+ degr1 degr2 degra) \n",
+    "                                           1 (tnpr degr1 gnrt1 \n",
+    "                                                   (+ degr2 degra) \n",
+    "                                                   (tnpr degr2 gnrt2 degra gnrta))))))\n",
+    "             :strt :gnrt\n",
+    "             :orgn '(assoc-double-tensor-product)))"
    ]
   },
   {
@@ -1508,7 +1500,7 @@
     {
      "data": {
       "text/plain": [
-       "#<CLOSURE (LAMBDA (DEGR ABAR) :IN BAR-INTR-VRTC-DFFR) {1006FEDBBB}>"
+       "#<CLOSURE (LAMBDA (DEGR ABAR) :IN BAR-INTR-VRTC-DFFR) {1006FD5A6B}>"
       ]
      },
      "execution_count": 52,
@@ -1609,7 +1601,7 @@
     {
      "data": {
       "text/plain": [
-       "#<CLOSURE (LAMBDA (DEGR ABAR) :IN BAR-INTR-HRZN-DFFR) {10071670DB}>"
+       "#<CLOSURE (LAMBDA (DEGR ABAR) :IN BAR-INTR-HRZN-DFFR) {100714F0DB}>"
       ]
      },
      "execution_count": 56,