From d8382c9b8e5796af585f6eaca157fdeb47b8eb39 Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Mon, 7 Aug 2000 13:50:21 +0000
Subject: [PATCH] Disable new code in inform-type-system-about-std-class which
 seems to trigger trouble when native compiling defcombin.lisp

---
 pcl/defs.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/pcl/defs.lisp b/pcl/defs.lisp
index 565a0cd88..8d510a430 100644
--- a/pcl/defs.lisp
+++ b/pcl/defs.lisp
@@ -191,7 +191,8 @@
   ;; exists so as to avoid undefined-function compiler warnings. The
   ;; skeleton class will be replaced at load-time with the correct object.
   ;; Earlier revisions (<= 1.17) of this function were essentially NOOPs.
-
+  (declare (ignorable name))
+  #+nil ;; This is causing problems with native compile of defcombin.lisp
   (when (and (eq *boot-state* 'complete)
 	     (null (lisp:find-class name nil)))
     (setf (lisp:find-class name)
-- 
GitLab