/dports/lang/eisl/eisl-2.35/verify/ |
H A D | object.lsp | 2587 ($argc subclassp 2 0 0) 2588 ($type subclassp ($class) :target (class <object>)) 2589 ($type subclassp ($class) (class <object>) :target) 3123 ($test (subclassp (class <cons>) (class <list>)) t) 3163 ($test (subclassp (class <null>) (class <list>)) t) 4208 ($test (subclassp (class c55555) (class c11111)) t) 4209 ($test (subclassp (class c55555) (class c22222)) t) 4217 ($test (subclassp (class c66666) (class c11111)) t) 4218 ($test (subclassp (class c66666) (class c22222)) t) 4219 ($test (subclassp (class c66666) (class c33333)) t) [all …]
|
/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/src/ |
H A D | clos-class5.lisp | 57 (when (subclassp class specializer) 149 (when (subclassp class2 specializer1) 193 (subclassp class specializer1) 201 (subclassp class specializer)))) 233 (subclassp class specializer1) 241 (subclassp class specializer)))) 263 (subclassp class specializer1) 279 (subclassp class specializer1) 311 (subclassp new-class specializer1) 321 (subclassp old-class specializer1) [all …]
|
H A D | clos-class3.lisp | 16 (defun subclassp (class1 class2) function 449 (subclassp metaclass <defined-class>)) 596 (subclassp class <metaobject>)) 2083 (subclassp class <metaobject>)) 2697 (cond ((subclassp class1 class2) class1) 2698 ((subclassp class2 class1) class2) 2699 ((or (and (subclassp <sequence> class1) (subclassp <array> class2)) 2700 (and (subclassp <sequence> class2) (subclassp <array> class1))) 2702 ((or (and (subclassp <list> class1) (subclassp <symbol> class2)) 2703 (and (subclassp <list> class2) (subclassp <symbol> class1))) [all …]
|
H A D | clos-genfun2a.lisp | 194 (unless (subclassp arg-class specializer) 254 … (unless (subclassp (second arg-spec) specializer) 269 … (unless (subclassp (second arg-spec) specializer)
|
H A D | clos-slotdef1.lisp | 435 … (subclassp slot-definition-class <standard-direct-slot-definition>))) 441 … (subclassp slot-definition-class <structure-direct-slot-definition>))
|
H A D | clos-genfun2b.lisp | 369 (and (subclassp test-class x) 701 (unless (subclassp method-class <method>)
|
H A D | clos-class6.lisp | 515 (subclassp (class-of class) (class-of superclass)))))
|
H A D | clos-genfun3.lisp | 109 (unless (subclassp generic-function-class <generic-function>)
|
/dports/lang/abcl/abcl-src-1.8.0/src/org/armedbear/lisp/ |
H A D | LispClass.java | 288 public boolean subclassp(LispObject obj) in subclassp() method in LispClass 290 return subclassp(this, obj); in subclassp() 293 public static boolean subclassp(LispObject cls, LispObject obj) in subclassp() method in LispClass 363 return LispClass.subclassp(first, second) ? T : NIL;
|
H A D | subtypep.lisp | 510 (return-from %subtypep (values (subclassp class1 class2) t)))
|
H A D | Java.java | 57 return lc.subclassp(java_exception); in isJavaException()
|
/dports/misc/rump/buildrump.sh-b914579/src/sys/dev/pci/ |
H A D | pci_subr.c | 601 while (subclassp && subclassp->name != NULL) { in pci_devinfo() 602 if (subclass == subclassp->val) in pci_devinfo() 604 subclassp++; in pci_devinfo() 607 interfacep = (subclassp && subclassp->name != NULL) ? in pci_devinfo() 608 subclassp->subclasses : NULL; in pci_devinfo() 622 if (subclassp == NULL || subclassp->name == NULL) in pci_devinfo() 628 subclassp->name, classp->name); in pci_devinfo() 774 while (subclassp && subclassp->name != NULL) { in pci_conf_print_common() 775 if (PCI_SUBCLASS(rval) == subclassp->val) in pci_conf_print_common() 777 subclassp++; in pci_conf_print_common() [all …]
|
/dports/lang/eisl/eisl-2.35/ |
H A D | function.c | 3576 && subclassp(GET_AUX(arg1), cgeneral_array_star)) in f_general_array_star_p() 4837 else if (subclassp(csymbol, arg2)) in f_instancep() 4844 if (subclassp(GET_AUX(arg1), arg2)) in f_instancep() 4853 else if (subclassp(GET_AUX(arg1), arg2)) in f_instancep() 4877 if (subclassp(arg1, arg2)) in f_subclassp() 5082 if (!subclassp(GET_AUX(arg1), cerror) && GET_AUX(arg1) != cerror) in f_simple_error_format_string() 5098 if (!subclassp(GET_AUX(arg1), cerror) && GET_AUX(arg1) != cerror) in f_simple_error_format_arguments() 5113 if (!subclassp(GET_AUX(arg1), cerror) && GET_AUX(arg1) != cerror) in f_arithmetic_error_operation() 5128 if (!subclassp(GET_AUX(arg1), cerror) && GET_AUX(arg1) != cerror) in f_arithmetic_error_operands() 5142 if (!subclassp(GET_AUX(arg1), cerror) && GET_AUX(arg1) != cerror) in f_domain_error_object() [all …]
|
H A D | data.c | 353 subclassp(int x, int y) in subclassp() function 410 else if (y != cobject && y != cstandard_class && subclassp(x, y)) in has_common_p1() 412 else if (x != cobject && x != cstandard_class && subclassp(y, x)) in has_common_p1() 1591 if (subclassp(classy, classx)) in high_priority_p() 1614 if (subclassp(classx, classy)) in high_priority_p()
|
H A D | cell.c | 1419 else if (subclassp(cfixnum, GET_AUX(y))) in a_adaptp() 1429 else if (subclassp(GET_AUX(x), GET_AUX(y))) in a_adaptp() 1444 else if (GET_OPT(y) == SYSTEM && subclassp(cfixnum, GET_AUX(y))) in a_matchp() 1455 else if (GET_OPT(y) == SYSTEM && subclassp(GET_AUX(x), GET_AUX(y))) in a_matchp()
|
H A D | extension.c | 763 else if (subclassp(GET_AUX(cadar(next)), GET_AUX(cadar(entry)))) // subclass in superp()
|
H A D | main.c | 1845 else if (subclassp(GET_AUX(car(arglist)), GET_AUX(cadar(varlist)))) // subclass in adaptp() 1874 && subclassp(GET_AUX(car(arglist)), GET_AUX(cadar(varlist)))) in matchp()
|
H A D | syntax.c | 1522 if (subclassp(GET_AUX(arg1), cobject)) in f_defclass() 2219 else if (subclassp(GET_AUX(arg2), GET_AUX(arg1))) in f_assure()
|
H A D | eisl.h | 1144 int subclassp(int x, int y);
|
/dports/databases/pgloader3/closer-mop-20210124-git/ |
H A D | closer-mop-shared.lisp | 15 (defun subclassp (class superclass) function 210 else if (not (subclassp class specializer)) return nil 330 (subclassp specializer (find-class 'standard-generic-function)) 481 (and (subclassp this-generic-function standard-generic-function)
|
H A D | closer-lispworks.lisp | 54 (subclassp (class-of class) specializer))))
|
H A D | README.md | 62 * Added a utility function subclassp that is sometimes more robust than subtypep (but subtypep shou…
|
/dports/lang/eisl/eisl-2.35/library/ |
H A D | functions-data.lsp | 202 ((subclassp class1 class2) boolean "Test for a subclass relation")
|
H A D | functions-dataj.lsp | 201 ((subclassp class1 class2) boolean "サブクラスであるかをチェックする")
|
/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/tests/ |
H A D | clos.tst | 452 (defun subclassp (class1 class2) 453 (clos::subclassp class1 class2) 456 (defun subclassp (class1 class2) 461 (defun subclassp (class1 class2) 466 (defun subclassp (class1 class2) 471 (defun subclassp (class1 class2) 476 (subclassp (find-class 'number) (find-class 't)) 479 (subclassp (find-class 'integer) (find-class 'number)) 482 (subclassp (find-class 'float) (find-class 'number)) 4257 '(<C1> <C2> foo a b c f g *hl* hgen h testgf00 foo136 subclassp
|