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

Diff of /gcl/cmpnew/gcl_cmpopt.lsp

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

revision 1.12 by camm, Tue Dec 21 04:49:47 2004 UTC revision 1.13 by camm, Tue Dec 28 22:24:18 2004 UTC
# Line 693  type_of(#0)==t_bitvector") Line 693  type_of(#0)==t_bitvector")
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")
# Line 922  type_of(#0)==t_bitvector") Line 922  type_of(#0)==t_bitvector")
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

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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