Function: ede-object-sourcecode

ede-object-sourcecode is a byte-compiled function defined in base.el.gz.

Signature

(ede-object-sourcecode ARG &rest ARGS)

Implementations

(ede-object-sourcecode (THIS ede-compilation-program)) in `ede/proj-comp.el'.

Retrieve the slot `sourcetype' from an object of class `ede-compilation-program'.

(ede-object-sourcecode (THIS ede-target)) in `ede/base.el'.

Retrieve the slot `sourcetype' from an object of class `ede-target'.

(ede-object-sourcecode (THIS (subclass ede-target))) in `ede/base.el'.

Retrieve the class slot `sourcetype' from a class `ede-target'. This method is obsolete.

Source Code

;; Defined in /usr/src/emacs/lisp/cedet/ede/base.el.gz
;; Could not find source code, showing raw function object.
#[385
  "\3049\203\f�\305N\206�\306!\307
\300\"\2069�\310\303\311\302\301\312\313\n9\205'�\n\305N!\314\306\f!!\315\316!#%\317\300#\210\262
#\207"
  [#s(hash-table)
     (#s(cl--generic-method (ede-compilation-program) nil nil
			    #[257 "\300
\301\"\207"
				  [slot-value sourcetype] 4
				  ("/nix/store/yvwy8dm26cpa1j12ixgs1dyiaw2abdk9-emacs-snapshot/share/emacs/31.0.50/lisp/cedet/ede/proj-comp.elc"
				   . 86)])
	#s(cl--generic-method (ede-target) nil nil
			      #[257 "\300
\301\"\207"
				    [slot-value sourcetype] 4
				    ("/nix/store/yvwy8dm26cpa1j12ixgs1dyiaw2abdk9-emacs-snapshot/share/emacs/31.0.50/lisp/cedet/ede/base.elc"
				     . 586)])
	#s(cl--generic-method ((subclass ede-target)) nil nil
			      #[257
				"\301=\203\f�\302\303\304\305#\210\306
\307\"\205�\310
\307\"\207"
				[eieio-backward-compatibility warn
							      message
							      "Use of obsolete method %S on %S"
							      ede-object-sourcecode
							      (subclass
							       ede-target)
							      slot-boundp
							      sourcetype
							      eieio-oref-default]
				5
				("/nix/store/yvwy8dm26cpa1j12ixgs1dyiaw2abdk9-emacs-snapshot/share/emacs/31.0.50/lisp/cedet/ede/base.elc"
				 . 481)]))
     nil
     #s(cl--generic ede-object-sourcecode
		    ((0
		      #s(cl--generic-generalizer
			 eieio--generic-subclass-generalizer 60
			 #[385 "\300\301D\302DE\207"
			       [and symbolp cl--find-class] 6
			       ("/nix/store/yvwy8dm26cpa1j12ixgs1dyiaw2abdk9-emacs-snapshot/share/emacs/31.0.50/lisp/emacs-lisp/eieio-core.elc"
				. 37880)]
			 eieio--generic-subclass-specializers)
		      #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)])))
		    (#s(cl--generic-method (ede-compilation-program)
					   nil nil
					   #[257 "\300
\301\"\207"
						 [slot-value
						  sourcetype]
						 4
						 ("/nix/store/yvwy8dm26cpa1j12ixgs1dyiaw2abdk9-emacs-snapshot/share/emacs/31.0.50/lisp/cedet/ede/proj-comp.elc"
						  . 86)])
		       #s(cl--generic-method (ede-target) nil nil
					     #[257 "\300
\301\"\207"
						   [slot-value
						    sourcetype]
						   4
						   ("/nix/store/yvwy8dm26cpa1j12ixgs1dyiaw2abdk9-emacs-snapshot/share/emacs/31.0.50/lisp/cedet/ede/base.elc"
						    . 586)])
		       #s(cl--generic-method ((subclass ede-target))
					     nil nil
					     #[257
					       "\301=\203\f�\302\303\304\305#\210\306
\307\"\205�\310
\307\"\207"
					       [eieio-backward-compatibility
						warn message
						"Use of obsolete method %S on %S"
						ede-object-sourcecode
						(subclass ede-target)
						slot-boundp sourcetype
						eieio-oref-default]
					       5
					       ("/nix/store/yvwy8dm26cpa1j12ixgs1dyiaw2abdk9-emacs-snapshot/share/emacs/31.0.50/lisp/cedet/ede/base.elc"
						. 481)]))
		    nil)
     apply cl--class cl-type-of gethash cl--generic-cache-miss 0
     append eieio--generic-subclass-specializers
     #[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 ARG &rest ARGS)"]