Ignore:
Timestamp:
12/19/03 17:42:47 (18 years ago)
Author:
piso
Message:

SUB-SPECIALIZER-P

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/clos.lisp

    r5195 r5197  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: clos.lisp,v 1.41 2003-12-19 17:13:31 piso Exp $
     4;;; $Id: clos.lisp,v 1.42 2003-12-19 17:42:47 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    11351135  (values))
    11361136
    1137 ;;; subclassp and sub-specializer-p
    1138 
    11391137(defun subclassp (c1 c2)
    11401138  (not (null (find c2 (class-precedence-list c1)))))
    1141 
    1142 (defun sub-specializer-p (c1 c2 c-arg)
    1143   (let ((cpl (class-precedence-list c-arg)))
    1144     (not (null (find c2 (cdr (member c1 cpl)))))))
    11451139
    11461140;;;
     
    11781172        (error "no applicable methods for generic function ~S with arguments ~S of classes ~S" gf args classes))))
    11791173
    1180 ;;; compute-applicable-methods-using-classes
    1181 
    11821174(defun compute-applicable-methods-using-classes (gf required-classes)
    11831175  (sort
     
    11941186          (method-more-specific-p gf m1 m2 required-classes)))))
    11951187
    1196 ;;; method-more-specific-p
     1188(defun sub-specializer-p (c1 c2 c-arg)
     1189  (find c2 (cdr (memq c1 (class-precedence-list c-arg))))))
    11971190
    11981191(defun std-method-more-specific-p (method1 method2 required-classes)
Note: See TracChangeset for help on using the changeset viewer.