| author | Camm Maguire <camm@debian.org> | 2014年09月23日 15:39:21 -0400 |
|---|---|---|
| committer | Camm Maguire <camm@debian.org> | 2014年09月23日 15:39:21 -0400 |
| commit | 36ecbd836305b70c00f2642198eb4403c96da5a5 (patch) | |
| tree | e10cf36fc606e24ce9fcfcb957308f45bdc46ea2 | |
| parent | d1aa5b35051c9fe7569963210d7830a8b6dd6eb9 (diff) | |
| download | gcl-36ecbd836305b70c00f2642198eb4403c96da5a5.tar.gz | |
| -rwxr-xr-x | gcl/cmpnew/gcl_cmpopt.lsp | 12 |
diff --git a/gcl/cmpnew/gcl_cmpopt.lsp b/gcl/cmpnew/gcl_cmpopt.lsp index deda86f12..81a9f5ef1 100755 --- a/gcl/cmpnew/gcl_cmpopt.lsp +++ b/gcl/cmpnew/gcl_cmpopt.lsp @@ -1270,3 +1270,15 @@ type_of(#0)==t_bitvector") (push '((fixnum) t #.(compiler::flags) "({object _y=(object)#0;is_imm_fixnum(_y) ? Cnil : (is_imm_fixnum(_y->c.c_cdr) ? _y : (_y->d.f||_y->d.e ? Cnil : _y));})") (get 'si::static-inverse-cons 'compiler::inline-always)) (push '((t) t #.(compiler::flags) "({object _y=(object)fix(#0);is_imm_fixnum(_y) ? Cnil : (is_imm_fixnum(_y->c.c_cdr) ? _y : (_y->d.f||_y->d.e ? Cnil : _y));})") (get 'si::static-inverse-cons 'compiler::inline-unsafe)) (push '((fixnum) t #.(compiler::flags) "({object _y=(object)#0;is_imm_fixnum(_y) ? Cnil : (is_imm_fixnum(_y->c.c_cdr) ? _y : (_y->d.f||_y->d.e ? Cnil : _y));})") (get 'si::static-inverse-cons 'compiler::inline-unsafe)) + +;;symbol-value +(push '((t) t #.(compiler::flags) "(#0)->s.s_dbind") + (get 'symbol-value 'compiler::inline-unsafe)) +(push '((t) t #.(compiler::flags) "@0;type_of(#0)!=t_symbol ? (not_a_symbol(#0),Cnil) : ((#0)->s.s_dbind==OBJNULL ? (FEunbound_variable(#0),Cnil) : (#0)->s.s_dbind)") + (get 'symbol-value 'compiler::inline-always)) +(push '((symbol) t #.(compiler::flags) "@0;(#0)->s.s_dbind==OBJNULL ? (FEunbound_variable(#0),Cnil) : (#0)->s.s_dbind") + (get 'symbol-value 'compiler::inline-always)) + +;;acons +(push '((t t t) t #.(compiler::flags) "MMcons(MMcons((#0),(#1)),(#2))") + (get 'acons 'compiler::inline-always)) |