Ignore the unused variable to suppress compiler warning.

This commit is contained in:
gheber 2016-02-27 15:44:14 -06:00
parent d3716a7f57
commit d5ae598baa

View File

@ -134,8 +134,9 @@
" (change-chcm-to-algb \n", " (change-chcm-to-algb \n",
" chcm\n", " chcm\n",
" :intr-aprd #'(lambda (degr tnpr)\n", " :intr-aprd #'(lambda (degr tnpr)\n",
" (declare (ignore degr))\n",
" (with-tnpr (degr1 gnrt1 degr2 gnrt2) tnpr\n", " (with-tnpr (degr1 gnrt1 degr2 gnrt2) tnpr\n",
" (if (zerop degr1) \n", " (if (zerop degr1)\n",
" (cmbn degr2 1 gnrt2)\n", " (cmbn degr2 1 gnrt2)\n",
" (if (zerop degr2)\n", " (if (zerop degr2)\n",
" (cmbn degr1 1 gnrt1)\n", " (cmbn degr1 1 gnrt1)\n",