mmarco/kenzo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

CCL and SBCL are also affected by the alleged LispWorks bug.

Browse Source
This commit is contained in:
Gerd Heber 2015-07-15 18:19:24 -05:00
parent 78e460ec9a
commit 463522dc4c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/simplicial-sets.lisp
View File

@ -373,7 +373,8 @@
(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)
#-lispworks (type (or fixnum nil) 1dlop)) #-(or ccl lispworks sbcl)
(type (or fixnum nil) 1dlop))
;; Bug LispWorks if this or-type defined ;; Bug LispWorks if this or-type defined
(unless 1dlop (unless 1dlop
(return-from a-face4 (absm dgop2 gmsm))) (return-from a-face4 (absm dgop2 gmsm)))