Function: jsonrpc--request-continuations

jsonrpc--request-continuations is a byte-compiled function defined in jsonrpc.el.gz.

Signature

(jsonrpc--request-continuations ARG &rest ARGS)

Implementations

(jsonrpc--request-continuations (THIS jsonrpc-connection)) in `jsonrpc.el'.

Retrieve the slot `-request-continuations' from an object of class `jsonrpc-connection'.

Source Code

;; Defined in /usr/src/emacs/lisp/jsonrpc.el.gz
;; Could not find source code, showing raw function object.
#[385 "\304\203�\305!\202\f�\306\307
\300\"\2066�\310\303\311\302\301\312\313\n\203&�\305!\202'�\306!\314\315!\"%\316\300#\210\211\262
\262
#\207"
      [#s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8125 data
		     ())
	 (#s(cl--generic-method
	     (jsonrpc-connection)
	     nil nil
	     #[257 "\300
\301\"\205�\302
\301\"\207"
		   [slot-boundp -request-continuations eieio-oref]
		   4 "Retrieve the slot `-request-continuations' from an object of class\n`jsonrpc-connection'.\n\n(fn THIS)"]))
	 nil #s(cl--generic jsonrpc--request-continuations
			    ((0 #s(cl--generic-generalizer eieio--generic-generalizer 50 cl--generic-struct-tag
							   #[385 "
\301N\302
!>\205�\303\304\305!\"\207"
								 [cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
								 7 "\n\n(fn TAG &rest _)"])
				#s(cl--generic-generalizer cl--generic-t-generalizer 0
							   #[385 "\300\207"
								 [nil]
								 3 "\n\n(fn NAME &rest _)"]
							   #[385 "\300\207"
								 [(t)]
								 3 "\n\n(fn TAG &rest _)"])))
			    (#s(cl--generic-method
				(jsonrpc-connection)
				nil nil
				#[257 "\300
\301\"\205�\302
\301\"\207"
				      [slot-boundp -request-continuations eieio-oref]
				      4 "Retrieve the slot `-request-continuations' from an object of class\n`jsonrpc-connection'.\n\n(fn THIS)"]))
			    nil)
	 apply type-of null gethash cl--generic-cache-miss 0 append
	 #[385 "
\301N\302
!>\205�\303\304\305!\"\207"
	       [cl-struct-eieio--class-tags cl--class type-of mapcar eieio--class-name eieio--class-precedence-list]
	       7 "\n\n(fn TAG &rest _)"]
	 #[385 "\300\207"
	       [(t)]
	       3 "\n\n(fn TAG &rest _)"]
	 nil puthash]
      13 "\n\n(fn ARG &rest ARGS)"]