From 4a5a29a76b8e5aa139209aabe310c2179a60608d Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 17 Sep 2012 09:49:25 -0700
Subject: * arith.c (comp_trunc, logcomp): logcomp renamed to lognot,
 consistent with Common Lisp.

* eval.c (eval_init): logcomp to lognot.

* lib.h (logcomp): Declaration updated.
---
 eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'eval.c')

diff --git a/eval.c b/eval.c
index ec5db76a..298e6484 100644
--- a/eval.c
+++ b/eval.c
@@ -2234,7 +2234,7 @@ void eval_init(void)
   reg_fun(intern(lit("logand"), user_package), func_n2(logand));
   reg_fun(intern(lit("logior"), user_package), func_n2(logior));
   reg_fun(intern(lit("logxor"), user_package), func_n2(logxor));
-  reg_fun(intern(lit("logcomp"), user_package), func_n2o(logcomp, 1));
+  reg_fun(intern(lit("lognot"), user_package), func_n2o(lognot, 1));
   reg_fun(intern(lit("logtrunc"), user_package), func_n2(logtrunc));
   reg_fun(intern(lit("ash"), user_package), func_n2(ash));
 
-- 
cgit v1.2.3