/[gcl]/gcl/cmpnew/gcl_cmplet.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_cmplet.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by camm, Sun Sep 18 01:53:38 2005 UTC revision 1.19 by camm, Thu Oct 6 20:30:06 2005 UTC
# Line 547  Line 547 
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    

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26