;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (require 'rng-util) (defvar rng-dt-error-reporter nil) #@26 (fn STRING &rest OBJS) (defalias 'rng-dt-error #[385 "\205\n\301B\"\207" [rng-dt-error-reporter apply] 6 (#$ . 139)]) #@410 A list used by datatype libraries to expand names. The car of the list is a symbol which is the name of a function. This function is applied to the cdr of the list. The function must return a list whose car is the default namespace and whose cdr is an alist of (PREFIX . NAMESPACE) pairs, where PREFIX is a string and NAMESPACE is a symbol. This must be dynamically bound before calling a datatype library. (defvar rng-dt-namespace-context-getter nil (#$ . 271)) #@15 (fn DT STR) (defalias 'rng-dt-make-value #[514 "\300@AB\"\207" [apply] 6 (#$ . 742)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put rng-dt-make-value speed -1 put byte-optimizer byte-compile-inline-expand] 5) #@20 (fn NAME PARAMS) (defalias 'rng-dt-builtin-compile #[514 "\300\267\202\211\204\f\301\207\302\303!\207\211\204\304\207\302\305!\207\302\306\"\207" [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (string 6 token 16)) (t identity) rng-dt-error "The string datatype does not take any parameters" (t rng-collapse-space) "The token datatype does not take any parameters" "There is no built-in datatype %s"] 5 (#$ . 982)]) (byte-code "\300\301\302!\303\304#\210\305\306!\207" [put rng-make-datatypes-uri "" rng-dt-compile rng-dt-builtin-compile provide rng-dt] 4)