xobj_class_exists   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/core/xobject.xtm

Implementation

(bind-func xobj_class_exists:[i1,i8*]*
  (lambda (class)
    (let ((db:xlist_t--8487158256724425667* (xobj_database))
          (clazz:xlist_t--3163971124910877296* (xdict_find db class)))
      (if (not (null? clazz))
          1
          0))))


Back to Index

Similar Entries