Function: (setf vtable-divider)

(setf\ vtable-divider) is a byte-compiled function defined in vtable.el.gz.

Signature

(\(setf\ vtable-divider\) ARG0 ARG &rest ARGS)

Implementations

(\(setf\ vtable-divider\) VALUE (THIS vtable)) in `vtable.el'.

Undocumented

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/vtable.el.gz
;; Could not find source code, showing raw function object.
#[642
  "\304\305!\306
\300\"\206\"�\307\303\310\302\301\311\312\305!!\313\314!\"%\315\300#\210\262
$\207"
  [#s(hash-table)
     (#s(cl--generic-method (t vtable) nil nil
			    #[514 "\300
\301#\207"
				  [eieio-oset divider] 6
				  ("/nix/store/yvwy8dm26cpa1j12ixgs1dyiaw2abdk9-emacs-snapshot/share/emacs/31.0.50/lisp/emacs-lisp/vtable.elc"
				   . 13622)]))
     ((0
       #s(cl--generic-generalizer cl--generic-t-generalizer 0
				  #[385 "\300\207" [nil] 3
					("emacs-lisp/cl-generic.elc"
					 . 7946)]
				  #[385 "\300\207" [(t)] 3
					("emacs-lisp/cl-generic.elc"
					 . 7971)])))
     #s(cl--generic \(setf\ vtable-divider\)
		    ((1
		      #s(cl--generic-generalizer
			 eieio--generic-generalizer 50
			 cl--generic-struct-tag
			 #[385 "
\301N\302
!>\205�\303
!\207"
			       [cl-struct-eieio--class-tags cl--class
							    type-of
							    cl--class-allparents]
			       5
			       ("/nix/store/yvwy8dm26cpa1j12ixgs1dyiaw2abdk9-emacs-snapshot/share/emacs/31.0.50/lisp/emacs-lisp/eieio-core.elc"
				. 38466)])
		      #s(cl--generic-generalizer
			 cl--generic-t-generalizer 0
			 #[385 "\300\207" [nil] 3
			       ("emacs-lisp/cl-generic.elc" . 7946)]
			 #[385 "\300\207" [(t)] 3
			       ("emacs-lisp/cl-generic.elc" . 7971)]))
		     (0
		      #s(cl--generic-generalizer
			 cl--generic-t-generalizer 0
			 #[385 "\300\207" [nil] 3
			       ("emacs-lisp/cl-generic.elc" . 7946)]
			 #[385 "\300\207" [(t)] 3
			       ("emacs-lisp/cl-generic.elc" . 7971)])))
		    (#s(cl--generic-method (t vtable) nil nil
					   #[514 "\300
\301#\207"
						 [eieio-oset divider]
						 6
						 ("/nix/store/yvwy8dm26cpa1j12ixgs1dyiaw2abdk9-emacs-snapshot/share/emacs/31.0.50/lisp/emacs-lisp/vtable.elc"
						  . 13622)]))
		    nil)
     apply cl-type-of gethash cl--generic-cache-miss 1 append
     #[385 "
\301N\302
!>\205�\303
!\207"
	   [cl-struct-eieio--class-tags cl--class type-of
					cl--class-allparents]
	   5
	   ("/nix/store/yvwy8dm26cpa1j12ixgs1dyiaw2abdk9-emacs-snapshot/share/emacs/31.0.50/lisp/emacs-lisp/eieio-core.elc"
	    . 38466)]
     #[385 "\300\207" [(t)] 3 ("emacs-lisp/cl-generic.elc" . 7971)]
     nil puthash]
  14 "\n\n(fn ARG0 ARG &rest ARGS)"]