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

((this ede-compilation-program)) in `ede/proj-comp.el'.

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

((this ede-target)) in `ede/base.el'.

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

((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�\203�\306!\202�\307\303\310\"\206N�\311\300\312\301\302\313\3149\2050�\305N!\315\f\203>�\306
!\202?�\307!\316\317!#%\320#\210\211\262
\266\202#\207"
      [#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 "\n\n(fn NAME &rest _)"]
						     eieio--generic-subclass-specializers)
			  #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
			  (ede-compilation-program)
			  nil nil
			  #[257 "\300
\301\"\205�\302
\301\"\207"
				[slot-boundp sourcetype eieio-oref]
				4 "Retrieve the slot `sourcetype' from an object of class\n`ede-compilation-program'.\n\n(fn THIS)"])
			 #s(cl--generic-method
			    (ede-target)
			    nil nil
			    #[257 "\300
\301\"\205�\302
\301\"\207"
				  [slot-boundp sourcetype eieio-oref]
				  4 "Retrieve the slot `sourcetype' from an object of class `ede-target'.\n\n(fn THIS)"])
			 #s(cl--generic-method
			    ((subclass ede-target))
			    nil nil
			    #[257 "\300
\301\"\205�\302
\301\"\207"
				  [slot-boundp sourcetype eieio-oref-default]
				  4 "Retrieve the class slot `sourcetype' from a class `ede-target'.\nThis method is obsolete.\n\n(fn THIS)"]))
		      nil)
	 nil
	 (#s(cl--generic-method
	     (ede-compilation-program)
	     nil nil
	     #[257 "\300
\301\"\205�\302
\301\"\207"
		   [slot-boundp sourcetype eieio-oref]
		   4 "Retrieve the slot `sourcetype' from an object of class\n`ede-compilation-program'.\n\n(fn THIS)"])
	    #s(cl--generic-method
	       (ede-target)
	       nil nil
	       #[257 "\300
\301\"\205�\302
\301\"\207"
		     [slot-boundp sourcetype eieio-oref]
		     4 "Retrieve the slot `sourcetype' from an object of class `ede-target'.\n\n(fn THIS)"])
	    #s(cl--generic-method
	       ((subclass ede-target))
	       nil nil
	       #[257 "\300
\301\"\205�\302
\301\"\207"
		     [slot-boundp sourcetype eieio-oref-default]
		     4 "Retrieve the class slot `sourcetype' from a class `ede-target'.\nThis method is obsolete.\n\n(fn THIS)"]))
	 #s(hash-table size 65 test eql rehash-size 1.5 rehash-threshold 0.8125 data
		       ())
	 apply cl--class type-of null gethash cl--generic-cache-miss 0 append eieio--generic-subclass-specializers
	 #[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]
      15 "\n\n(fn ARG &rest ARGS)"]