ECL has the same issue that was resolved in 463522d for CCL and SBCL.
This commit is contained in:
parent
b15b0b1e75
commit
277eb3f980
@ -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
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user