Skip to content
Snippets Groups Projects
Commit 43e53289 authored by pmai's avatar pmai
Browse files

Patch by Gerd Moellmann to remove further unused code from defs.lisp.

parent af07a0d3
No related branches found
No related tags found
No related merge requests found
......@@ -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))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment