From 3a7e20e0e7c2ffb153c75e1af635190877d9dee7 Mon Sep 17 00:00:00 2001
From: gheber <gheber@hdfgroup.org>
Date: Wed, 16 Mar 2016 19:10:01 -0500
Subject: [PATCH] Fixed list length error.

---
 examples/Chapter15.ipynb | 66 +++++++---------------------------------
 1 file changed, 11 insertions(+), 55 deletions(-)

diff --git a/examples/Chapter15.ipynb b/examples/Chapter15.ipynb
index 71b499b..15d49a5 100644
--- a/examples/Chapter15.ipynb
+++ b/examples/Chapter15.ipynb
@@ -153,7 +153,7 @@
      "output_type": "stream",
      "text": [
       "SIMPLE-STYLE-WARNING: \n",
-      "  #<SB-INT:SIMPLE-STYLE-WARNING \"undefined ~(~A~): ~S\" {1005353B63}>\n"
+      "  #<SB-INT:SIMPLE-STYLE-WARNING \"undefined ~(~A~): ~S\" {1005354EC3}>\n"
      ]
     },
     {
@@ -502,10 +502,7 @@
      "output_type": "stream",
      "text": [
       "SIMPLE-STYLE-WARNING: \n",
-      "  #<SB-INT:SIMPLE-STYLE-WARNING \"The variable ~S is defined but never used.\" {1005C2D303}>\n",
-      "\n",
-      "SIMPLE-STYLE-WARNING: \n",
-      "  #<SB-INT:SIMPLE-STYLE-WARNING \"undefined ~(~A~): ~S\" {1005C5C533}>\n"
+      "  #<SB-INT:SIMPLE-STYLE-WARNING \"undefined ~(~A~): ~S\" {1005C5E003}>\n"
      ]
     },
     {
@@ -526,7 +523,7 @@
     "                  :sorc space \n",
     "                  :trgt (loop-space space) \n",
     "                  :degr -1\n",
-    "                  :sintr #'(lambda (dmns gmsm)\n",
+    "                  :sintr #'(lambda (dmns gmsm) (declare (ignore dmns))\n",
     "                               (absm 0 (loop3 0 gmsm 1)))\n",
     "                  :orgn `(total-fibration ,space))))"
    ]
