Changeset 13647 for trunk/source/level-1


Ignore:
Timestamp:
Apr 19, 2010, 7:47:31 PM (9 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.

Location:
trunk/source/level-1
Files:
3 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)
  • trunk/source/level-1/l1-io.lisp

    r13067 r13647  
    15591559      (if name
    15601560        (prin1 name stream)
    1561         (let* ((fnaddr (%address-of lfun))
    1562                (kernel-function-p (kernel-function-p lfun)))
    1563           (%write-string (if kernel-function-p
    1564                            "Internal " "Anonymous ")
    1565                          stream)
     1561        (let* ((fnaddr (%address-of lfun)))
     1562          (%write-string "Anonymous " stream)
    15661563          (if (standard-generic-function-p lfun)
    15671564            (prin1 (class-name (class-of lfun)) stream)
  • trunk/source/level-1/l1-utils.lisp

    r13635 r13647  
    750750(%fhave 'fdefinition #'symbol-function)
    751751
    752 
    753 (defun kernel-function-p (f)
    754   (declare (ignore f))
    755   nil)
    756 
    757752(defun %make-function (name fn env)
    758753  (compile-user-function fn name env))
Note: See TracChangeset for help on using the changeset viewer.