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