mmarco/kenzo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Ignore the unused variable to suppress compiler warning.

Browse Source
This commit is contained in:
gheber 2016-02-27 15:44:14 -06:00
parent d3716a7f57
commit d5ae598baa
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
examples/Chapter6.ipynb
View File

@ -134,12 +134,13 @@
" (change-chcm-to-algb \n",
" chcm\n",
" :intr-aprd #'(lambda (degr tnpr)\n",
" (with-tnpr (degr1 gnrt1 degr2 gnrt2) tnpr\n",
" (if (zerop degr1) \n",
" (cmbn degr2 1 gnrt2)\n",
" (if (zerop degr2)\n",
" (cmbn degr1 1 gnrt1)\n",
" (zero-cmbn (+ degr1 degr2))))))\n",
" (declare (ignore degr))\n",
" (with-tnpr (degr1 gnrt1 degr2 gnrt2) tnpr\n",
" (if (zerop degr1)\n",
" (cmbn degr2 1 gnrt2)\n",
" (if (zerop degr2)\n",
" (cmbn degr1 1 gnrt1)\n",
" (zero-cmbn (+ degr1 degr2))))))\n",
" :aprd-strt :gnrt\n",
" :orgn `(trivial-algebra ,chcm)))"
]