Fix type in 1+ optimizer.
authorJean-Claude Beaudoin <jean.claude.beaudoin@gmail.com>
Wed, 9 Oct 2013 11:34:02 +0000 (07:34 -0400)
committerJean-Claude Beaudoin <jean.claude.beaudoin@gmail.com>
Wed, 9 Oct 2013 11:34:02 +0000 (07:34 -0400)
src/cmp/sysfun.lsp

index 131121f..7d76754 100644 (file)
 
     (proclaim-function 1+ (t) t :no-side-effects t)
     (def-inline 1+ :always (t) t "mkcl_one_plus(env, #0)")
-    (def-inline 1+ :always (double-loat) :double "((double)(#0)+1)")
+    (def-inline 1+ :always (double-float) :double "((double)(#0)+1)")
     (def-inline 1+ :always (single-float) :float "((float)(#0)+1)")
     (def-inline 1+ :always (fixnum) t
       "@0;(((#0) != MKCL_MOST_POSITIVE_FIXNUM) ? MKCL_MAKE_FIXNUM((#0)+1): mkcl_make_integer(env, (#0)+1))")