From 463522dc4c36d8d360dac21e6fd61a579e14f9b3 Mon Sep 17 00:00:00 2001
From: Gerd Heber <gheber@hdfgroup.org>
Date: Wed, 15 Jul 2015 18:19:24 -0500
Subject: [PATCH] CCL and SBCL are also affected by the alleged LispWorks bug.

---
 src/simplicial-sets.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/simplicial-sets.lisp b/src/simplicial-sets.lisp
index 675f859..36bae9f 100644
--- a/src/simplicial-sets.lisp
+++ b/src/simplicial-sets.lisp
@@ -373,7 +373,8 @@
        (with-absm (dgop gmsm) absm
 		  (multiple-value-bind (dgop2 1dlop) (1dlop-dgop indx dgop)
 		    (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
 		    (unless 1dlop
 		      (return-from a-face4 (absm dgop2 gmsm)))