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-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)
Note: See TracChangeset for help on using the changeset viewer.