Mercurial > hg > xemacs-beta
comparison lisp/bytecomp.el @ 5437:002cb5224e4f
Merge with 21.5 trunk.
| author | Mats Lidell <matsl@xemacs.org> |
|---|---|
| date | Mon, 15 Nov 2010 22:33:52 +0100 |
| parents | b9167d522a9a ec05a30f7148 |
| children | 0af042a0c116 |
comparison
equal
deleted
inserted
replaced
| 5436:da1365dd3f07 | 5437:002cb5224e4f |
|---|---|
| 3156 (byte-defop-compiler cdr-safe 1) | 3156 (byte-defop-compiler cdr-safe 1) |
| 3157 (byte-defop-compiler numberp 1) | 3157 (byte-defop-compiler numberp 1) |
| 3158 (byte-defop-compiler fixnump 1) | 3158 (byte-defop-compiler fixnump 1) |
| 3159 (byte-defop-compiler skip-chars-forward 1-2+1) | 3159 (byte-defop-compiler skip-chars-forward 1-2+1) |
| 3160 (byte-defop-compiler skip-chars-backward 1-2+1) | 3160 (byte-defop-compiler skip-chars-backward 1-2+1) |
| 3161 (byte-defop-compiler (eql byte-eq) 2) | 3161 (byte-defop-compiler eq 2) |
| 3162 (byte-defop-compiler20 old-eq 2) | 3162 (byte-defop-compiler20 old-eq 2) |
| 3163 (byte-defop-compiler20 old-memq 2) | 3163 (byte-defop-compiler20 old-memq 2) |
| 3164 (byte-defop-compiler cons 2) | 3164 (byte-defop-compiler cons 2) |
| 3165 (byte-defop-compiler aref 2) | 3165 (byte-defop-compiler aref 2) |
| 3166 (byte-defop-compiler get 2+1) | 3166 (byte-defop-compiler get 2+1) |
| 3905 | 3905 |
| 3906 (byte-defop-compiler-1 let) | 3906 (byte-defop-compiler-1 let) |
| 3907 (byte-defop-compiler-1 let*) | 3907 (byte-defop-compiler-1 let*) |
| 3908 | 3908 |
| 3909 (byte-defop-compiler-1 integerp) | 3909 (byte-defop-compiler-1 integerp) |
| 3910 (byte-defop-compiler-1 eql) | |
| 3910 (byte-defop-compiler-1 fillarray) | 3911 (byte-defop-compiler-1 fillarray) |
| 3911 | 3912 |
| 3912 (defun byte-compile-progn (form) | 3913 (defun byte-compile-progn (form) |
| 3913 (byte-compile-body-do-effect (cdr form))) | 3914 (byte-compile-body-do-effect (cdr form))) |
| 3914 | 3915 |
| 4138 (byte-compile-out-tag wintag) | 4139 (byte-compile-out-tag wintag) |
| 4139 (byte-compile-discard) | 4140 (byte-compile-discard) |
| 4140 (byte-compile-discard) | 4141 (byte-compile-discard) |
| 4141 (byte-compile-constant t) | 4142 (byte-compile-constant t) |
| 4142 (byte-compile-out-tag donetag)))) | 4143 (byte-compile-out-tag donetag)))) |
| 4144 | |
| 4145 (defun byte-compile-eql (form) | |
| 4146 (if (eql 3 (length form)) | |
| 4147 (let ((donetag (byte-compile-make-tag)) | |
| 4148 (eqtag (byte-compile-make-tag))) | |
| 4149 (mapc 'byte-compile-form (cdr form)) | |
| 4150 (byte-compile-out 'byte-dup 0) | |
| 4151 (byte-compile-out 'byte-numberp 0) | |
| 4152 (byte-compile-goto 'byte-goto-if-nil eqtag) | |
| 4153 (byte-compile-out 'byte-dup 0) | |
| 4154 (byte-compile-out 'byte-fixnump 0) | |
| 4155 (byte-compile-goto 'byte-goto-if-not-nil eqtag) | |
| 4156 (byte-compile-out 'byte-equal 0) | |
| 4157 (byte-compile-goto 'byte-goto donetag) | |
| 4158 (byte-compile-out-tag eqtag) | |
| 4159 (byte-compile-out 'byte-eq 0) | |
| 4160 (byte-compile-out-tag donetag)) | |
| 4161 (byte-compile-subr-wrong-args form 2))) | |
| 4143 | 4162 |
| 4144 ;;(byte-defop-compiler-1 /= byte-compile-negated) | 4163 ;;(byte-defop-compiler-1 /= byte-compile-negated) |
| 4145 (byte-defop-compiler-1 atom byte-compile-negated) | 4164 (byte-defop-compiler-1 atom byte-compile-negated) |
| 4146 (byte-defop-compiler-1 nlistp byte-compile-negated) | 4165 (byte-defop-compiler-1 nlistp byte-compile-negated) |
| 4147 | 4166 |