From a4599f13af5efcfaa32d5ad24efbed773af888b5 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Wed, 8 Jul 2009 21:29:35 +0200 Subject: [PATCH] Removed a broken inline expansion for #'/ --- src/cmp/sysfun.lsp | 1 - 1 file changed, 1 deletion(-) diff --git a/src/cmp/sysfun.lsp b/src/cmp/sysfun.lsp index 2906fd412..fabbed11a 100644 --- a/src/cmp/sysfun.lsp +++ b/src/cmp/sysfun.lsp @@ -750,7 +750,6 @@ (def-inline / :always (fixnum-float fixnum-float) :float "(float)(#0)/(float)(#1)" :exact-return-type t) (def-inline / :always (fixnum fixnum) :fixnum "(#0)/(#1)" :exact-return-type t) -(def-inline / :unsafe (integer integer) integer "ecl_integer_divide(#0,#1)") (proclaim-function 1+ (t) t :no-side-effects t) (def-inline 1+ :always (t) t "ecl_one_plus(#0)")