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

Diff of /gcl/cmpnew/gcl_cmpinline.lsp

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

revision 1.17 by camm, Wed Jun 22 01:42:28 2005 UTC revision 1.18 by camm, Wed Jun 22 05:06:21 2005 UTC
# Line 838  Line 838 
838          (if *safe-compile*          (if *safe-compile*
839              ;;FIXME -- alter C definition to remove the fixint here.              ;;FIXME -- alter C definition to remove the fixint here.
840              (wt "fixint(fLarray_dimension(" a "," i "))")              (wt "fixint(fLarray_dimension(" a "," i "))")
841            (wt "(type_of(" a ")==t_array ? (" a ")->a.a_dims[(" i ")] : (" a ")->v.v_dim)"))))))           (if (eql 0 i)
842                 (wt "(type_of(" a ")==t_array ? (" a ")->a.a_dims[(" i ")] : (" a ")->v.v_dim)")
843                (wt "(" a ")->a.a_dims[(" i ")]")))))))
844        
845  (defun list*-inline (&rest x)  (defun list*-inline (&rest x)
846    (case (length x)    (case (length x)

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

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