From f40740ee8e4ed3735dd113e299ce1833d45db729 Mon Sep 17 00:00:00 2001
From: Dima Pasechnik <dimpase@gmail.com>
Date: Sat, 13 Jun 2015 19:04:15 +0100
Subject: [PATCH] a fix to allow compilation on ECL

---
 src/effective-homology.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/effective-homology.lisp b/src/effective-homology.lisp
index 13454c0..fde20b9 100644
--- a/src/effective-homology.lisp
+++ b/src/effective-homology.lisp
@@ -79,6 +79,9 @@
 ;;;  HOMOTOPY-EQUIVALENCES
 ;;;
 
+;;(defgeneric build-hmeq (keyword lrdct &key &allow-other-keys)
+(DEFGENERIC BUILD-HMEQ (keyword lrdct &key)
+  (:documentation "needed by ECL"))
 
 (DEFMETHOD BUILD-HMEQ ((keyword1 (eql :lrdct)) lrdct &key rrdct orgn)
    (declare