Type declaration should include NULL.

2015-07-15 18:20:39 -05:00 · 2015-07-15 18:20:39 -05:00 · f836b37aff
commit f836b37aff
parent 463522dc4c
1 changed files with 1 additions and 1 deletions
--- a/src/ls-twisted-products.lisp
+++ b/src/ls-twisted-products.lisp
@ -372,7 +372,7 @@
     (multiple-value-bind (expn y-n+1 gp-n) (pop-first-absm n g-n)
        (declare
           (fixnum expn)
-           (type absm y-n+1 gp-n))
+           (type (or absm null) y-n+1 gp-n))
        (ecase expn
           (0 (zero-cmbn (1+ n)))
           (+1