@@ -1413,10 +1410,10 @@
      "output_type": "stream",
      "text": [
       "SIMPLE-STYLE-WARNING: \n",
-      "  #<SB-INT:SIMPLE-STYLE-WARNING \"The variable ~S is defined but never used.\" {10070CDB13}>\n",
+      "  #<SB-INT:SIMPLE-STYLE-WARNING \"The variable ~S is defined but never used.\" {10070CDE53}>\n",
       "\n",
       "SIMPLE-STYLE-WARNING: \n",
-      "  #<SB-INT:SIMPLE-STYLE-WARNING \"The variable ~S is defined but never used.\" {10070CE1E3}>\n"
+      "  #<SB-INT:SIMPLE-STYLE-WARNING \"The variable ~S is defined but never used.\" {10070CE523}>\n"
      ]
     },
     {
@@ -1797,10 +1794,7 @@
      "output_type": "stream",
      "text": [
       "SIMPLE-STYLE-WARNING: \n",
-      "  #<SB-INT:SIMPLE-STYLE-WARNING \"The variable ~S is defined but never used.\" {10074A1213}>\n",
-      "\n",
-      "SIMPLE-STYLE-WARNING: \n",
-      "  #<SB-INT:SIMPLE-STYLE-WARNING \"The variable ~S is defined but never used.\" {10074A18E3}>\n"
+      "  #<SB-INT:SIMPLE-STYLE-WARNING \"The variable ~S is defined but never used.\" {10074B1333}>\n"
      ]
     },
     {
@@ -1819,7 +1813,7 @@
     "               :sorc 3-left\n",
     "               :trgt 3-right\n",
     "               :degr 0\n",
-    "               :intr #'(lambda (degr a2-a) \n",
+    "               :intr #'(lambda (degr a2-a) (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",
@@ -3869,14 +3863,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.\" {10052B6D53}>\n"
-     ]
-    },
     {
      "data": {
       "text/plain": [
@@ -3893,7 +3879,7 @@
     "            :sorc tw \n",
     "            :trgt (z-chcm) \n",
     "            :degr 0\n",
-    "            :intr #'(lambda (degr gnrt)\n",
+    "            :intr #'(lambda (degr gnrt) (declare (ignore gnrt))\n",
     "                       (if (zerop degr)\n",
     "                           (term-cmbn 0 1 :z-gnrt)\n",
     "                           (zero-cmbn degr)))\n",
@@ -3908,14 +3894,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.\" {10053C9373}>\n"
-     ]
-    },
     {
      "data": {
       "text/plain": [
@@ -3932,7 +3910,7 @@
     "              :sorc (z-chcm) \n",
     "              :trgt tw \n",
     "              :degr 0\n",
-    "              :intr #'(lambda (degr gnrt)\n",
+    "              :intr #'(lambda (degr gnrt) (declare (ignore gnrt))\n",
     "                         (if (zerop degr)\n",
     "                             (term-cmbn 0 1 (tnpr 0 1 0 +null-loop+))\n",
     "                             (zero-cmbn degr)))\n",
@@ -4358,32 +4336,10 @@
     "collapsed": false
    },
    "outputs": [
-    {
-     "name": "stderr",
-     "output_type": "stream",
-     "text": [
-      "TYPE-ERROR: \n",
-      "  #<TYPE-ERROR expected-type: SEQUENCE datum: \n",
-      "----------------------------------------------------------------------{CMBN 5}\n",
-      "<1 * <TnPr 0 (DELT . 2) 5 <<Loop[4-3-2-1-0 (DELT . 6)][3-2-1-0 (DELT . 14)][4-2-1-0 (DELT ..)][4-3-1-0 (DELT ..)][4-3-2 (DELT ..)]>>>>\n",
-      "<1 * <TnPr 0 (DELT . 2) 5 <<Loop[4-3-2-1-0 (DELT . 6)][3-2-1-0 (DELT . 14)][4-2-1-0 (DELT ..)][4-3-1-0 (DELT ..)][4-3-2 (DELT ..)\\2]>>>>\n",
-      "<1 * <TnPr 0 (DELT . 2) 5 <<Loop[4-3-2-1-0 (DELT . 6)][3-2-1-0 (DELT . 14)][4-2-1-0 (DELT ..)][4-3-1-0 (DELT ..)][4-3-2 (DELT ..)\\3]>>>>\n",
-      "<-1 * <TnPr 0 (DELT . 2) 5 <<Loop[4-3-2-1-0 (DELT . 6)][3-2-1-0 (DELT . 14)][4-2-1-0 (DELT ..)][4-3-1-0 (DELT ..)][4-3-2-0 (DELT ..)][4-3-2-1 (DELT ..)]>>>>\n",
-      "<-1 * <TnPr 0 (DELT . 2) 5 <<Loop[4-3-2-1-0 (DELT . 6)][3-2-1-0 (DELT . 14)][4-2-1-0 (DELT ..)][4-3-1-0 (DELT ..)][4-3-2-0 (DELT ..)][4-3-2-1 (DELT ..)\\2]>>>>\n",
-      "<-1 * <TnPr 0 (DELT . 2) 5 <<Loop[4-3-2-1-0 (DELT . 6)][3-2-1-0 (DELT . 14)][4-2-1-0 (DELT ..)][4-3-1-0 (DELT ..)][4-3-2 (DELT ..)]>>>>\n",
-      "<-1 * <TnPr 0 (DELT . 2) 5 <<Loop[4-3-2-1-0 (DELT . 6)][3-2-1-0 (DELT . 14)][4-2-1-0 (DELT ..)][4-3-1-0 (DELT ..)][4-3-2 (DELT ..)\\2]>>>>\n",
-      "<1 * <TnPr 0 (DELT . 2) 5 <<Loop[4-3-2-1-0 (DELT . 6)][3-2-1-0 (DELT . 14)][4-2-1-0 (DELT ..)][4-3-2-0 (DELT ..)][4-3-0 (DELT ..)][4-3-2-1 (DELT ..)]>>>>\n",
-      "<1 * <TnPr 0 (DELT . 2) 5 <<Loop[4-3-2-1-0 (DELT . 6)][3-2-1-0 (DELT . 14)][4-2-1-0 (DELT ..)][4-3-2-0 (DELT ..)][4-3-0 (DELT ..)][4-3-2-1 (DELT ..)\\2]>>>>\n",
-      "<-1 * <TnPr 0 (DELT . 2) 5 <<Loop[4-3-2-1-0 (DELT . 6)][3-2-1-0 (DELT . 14)][4-2-1-0 (DELT ..)][4-3-2-0 (DELT ..)][4-3-1 (DELT ..)]>>>>\n",
-      "... ...\n",
-      "------------------------------------------------------------------------------\n",
-      ">\n"
-     ]
-    },
     {
      "data": {
       "text/plain": [
-       "NIL"
+       "535"
       ]
      },
      "execution_count": 151,
@@ -4392,7 +4348,7 @@
     }
    ],
    "source": [
-    "(length *)"
+    "(length (cmbn-list *))"
    ]
   },
   {