Function: semanticdb-write-directory-p
semanticdb-write-directory-p is a byte-compiled function without a
source file.
Signature
(semanticdb-write-directory-p ARG &rest ARGS)
Implementations
(semanticdb-write-directory-p (OBJ semanticdb-project-database-file)) in `semantic/db-file.el'.
Return non-nil if OBJ should be written to disk. Uses `semanticdb-persistent-path' to determine the return value.
(semanticdb-write-directory-p (OBJ semanticdb-project-database)) in `semantic/db.el'.
Return non-nil if OBJ should be written to disk. Uses `semanticdb-persistent-path' to determine the return value.
;; Could not find source code, showing raw function object. #[385 "\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 (semanticdb-project-database-file) nil curried #[257 "\300!\210\301\302\303\"\207" [cl--generic-isnot-nnm-p nil make-closure #[128 "\301\302\300#\303\304#\207" [V0 make-closure #[128 "\302\301\206�\300\"\207" [V0 V1 apply] 4 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/semantic/db-file.elc" . 9466)] apply #[514 "\3022x�\211\203u�\211@;\203!�\303\304\"@\230\203q�\305\302\306\"\210\202q�\211@\307=\203M� \203>�\310\301\303\304\"\"\203q�\305\302\306\"\210\202q�G\311U\203q�\305\302\306\"\210\202q�\211@\312=\203\\�\305\302\313\"\210\202q�\211@\314=\203k�\305\302\306\"\210\202q�\315\316@\"\210A\202� 0\207" [semanticdb-persistent-path semanticdb-project-predicate-functions found eieio-oref reference-directory throw t project run-hook-with-args-until-success 1 never nil always error "Invalid path %S"] 8 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/semantic/db-file.elc" . 9489)]] 6 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/semantic/db-file.elc" . 9514)]] 5 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/semantic/db-file.elc" . 9292)]) #s(cl--generic-method (semanticdb-project-database) nil nil #[257 "\300\207" [nil] 2 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/semantic/db.elc" . 31940)])) nil #s(cl--generic semanticdb-write-directory-p ((0 #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/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/emacs-lisp/eieio-core.elc" . 38229)]) #s(cl--generic-generalizer cl--generic-t-generalizer 0 #[385 "\300\207" [nil] 3 ("emacs-lisp/cl-generic.elc" . 6935)] #[385 "\300\207" [(t)] 3 ("emacs-lisp/cl-generic.elc" . 6960)]))) (#s(cl--generic-method (semanticdb-project-database-file) nil curried #[257 "\300!\210\301\302\303\"\207" [cl--generic-isnot-nnm-p nil make-closure #[128 "\301\302\300#\303\304#\207" [V0 make-closure #[128 "\302\301\206�\300\"\207" [V0 V1 apply] 4 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/semantic/db-file.elc" . 9466)] apply #[514 "\3022x�\211\203u�\211@;\203!�\303\304\"@\230\203q�\305\302\306\"\210\202q�\211@\307=\203M� \203>�\310\301\303\304\"\"\203q�\305\302\306\"\210\202q�G\311U\203q�\305\302\306\"\210\202q�\211@\312=\203\\�\305\302\313\"\210\202q�\211@\314=\203k�\305\302\306\"\210\202q�\315\316@\"\210A\202� 0\207" [semanticdb-persistent-path semanticdb-project-predicate-functions found eieio-oref reference-directory throw t project run-hook-with-args-until-success 1 never nil always error "Invalid path %S"] 8 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/semantic/db-file.elc" . 9489)]] 6 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/semantic/db-file.elc" . 9514)]] 5 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/semantic/db-file.elc" . 9292)]) #s(cl--generic-method (semanticdb-project-database) nil nil #[257 "\300\207" [nil] 2 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/cedet/semantic/db.elc" . 31940)])) nil) apply cl-type-of gethash cl--generic-cache-miss 0 append #[385 "\301N\302!>\205�\303!\207" [cl-struct-eieio--class-tags cl--class type-of cl--class-allparents] 5 ("/nix/store/3pgbnkfjhy1s648d8ssbcblxm5x9kacn-emacs-30-2/share/emacs/30.2/lisp/emacs-lisp/eieio-core.elc" . 38229)] #[385 "\300\207" [(t)] 3 ("emacs-lisp/cl-generic.elc" . 6960)] nil puthash] 13 "\n\n(fn ARG &rest ARGS)"]