ECL has the same issue that was resolved in 463522d for CCL and SBCL.

This commit is contained in:
Gerd Heber 2015-07-17 06:11:24 -05:00
parent b15b0b1e75
commit 277eb3f980

View File

@ -373,7 +373,7 @@
(with-absm (dgop gmsm) absm (with-absm (dgop gmsm) absm
(multiple-value-bind (dgop2 1dlop) (1dlop-dgop indx dgop) (multiple-value-bind (dgop2 1dlop) (1dlop-dgop indx dgop)
(declare (fixnum dgop2) (declare (fixnum dgop2)
#-(or ccl lispworks sbcl) #-(or ccl ecl lispworks sbcl)
(type (or fixnum nil) 1dlop)) (type (or fixnum nil) 1dlop))
;; Bug LispWorks if this or-type defined ;; Bug LispWorks if this or-type defined
(unless 1dlop (unless 1dlop