From b9259ebf6cdda9bf2c0921dbed7b1e629bcb9d30 Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Tue, 23 Sep 2003 08:03:55 +0000 Subject: [PATCH] Fixed typo: 'fixnum' is the old name of the 'cl_fixnum' type. --- src/cmp/sysfun.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/sysfun.lsp b/src/cmp/sysfun.lsp index e6a0e5429..18242a3ec 100644 --- a/src/cmp/sysfun.lsp +++ b/src/cmp/sysfun.lsp @@ -592,7 +592,7 @@ "@01;(#0>=0&>0?(#0)/(#1):ifloor(#0,#1))")) (CEILING (T *) (VALUES T T) NIL NIL) (TRUNCATE (T *) (VALUES T T) NIL NIL - :inline-always ((fixnum-float) fixnum nil nil "(fixnum)(#0)")) + :inline-always ((fixnum-float) fixnum nil nil "(cl_fixnum)(#0)")) (ROUND (T *) (VALUES T T)) (MOD (T T) T NIL NIL :inline-always ((fixnum fixnum) fixnum nil nil