Home
last modified time | relevance | path

Searched refs:subclassp (Results 1 – 25 of 31) sorted by relevance

12

/dports/lang/eisl/eisl-2.35/verify/
H A Dobject.lsp2587 ($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 Dclos-class5.lisp57 (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 Dclos-class3.lisp16 (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 Dclos-genfun2a.lisp194 (unless (subclassp arg-class specializer)
254 … (unless (subclassp (second arg-spec) specializer)
269 … (unless (subclassp (second arg-spec) specializer)
H A Dclos-slotdef1.lisp435 … (subclassp slot-definition-class <standard-direct-slot-definition>)))
441 … (subclassp slot-definition-class <structure-direct-slot-definition>))
H A Dclos-genfun2b.lisp369 (and (subclassp test-class x)
701 (unless (subclassp method-class <method>)
H A Dclos-class6.lisp515 (subclassp (class-of class) (class-of superclass)))))
H A Dclos-genfun3.lisp109 (unless (subclassp generic-function-class <generic-function>)
/dports/lang/abcl/abcl-src-1.8.0/src/org/armedbear/lisp/
H A DLispClass.java288 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 Dsubtypep.lisp510 (return-from %subtypep (values (subclassp class1 class2) t)))
H A DJava.java57 return lc.subclassp(java_exception); in isJavaException()
/dports/misc/rump/buildrump.sh-b914579/src/sys/dev/pci/
H A Dpci_subr.c601 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 Dfunction.c3576 && 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 Ddata.c353 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 Dcell.c1419 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 Dextension.c763 else if (subclassp(GET_AUX(cadar(next)), GET_AUX(cadar(entry)))) // subclass in superp()
H A Dmain.c1845 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 Dsyntax.c1522 if (subclassp(GET_AUX(arg1), cobject)) in f_defclass()
2219 else if (subclassp(GET_AUX(arg2), GET_AUX(arg1))) in f_assure()
H A Deisl.h1144 int subclassp(int x, int y);
/dports/databases/pgloader3/closer-mop-20210124-git/
H A Dcloser-mop-shared.lisp15 (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 Dcloser-lispworks.lisp54 (subclassp (class-of class) specializer))))
H A DREADME.md62 * Added a utility function subclassp that is sometimes more robust than subtypep (but subtypep shou…
/dports/lang/eisl/eisl-2.35/library/
H A Dfunctions-data.lsp202 ((subclassp class1 class2) boolean "Test for a subclass relation")
H A Dfunctions-dataj.lsp201 ((subclassp class1 class2) boolean "サブクラスであるかをチェックする")
/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/tests/
H A Dclos.tst452 (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

12