NULL is a permissible value for INTR.

2015-07-15 17:45:00 -05:00 · 2015-07-15 17:45:00 -05:00 · 78e460ec9a
commit 78e460ec9a
parent d46e4d3046
1 changed files with 1 additions and 1 deletions
--- a/src/chain-complexes.lisp
+++ b/src/chain-complexes.lisp
@ -215,7 +215,7 @@ instances via the standard constructor MAKE-INSTANCE."
  (declare
   (type chain-complex sorc trgt)
   (fixnum degr)
-   (type intr-mrph intr)
+   (type (or intr-mrph null) intr)
   (type strt strt)
   (list orgn))
  "Returns an instance of MORPHISM. Use this function instead of creating