From 23ea2f8fc127c60a7bb57edc11dc2640d7d6e64f Mon Sep 17 00:00:00 2001
From: Stelian Ionescu <sionescu@cddr.org>
Date: Sat, 15 May 2010 23:11:00 +0800
Subject: [PATCH] Make sure that CLOSE is a generic function on ECL

---
 src/base/gray-stream-mixin.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/base/gray-stream-mixin.lisp b/src/base/gray-stream-mixin.lisp
index 1f1e7e3..f835388 100644
--- a/src/base/gray-stream-mixin.lisp
+++ b/src/base/gray-stream-mixin.lisp
@@ -123,6 +123,8 @@
 
 #+ecl
 (progn
+  (when (fboundp 'gray::redefine-cl-functions)
+    (gray::redefine-cl-functions))
   (defmethod gray:stream-read-sequence
       ((s trivial-gray-stream-mixin) seq &optional start end)
     (stream-read-sequence s seq (or start 0) (or end (length seq))))
-- 
2.11.4.GIT