From a20347e85c06016e678fbeacaf6d8eefd7dea20b Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Thu, 25 Mar 2004 09:00:04 +0000
Subject: [PATCH] Do not redefine ENSURE-CLASS unless cross-porting ECL

---
 src/clos/defclass.lsp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/clos/defclass.lsp b/src/clos/defclass.lsp
index 7e15f23c2..59beb1e33 100644
--- a/src/clos/defclass.lsp
+++ b/src/clos/defclass.lsp
@@ -109,6 +109,7 @@
     (when name (setf (find-class name) new-class))
     new-class))
 
+#+cross
 (eval-when (compile)
   (defun ensure-class (name &rest initargs)
     (warn "Ignoring definition for class ~S" name)))