547 |
"#define Cons_Macro" n (format nil " struct cons ~{STcons~a ~^,~};" nums) |
"#define Cons_Macro" n (format nil " struct cons ~{STcons~a ~^,~};" nums) |
548 |
))) |
))) |
549 |
|
|
550 |
(push '((fixnum t t) t #.(flags) |
;;FIXME update this |
551 |
"(STcons#0.t=t_cons,STcons#0.m=0,STcons#0.c_car=(#1), |
;(push '((fixnum t t) t #.(flags) |
552 |
STcons#0.c_cdr=(#2),(object)&STcons#0)") |
; "(STcons#0.t=t_cons,STcons#0.m=0,STcons#0.c_car=(#1), |
553 |
(get 'stack-cons 'inline-always)) |
; STcons#0.c_cdr=(#2),(object)&STcons#0)") |
554 |
|
; (get 'stack-cons 'inline-always)) |
555 |
|
|
556 |
;; ---------- end stack-let for consing on stack --------- |
;; ---------- end stack-let for consing on stack --------- |
557 |
|
|