;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304!\204\305\304\306\307#\210\310\311\312\313!\"\210\310\314\315\313!\"\210\310\316\314\"\210\317\316\320\321#\210\322\313\323\314#\324\313\307\325\326$\207" [require eieio emacsql-sqlite boundp eieio--unbound defvaralias eieio-unbound nil defalias closql-object-p eieio-make-class-predicate closql-object closql-object--eieio-childp eieio-make-child-predicate closql-object-child-p make-obsolete "use (cl-typep ... \\='closql-object) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal ((closql-class-prefix :initform nil :allocation :class) (closql-class-suffix :initform nil :allocation :class) (closql-table :initform nil :allocation :class) (closql-primary-key :initform nil :allocation :class) (closql-foreign-key :initform nil :allocation :class) (closql-order-by :initform nil :allocation :class) (closql-database :initform nil :initarg :closql-database)) (:abstract t)] 6) #@71 You cannot create a new object of type `closql-object'. (fn &rest _) (defalias 'closql-object #[128 "\300\301!\207" [error "Class closql-object is abstract"] 3 (#$ . 1042)]) #@12 (fn OBJ) (defalias 'closql--closql-object-p #[257 "\300K\301\302\"\216\300\303M\210\304!)\207" [eieio--full-class-object make-closure #[0 "\301\300M\207" [V0 eieio--full-class-object] 2] eieio--class-object closql-object--eieio-childp] 5 (#$ . 1223)]) #@20 (fn FN OBJ SLOT) (defalias 'eieio-oref--closql-oref #[771 "\300!\203 \301\"\207\"\207" [closql--closql-object-p closql-oref] 6 (#$ . 1485)]) (advice-add 'eieio-oref :around 'eieio-oref--closql-oref) #@17 (fn OBJ SLOT) (defalias 'closql--oref #[514 "\301\211\211\302H\262\203$\211\2119\203\211\303N\206\266\202\202&\211\266\203\202&\262\"H\207" [eieio-backward-compatibility eieio--slot-name-index 0 cl--class] 9 (#$ . 1699)]) #@17 (fn OBJ SLOT) (defalias 'closql-oref #[514 "\2119\204 \303\304\305\306E\"\210\307!\204!\310!\204!\303\304\311\312E\"\2109\203R\313\314\"\210\315\316!\2037\316!\202v\315\317!\205v\320N\321!>\203L\317!\210\211\262\202v\211\211\322H\262 \203t\211\2119\203n\211\320N\206o\266\202\202v\211\266\203\202v\262\323\"\211\204\224\324\"\211\262\203\216\325HH\207\326\327#\207\307!\204\243\303\304\330\312E\"\210H\331\"\332\"\333\334\"\203\362\335\336\337#\340\341\342\343\344\345 \346\"\206\323\347\"\"\345\n\350\"\345 \351\"\333\345\352\"\"\345 \352\"&\"I\207\203.\n=\203,\353\"\335G\354U\203\355\202\356\340\357 @\333\345\352\"\"\nA@&\"I\207\207\360  \327$\207" [cl-struct-eieio--class-tags eieio-backward-compatibility eieio--unbound signal wrong-type-argument symbol slot eieio-object-p class-p (or eieio-object class) obj error "eieio-oref called on a class: %s" fboundp eieio--full-class-object eieio-class-un-autoload cl--class type-of 0 eieio--slot-name-index eieio--class-slot-name-index 9 slot-missing oref eieio-object closql--slot-class closql--slot-table closql--oref closql-database mapcar make-closure #[257 "\302\300\301#\207" [V0 V1 closql--remake-instance] 5 "\n\n(fn ROW)"] emacsql vconcat [:select * :from $i1 :where (= $i2 $s3)] vector :order-by eieio-oref-default closql-order-by [(asc $i4)] closql-table closql-foreign-key closql-primary-key closql--table-columns 2 cadr cdr [:select * :from $i1 :where (= $i2 $s3) :order-by [(asc $i4)]] eieio-barf-if-slot-unbound] 23 (#$ . 1942)]) #@26 (fn FN OBJ SLOT VALUE) (defalias 'eieio-oset--closql-oset #[1028 "\300!\203\f\301#\207#\207" [closql--closql-object-p closql-oset] 8 (#$ . 3550)]) (advice-add 'eieio-oset :around 'eieio-oset--closql-oset) #@23 (fn OBJ SLOT VALUE) (defalias 'closql--oset #[771 "\301\211\211\302H\262\203$\211\2119\203\211\303N\206\266\202\202&\211\266\203\202&\262\"I\207" [eieio-backward-compatibility eieio--slot-name-index 0 cl--class] 10 (#$ . 3772)]) #@23 (fn OBJ SLOT VALUE) (defalias 'closql-oset #[771 "\302!\204\303\304\305\306E\"\2109\204\303\304\307\310E\"\210\211\211\311H\262\203=\211\2119\2037\211\312N\2068\266\202\202?\211\266\203\202?\262\313\"\211\204h\314\"\211\262\203`\315$\210\316HI\207\317\320$\207\321$\210\322=\204\217\323\322\"\211\203\216\211 =\204\216\324$\210\210I\207" [eieio-backward-compatibility eieio--unbound eieio-object-p signal wrong-type-argument eieio-object obj symbol slot 0 cl--class eieio--slot-name-index eieio--class-slot-name-index eieio--validate-class-slot-value 9 slot-missing oset eieio--validate-slot-value closql-database closql--oref closql--dset] 11 (#$ . 4023)]) #@26 (fn DB OBJ SLOT VALUE) (defalias 'closql--dset #[1028 "\302\303\"\304\"\305\"\306\"\203\307\310!\207\211\203;\311CT\311\312\313#\216\242\2049\3141,\315U\203A\316\317\"\210\320\f\"\321\f\f #\210\322\f\f\"\n\311\211G\323U\203l\324\325\"\262\324\325\"\262\326\327\330\331$\262\326\327\330\331$\262@\262@\262\204\214\211\205@@\203\304\203\236\231\203\304\332\316\333\334\335\nB\315\"\"\336\325 \fB#%\210A\262\266\202|\230\203\370\232\204\353\337\312\340\f&AAAA$\210A\262A\262\266\202|\316\341\333B!$\210A\262\266\202|\266\204\262\211\262\315U\203\"\316\342\"\210\343\240\2620\210\202-\210\316\344\"\210\345\346!\210\202-*\207\316\347\302\n\350\"  =\203Q\351\202S   &\207" [emacsql--transaction-level eieio--unbound eieio-oref-default closql-primary-key closql--oref closql--slot-class closql--slot-table error "Not implemented for closql-class slots: oset" nil make-closure #[0 "\n\303U\205\301\242?\205\304\300\305\"\207" [V0 V1 emacsql--transaction-level 1 emacsql [:rollback]] 3] (emacsql-locked) 1 emacsql [:begin] closql--table-columns closql--oset closql-oref 2 mapcar list cl-sort string< :key car apply vconcat [:delete-from $i1 :where] closql--where-equal cl-mapcan cl-mapcar #[771 "\232?\205\305\300\306\302\303@\301\303A@\304& \207" [V0 V1 V2 V3 V4 emacsql [:update $i1 :set (= $i2 $s3) :where (and (= $i4 $s5) (= $i6 $s7))]] 13 "\n\n(fn COL VAL1 VAL2)"] [:insert-into $i1 :values $v2] [:commit] t [:rollback] sleep-for 0.05 [:update $i1 :set (= $i2 $s3) :where (= $i4 $s5)] closql-table eieio-unbound] 29 (#$ . 4745)]) #@17 (fn OBJ SLOT) (defalias 'closql--slot-class #[514 "\300\301#\207" [closql--slot-get :closql-class] 6 (#$ . 6429)]) #@17 (fn OBJ SLOT) (defalias 'closql--slot-table #[514 "\300\301#\211\205\302\303\304\305\3069\203\202@!#!\207" [closql--slot-get :closql-table intern replace-regexp-in-string "-" "_" symbol-name] 9 (#$ . 6554)]) #@34 (fn OBJECT-OR-CLASS SLOT PROP) (defalias 'closql--slot-get #[771 "\303\304\305!\2031\211\211\306H\262\203,\211\2119\203&\211\307N\206'\266\202\202C\211\266\203\202C\262\202C\310! >\203>\202C\311\312\"!\313\314$@\211\205b\315\310!\n>\204]\316\317\320D\"\210\321H\"A\207" [eieio-backward-compatibility cl-struct-eieio--class-tags cl-struct-cl-slot-descriptor-tags cl-member eieio-class-slots eieio-object-p 0 cl--class type-of find-class error :key cl--slot-descriptor-name assoc signal wrong-type-argument cl-slot-descriptor 4] 11 (#$ . 6781)]) (defconst closql--slot-properties '(:closql-class :closql-table)) #@41 (fn CNAME SUPERCLASSES SLOTS OPTIONS) (defalias 'eieio-defclass-internal--set-closql-slot-props #[1028 "\302N\303\304\"\205y\211\205w\211@\211\242\243\305\306 \307H\310\"\311\312$@\211\203n\211@\313\"\211\203f\314! >\204C\315\316\317D\"\210\307H\236\203V\241\266\202g\307B\211\262\307HBI\266\210A\266\202\202%\266A\266\202\202 \262\207" [closql--slot-properties cl-struct-cl-slot-descriptor-tags cl--class child-of-class-p closql-object cl-member cl-coerce 4 list :key #[257 "\211\300H\207" [1] 3 "\n\n(fn ELT)"] plist-get type-of signal wrong-type-argument cl-slot-descriptor] 23 (#$ . 7426)]) (advice-add 'eieio-defclass-internal :after 'eieio-defclass-internal--set-closql-slot-props) #@18 (fn OLD NEW _) (defalias 'eieio--slot-override--set-closql-slot-props #[771 "\211\205q\211@\302\303! >\204\304\305\306D\"\210\307H\"\203j\303! >\2041\304\305\306D\"\210\307H\236\302\303! >\204J\304\305\306\nD\"\210\307H\"\203[\241\266\202j\307B\211\262\307HBI\266A\266\202\202\207" [closql--slot-properties cl-struct-cl-slot-descriptor-tags alist-get type-of signal wrong-type-argument cl-slot-descriptor 4] 13 (#$ . 8164)]) (byte-code "\300\301\302\303#\210\304\305\306\307!\"\210\304\310\311\307!\"\210\304\312\310\"\210\313\312\314\315#\210\316\307\317\310#\320\307\321\322\323$\207" [advice-add eieio--slot-override :after eieio--slot-override--set-closql-slot-props defalias closql-database-p eieio-make-class-predicate closql-database closql-database--eieio-childp eieio-make-child-predicate closql-database-child-p make-obsolete "use (cl-typep ... \\='closql-database) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (emacsql-sqlite-connection) ((object-class :allocation :class)) nil] 6) #@72 Create a new object of class type `closql-database'. (fn &rest SLOTS) (defalias 'closql-database #[128 "\300\301\302#\207" [apply make-instance closql-database] 5 (#$ . 9240)]) (byte-code "\300\301\302\303#\300\207" [function-put closql-database compiler-macro closql-database--anon-cmacro] 4) #@26 (fn WHOLE &rest SLOTS) (defalias 'closql-database--anon-cmacro #[385 "\211@;\204\207\300\301\302@@#@\303@DABB\"\207" [macroexp-warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 9542)]) (byte-code "\300\301\302\303\302\304%\210\305\306\307\306\310\302#\311#\210\300\306\302\310\302\312%\210\300\313\302\314\315\316%\210\300\317\302\320\302\321%\210\300\322\302\323\302\324%\210\300\325\302\326\302\327%\210\300\330\302\331\302\332%\210\300\333\302\334\302\335%\210\300\336\302\337\302\340%\210\300\341\302\342\302\343%\207" [cl-generic-define-method closql-db nil ((class (subclass closql-database)) &optional variable file debug) #[1025 "\205J\211\205\300!\205\211\301\302\"\210\262\206R\205\"\303!?\304\305#\306\307\310\"\311\"\210\2038\312!\210\301\301\313\"\"\210\203H\314!\210\203PL\210\262\207" [emacsql-live-p emacsql [:pragma (= foreign-keys on)] file-exists-p make-instance :file set-process-query-on-exit-flag eieio-oref process nil emacsql-enable-debugging [:pragma (= foreign-keys on)] closql--db-init] 11 "\n\n(fn CLASS &optional VARIABLE FILE DEBUG)"] defalias closql--db-init cl-generic-define (db) "\n\n(fn DB)" #[257 "\207" [] 2 "\n\n(fn DB)"] emacsql ((connection closql-database) sql &rest args) t #[899 "\300\301\302\300\303\"$\"\207" [mapcar closql--extern-unbound apply #[257 "\211;\203\300!\301\302G\303$\210\207\207" [copy-sequence set-text-properties 0 nil] 7 "\n\n(fn ARG)"]] 13 "\n\n(fn CONNECTION SQL &rest ARGS)"] closql-insert ((db closql-database) obj &optional replace) #[770 "\305\306#\210\307\310\211\211\311H\262\203*\211\2119\203$\211\312N\206%\266\202\202,\211\266\203\202,\262!\211\203i\211@\313! >\204B\314\315\316D\"\210\211\317H\262\320\"\211\203a\321\"BB\262\305\n#\210\210A\266\202\202-\210\307C T\307\322\323#\216\242\204\3241 \317U\203\214\325\326\"\210\325\203\230\327\202\231\330\331\n\332\"\333\334\f\335\"!\211\242\243\211\242\243\307\336\337\313!\f>\203\300\317H\202\301!B!\266\207\262$\210\211\205\351\211@\211\242\243\340$\266A\266\202\202\314\262\211\262 \317U\203\371\325\341\"\210\342\240\2620\210\202x\210\325\343\"\210\344\345!\210\202x*\266\207" [eieio-backward-compatibility cl-struct-cl-slot-descriptor-tags eieio--unbound emacsql--transaction-level cl-struct-eieio--class-tags closql--oset closql-database nil eieio-class-slots 0 cl--class type-of signal wrong-type-argument cl-slot-descriptor 1 closql--slot-table closql-oref make-closure #[0 "\n\303U\205\301\242?\205\304\300\305\"\207" [V0 V1 emacsql--transaction-level 1 emacsql [:rollback]] 3] (emacsql-locked) emacsql [:begin] [:insert-or-replace-into $i1 :values $v2] [:insert-into $i1 :values $v2] eieio-oref-default closql-table closql--intern-unbound closql--coerce list vconcat closql--abbrev-class closql--dset [:commit] t [:rollback] sleep-for 0.05] 24 "\n\n(fn DB OBJ &optional REPLACE)"] closql-delete ((obj closql-object)) #[257 "\300\301\"\302\303\304\"\305\300\306\"\303\"%\207" [eieio-oref-default closql-primary-key emacsql closql--oref closql-database [:delete-from $i1 :where (= $i2 $s3)] closql-table] 10 "\n\n(fn OBJ)"] closql-reload ((obj closql-object)) #[257 "\300\301\302\"\301\303\304\"\"\305!#\206\306\307!\207" [closql-get closql--oref closql-database eieio-oref-default closql-primary-key eieio-object-class error "Cannot reload object"] 8 "\n\n(fn OBJ)"] closql-get ((db closql-database) ident &optional class) #[770 "\211\204\n\300\301\"\262\302\303\300\304\"\300\305\"%@\211\205#\306\307$\207" [eieio-oref-default object-class emacsql [:select * :from $i1 :where (= $i2 $s3)] closql-table closql-primary-key closql--remake-instance t] 10 "\n\n(fn DB IDENT &optional CLASS)"] closql-query ((db closql-database) &optional select pred class) #[1025 "\203\300$\2039\203\301\302\"\207\207\303#\207" [closql-select mapcar car closql-entries] 9 "\n\n(fn DB &optional SELECT PRED CLASS)"] closql-entries ((db closql-database) &optional pred class) #[769 "\211C\211\242\204\211\300\301\"\240\210\302\303\304#\305\306\242$\"\207" [eieio-oref-default object-class mapcar make-closure #[257 "\302\301\242\300#\207" [V0 V1 closql--remake-instance] 5 "\n\n(fn ROW)"] closql-select *] 11 "\n\n(fn DB &optional PRED CLASS)"] closql-select ((db closql-database) select &optional pred class) #[1026 "\211\204\n\300\301\"\262\302\303\304\205\305\300\306\"\211\203#\307\310\"\202$\311\262#\300\312\"\2055\313!\300\314\"&\207" [eieio-oref-default object-class emacsql vconcat [:select $i1 :from $i2] [:where class :in $v3] closql-order-by vector :order-by [:order-by [(asc $i4)]] closql-table closql-where-class-in closql-primary-key] 13 "\n\n(fn DB SELECT &optional PRED CLASS)"]] 6) #@36 (fn DB TABLE &optional PREFIXED) (defalias 'closql--table-columns #[770 "\300\203\f\301\302\"\202 \303\304\305#\"\207" [mapcar make-closure #[257 "\301\302\303\300A@#!\207" [V0 intern format "%s:%s"] 6 "\n\n(fn COL)"] cadr emacsql [:pragma (funcall table-info $i1)]] 9 (#$ . 14412)]) #@11 (fn DB) (defalias 'closql--db-get-version #[257 "\300\301\"@@\207" [emacsql [:pragma user-version]] 4 (#$ . 14712)]) #@19 (fn DB VERSION) (defalias 'closql--db-set-version #[514 "\211\250\204 \300\301!\210\302\303#\207" [cl--assertion-failed (integerp version) emacsql [:pragma (= user-version $s1)]] 6 (#$ . 14838)]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\207" [cl-generic-define-method closql--remake-instance nil ((class (subclass closql-object)) db row &optional resolve) #[1027 "\300!\211\242\243\301 \"\302\303!\203Y\211\2119\203#\211\304N\206$\202&\211\262\305\306H!\307\310\fB\"\262\311HG\312\211W\203R\211THI\266\211T\262\202:\266\262\202`\313\nD\"\203i\314!\210\207" [closql--extern-unbound closql--expand-abbrev fboundp record cl--class copy-sequence 10 apply vector 4 0 vconcat closql--resolve-slots] 19 "\n\n(fn CLASS DB ROW &optional RESOLVE)"] closql--resolve-slots ((obj closql-object)) #[257 "\302\211\211\303H\262\203#\211\2119\203\211\304N\206\266\202\202%\211\266\203\202%\262!\211\205f\211@\305! >\204;\306\307\310D\"\210\211\311H\262\312\"\204_\313\"\204U\314\"\203_\315\316\"#\210A\266\202\202&\207" [eieio-backward-compatibility cl-struct-cl-slot-descriptor-tags eieio-class-slots 0 cl--class type-of signal wrong-type-argument cl-slot-descriptor 1 slot-boundp closql--slot-class closql--slot-table closql--oset closql-oref] 9 "\n\n(fn OBJ)"]] 6) #@12 (fn ROW) (defalias 'closql--intern-unbound #[257 "\300\301\"\207" [mapcar #[257 "\211=\203\301\207\207" [eieio--unbound eieio-unbound] 3 "\n\n(fn ELT)"]] 4 (#$ . 16195)]) #@12 (fn ROW) (defalias 'closql--extern-unbound #[257 "\300\301\"\207" [mapcar #[257 "\211\301=\203\207\207" [eieio--unbound eieio-unbound] 3 "\n\n(fn ELT)"]] 4 (#$ . 16378)]) #@20 (fn OBJECT TYPE) (defalias 'closql--coerce #[514 "\300\301\302!\2033\302!\2033G\303\304\"\305\211W\203,\211 HI\266\211T\262\202\266\262\2024\"\207" [cl-coerce fboundp recordp make-vector -1 0] 12 (#$ . 16561)]) (byte-code "\300\301\302\303\302\304%\210\300\301\302\305\302\306%\210\300\307\302\310\302\311%\207" [cl-generic-define-method closql--abbrev-class nil ((class-tag symbol)) #[257 "\300\301\302!\303\304O!!\207" [closql--abbrev-class intern symbol-name 17 nil] 6 "\n\n(fn CLASS-TAG)"] ((class (subclass closql-object))) #[257 "\300!\301\302\"\301\303\"\304\203G\202\305\205G[O!\207" [symbol-name eieio-oref-default closql-class-prefix closql-class-suffix intern 0] 8 "\n\n(fn CLASS)"] closql--expand-abbrev ((class (subclass closql-object)) abbrev) #[514 "\300\301\302!?\205 \303\304\305\"\306!\304\307\"R!\207" [intern fboundp record "eieio-class-tag--" eieio-oref-default closql-class-prefix symbol-name closql-class-suffix] 9 "\n\n(fn CLASS ABBREV)"]] 6) #@21 (fn VALUE OFFSET) (defalias 'closql--where-equal #[514 "\211C\300\301\302\303\304\"\"B!\207" [vector and mapcar make-closure #[257 "\211\203\301\302\303\304\300\211\242T\240\"!\302\303\305\300\211\242T\240\"!E\207\306\302\303\304\300\211\242\307\\\240S\"!D\207" [V0 = intern format "$i%i" "$s%i" isnull 2] 8 "\n\n(fn V)"]] 9 (#$ . 17577)]) #@16 (fn CLASSES) (defalias 'closql-where-class-in #[257 "\300\301\302\303\304<\203\202C\"\"!\207" [vconcat mapcar closql--abbrev-class cl-mapcan #[257 "\301!\302\303\304\305#)\266\203\203\306\307\310\311O!\303\"\207\312\303\304\305#)\266\203\2035\307\310\313O!C\207C\207" [inhibit-changing-match-data symbol-name "--eieio-childp\\'" nil t string-match closql--list-subclasses intern 0 -14 "-p\\'" -2] 9 "\n\n(fn SYM)"]] 7 (#$ . 17930)]) #@31 (fn CLASS &optional RESULT) (defalias 'closql--list-subclasses #[513 "\300!\204\301\"\203\210\202\211B\266\202\302N\211\303H\262\211\2032\211@\304\"\262A\266\202\202\210\207" [class-abstract-p memql cl--class 6 closql--list-subclasses] 7 (#$ . 18395)]) (byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\207" [cl-generic-define-method closql--list-subabbrevs nil ((class (subclass closql-object)) &optional wildcards) #[513 "\300C\211\301\302#\240\210\303\242!\304\"\207" [nil make-closure #[257 "\211\302N\211\303H\262\3041\305!0\202\210\306\307!?\205\211C\300\2055\2055\2033\310\311\312\"!\2024\313C\244\314\301\242\"\244\207" [V0 V1 cl--class 6 (error) closql--abbrev-class nil class-abstract-p intern format "%s*" * cl-mapcan] 8 "\n\n(fn CLASS)"] sort string<] 8 "\n\n(fn CLASS &optional WILDCARDS)"] closql--set-object-class ((db closql-database) obj class) #[771 "\300\301\"\300\302\"\303\"\304\305\306!\2033\307\2119\203%\211\310N\206&\202(\211\262\211\311H\262!\304H\202:\312\313\314\"!I\210\315\316\317!&\207" [eieio-oref-default closql-table closql-primary-key closql--oref 0 fboundp record copy-sequence cl--class 10 intern format "eieio-class-tag--%s" emacsql [:update $i1 :set (= class $s2) :where (= $i3 $s4)] closql--abbrev-class] 13 "\n\n(fn DB OBJ CLASS)"]] 6) #@17 (fn OBJ SLOT) (defalias 'closql--iref #[514 "\300\301\"\302\"\211\242\243\211\242\243\303\"\303 \"\300\f\304\305\"\"\306 \307\310\311\312\307\313\"AA\314#   A@ A@ @\n&\"\207" [closql--oref closql-database closql--slot-tables closql--table-columns eieio-oref-default closql-primary-key emacsql format "SELECT DISTINCT %s FROM %s AS d, %s AS i\nWHERE d.%s = i.%s AND d.%s = '%S';" mapconcat apply-partially "i.%s" ", "] 24 (#$ . 19764)]) #@17 (fn OBJ SLOT) (defalias 'closql--slot-tables #[514 "\300\301#\211<\204\302\303\"\210\211\242\243\211\242\243\304\305\306\307\310!#!\304\305\306\307\310!#!D\207" [closql--slot-get :closql-table error "%s isn't an indirect slot" intern replace-regexp-in-string "-" "_" symbol-name] 16 (#$ . 20233)]) #@566 Format a string out of a format STRING and an OBJECT's SLOTS. STRING is a format-string like for `format'. OBJECT is an Eieio object and SLOTS are slots of that object, their values are used like `format' uses its OBJECTS arguments (which are unrelated to this function's OBJECT argument, they just have similar names). While this function does not have much to do with the purpose of `closql', it is being defined here anyway because Eieio does not define a similar function under a more appropriate name such as `eieio-format'. (fn OBJECT STRING &rest SLOTS) (defalias 'closql-format #[642 "\300\301\302\303\304\"\"#\207" [apply format mapcar make-closure #[257 "\301\300\"\207" [V0 eieio-oref] 4 "\n\n(fn SLOT)"]] 10 (#$ . 20553)]) (provide 'closql)