-
Notifications
You must be signed in to change notification settings - Fork 1
/
eieio-comp.elc
38 lines (34 loc) · 3.5 KB
/
eieio-comp.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
;ELC
;;; Compiled by [email protected] on Mon May 11 19:25:53 2009
;;; from file /Users/dls/.emacs.d/d-mode/eieio-comp.el
;;; in Emacs version 22.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19.29")))
(error "`eieio-comp.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\301\302!\204 \303\302\304\"\210\305\306!\204 \306B\307\306!\204 \310\306\311\"\210\312\313\314\315#\207" [current-load-list fboundp byte-compile-compiled-obj-to-list defalias #[(moose) "\300\207" [nil] 1] boundp byte-compile-outbuffer default-boundp set-default nil put defmethod byte-hunk-handler byte-compile-file-form-defmethod] 4)
#@316 Mumble about the method we are compiling.
This function is mostly ripped from `byte-compile-file-form-defun', but
it's been modified to handle the special syntax of the defmethod
command. There should probably be one for defgeneric as well, but
that is called but rarely. Argument FORM is the body of the method.
(defalias 'byte-compile-file-form-defmethod #[(form) "A\211@A\211@\306=\203 A\307\2024 @\310=\203% A\311\2024 @\312=\2033 A\313\2024 \314@\315 ! @\211 <\205G A@ $% &\316\317$\206U \320 # '(\203j \321\322)\206f \314'#\210'*)\323 \210\324\325\326\fDA\"! +\327+! ,\330\331&\"\210\330 &\"\210\330\332&\"\210\330\n&\"\210\333 &\"\210\330\334&\"\210\335,&\"\210\330\336&\"\210*\337\340 \341 \314\"B\"\210 -\236\211 .\203\321 \342.-\"-.\343\207" [form meth key params lamparams arg1 :BEFORE ":BEFORE " :AFTER ":AFTER " :PRIMARY ":PRIMARY " "" byte-compile-defmethod-param-convert format "%s::%s" "#<generic>" message "Compiling %s... (%s)" byte-compile-flush-pending byte-compile-lambda append lambda byte-compile-byte-code-maker princ "\n(eieio-defmethod '" " '(" prin1 " " eieio-byte-compile-princ-code "))" add-to-list byte-compile-function-environment eieio-defgeneric-form delq nil class outbuffer my-outbuffer name byte-compile-verbose filename byte-compile-current-form new-one code byte-compile-unresolved-functions elt] 7 (#$ . 940)])
#@185 Xemacs and GNU Emacs do their things differently.
Lets do it right on both platforms
Argument CODE is the code to output.
Argument OUTBUFFER is the buffer to dump the created code to.
(defalias 'eieio-byte-compile-princ-code #[(code outbuffer) "\302 \"\207" [code outbuffer prin1] 3 (#$ . 2341)])
#@202 For XEmacs only, princ one item.
Recurse into lists in search of `byte-code' which needs expanding...
Argument CODE is the code to output.
Argument OUTBUFFER is the buffer to dump the created code to.
(defalias 'eieio-prin1 #[(code outbuffer) "\305!\203+ \306!\307\310\n\"\210 \203% \311 @\n\"\210\307\312\n\"\210 A\211\204 \307\313\n\")\207\314!\203Z \315G \307\316\n\"\210\f W\203T \311\fH\n\"\210\307\312\n\"\210\fT\211\202< \307\313\n\"*\207\317\n\"\207" [code codelist outbuffer ln i byte-code-function-p byte-compile-compiled-obj-to-list princ "#[" eieio-prin1 " " "]" vectorp 0 "[" prin1] 4 (#$ . 2646)])
#@121 Convert method params into the params used by the defmethod thingy.
Argument PARAMLIST is the paramter list to convert.
(defalias 'byte-compile-defmethod-param-convert #[(paramlist) "\302 \203 @<\203 @@\202 @B A\211\204 \237)\207" [argfix paramlist nil] 3 (#$ . 3276)])
(provide 'eieio-comp)