693 |
(get 'code-char 'inline-always)) |
(get 'code-char 'inline-always)) |
694 |
|
|
695 |
;;CONS |
;;CONS |
696 |
(push '((t t) t #.(flags ans)"make_cons(#0,#1)") |
(push '((t t) t #.(flags ans) CONS-INLINE) |
|
(get 'cons 'inline-always)) |
|
|
(push '((t t) :dynamic-extent #.(flags ans)"ON_STACK_CONS(#0,#1)") |
|
697 |
(get 'cons 'inline-always)) |
(get 'cons 'inline-always)) |
698 |
|
;(push '((t t) :dynamic-extent #.(flags ans)"ON_STACK_CONS(#0,#1)") |
699 |
|
; (get 'cons 'inline-always)) |
700 |
|
|
701 |
;;CONSP |
;;CONSP |
702 |
(push '((t) boolean #.(flags)"type_of(#0)==t_cons") |
(push '((t) boolean #.(flags)"type_of(#0)==t_cons") |
922 |
(get 'lognot 'inline-always)) |
(get 'lognot 'inline-always)) |
923 |
|
|
924 |
;;MAKE-LIST |
;;MAKE-LIST |
925 |
(push '((fixnum) :dynamic-extent #.(flags ans) |
(push '((fixnum) t #.(flags ans) MAKE-LIST-INLINE) |
|
"@0;(ALLOCA_CONS(#0),ON_STACK_MAKE_LIST(#0))") |
|
926 |
(get 'make-list 'inline-always)) |
(get 'make-list 'inline-always)) |
927 |
|
|
928 |
;;MAX |
;;MAX |