From 43e532892548b7ef547aa23ea73f3c0de8b67cd7 Mon Sep 17 00:00:00 2001
From: pmai <pmai>
Date: Mon, 9 Sep 2002 16:08:58 +0000
Subject: [PATCH] Patch by Gerd Moellmann to remove further unused code from
 defs.lisp.

---
 pcl/defs.lisp | 36 ------------------------------------
 1 file changed, 36 deletions(-)

diff --git a/pcl/defs.lisp b/pcl/defs.lisp
index 9f81139a0..b57e9d02a 100644
--- a/pcl/defs.lisp
+++ b/pcl/defs.lisp
@@ -197,14 +197,6 @@
     (setf (lisp:find-class name)
 	  (lisp::make-standard-class :name name))))
 
-(defun make-class-eq-predicate (class)
-  (when (symbolp class) (setq class (find-class class)))
-  (lambda (object) (eq class (class-of object))))
-
-(defun make-eql-predicate (eql-object)
-  (lambda (object) (eql eql-object object)))
-
-
 ;;; Internal to this file.
 ;;;
 ;;; These functions are a pale imitiation of their namesake.  They accept
@@ -300,40 +292,12 @@
 (pushnew 'class *variable-declarations*)
 (pushnew 'variable-rebinding *variable-declarations*)
 
-(defun variable-class (var env)
-  (caddr (variable-declaration 'class var env)))
-
 (defvar *name->class->slotd-table* (make-hash-table))
 
-
-;;;
-;;; This is used by combined methods to communicate the next methods to
-;;; the methods they call.  This variable is captured by a lexical variable
-;;; of the methods to give it the proper lexical scope.
-;;; 
-(defvar *next-methods* nil)
-
-(defvar *not-an-eql-specializer* '(not-an-eql-specializer))
-
-(defvar *umi-gfs*)
-(defvar *umi-complete-classes*)
-(defvar *umi-reorder*)
-
-(defvar *invalidate-discriminating-function-force-p* ())
-(defvar *invalid-dfuns-on-stack* ())
-
-
 (defvar *standard-method-combination*)
 
-(defvar *slotd-unsupplied* (list '*slotd-unsupplied*))	;***
 
 
-(defmacro define-gf-predicate (predicate-name &rest classes)
-  `(progn 
-     (defmethod ,predicate-name ((x t)) nil)
-     ,@(mapcar (lambda (c) `(defmethod ,predicate-name ((x ,c)) t))
-	       classes)))
-
 (defun make-class-predicate-name (name)
   (intern (format nil "~A::~A class predicate"
 		  (package-name (symbol-package name))
-- 
GitLab