Ignore:
Timestamp:
Apr 19, 2010, 7:47:31 PM (10 years ago)
Author:
rme
Message:

Delete KERNEL-FUNCTION-P (it returns NIL always) and update its callers.
Delete unused functions REDEFINE-KERNEL-METHOD and %ADD-METHODS.

I will probably end up paying for this bit of cleanup.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-clos-boot.lisp

    r13351 r13647  
    902902
    903903(defstatic *standard-kernel-method-class* nil)
    904 
    905 (defun redefine-kernel-method (method)
    906   (when (and *warn-if-redefine-kernel*
    907              (or (let ((class *standard-kernel-method-class*))
    908                    (and class (typep method class)))
    909                  (and (standard-method-p method)
    910                       (kernel-function-p (%method-function method)))))
    911     (cerror "Replace the definition of ~S."
    912             "The method ~S is predefined in Clozure CL." method)))
    913 
    914 ;;; Called by the expansion of generic-labels.  Which doesn't exist.
    915 (defun %add-methods (gf &rest methods)
    916   (declare (dynamic-extent methods))
    917   (dolist (m methods)
    918     (add-method gf m)))
    919904
    920905(defun methods-congruent-p (m1 m2)
Note: See TracChangeset for help on using the changeset viewer.