From 3540f95d7860250c3b48e44bc850ec0fb07d20ad Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 9 Feb 2010 17:38:08 +0000
Subject: 	* interp/vmlisp.lisp (NEQ): Remove. 	* interp/clam.boot
 (lassocShift): Don't use it. 	(lassocShiftWithFunction): Likewise. 
 (lassocShiftQ): Likewise.

---
 src/interp/clam.boot   | 10 +++++-----
 src/interp/vmlisp.lisp |  2 --
 2 files changed, 5 insertions(+), 7 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/clam.boot b/src/interp/clam.boot
index 14f59535..56347798 100644
--- a/src/interp/clam.boot
+++ b/src/interp/clam.boot
@@ -1,6 +1,6 @@
 -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
 -- All rights reserved.
--- Copyright (C) 2007-2009, Gabriel Dos Reis.
+-- Copyright (C) 2007-2010, Gabriel Dos Reis.
 -- All rights reserved.
 --
 -- Redistribution and use in source and binary forms, with or without
@@ -626,7 +626,7 @@ lassocShift(x,l) ==
     EQUAL(x,first QCAR y) => return (result := QCAR y)
     y:= QCDR y
   result =>
-    if NEQ(y,l) then
+    if not EQ(y,l) then
       QRPLACA(y,first l)
       QRPLACA(l,result)
     QCDR result
@@ -638,7 +638,7 @@ lassocShiftWithFunction(x,l,fn) ==
     FUNCALL(fn,x,first QCAR y) => return (result := QCAR y)
     y:= QCDR y
   result =>
-    if NEQ(y,l) then
+    if not EQ(y,l) then
       QRPLACA(y,first l)
       QRPLACA(l,result)
     QCDR result
@@ -650,7 +650,7 @@ lassocShiftQ(x,l) ==
     EQ(x,first first y) => return (result := first y)
     y:= rest y
   result =>
-    if NEQ(y,l) then
+    if not EQ(y,l) then
       RPLACA(y,first l)
       RPLACA(l,result)
     rest result
@@ -662,7 +662,7 @@ lassocShiftQ(x,l) ==
 --     EQ(x,rest first y) => return (result := first y)
 --     y:= rest y
 --   result =>
---     if NEQ(y,l) then
+--     if not EQ(y,l) then
 --       RPLACA(y,first l)
 --       RPLACA(l,result)
 --     first result
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp
index 8e327b97..ae8b1df3 100644
--- a/src/interp/vmlisp.lisp
+++ b/src/interp/vmlisp.lisp
@@ -227,8 +227,6 @@
 
 (defmacro ne (a b) `(not (equal ,a ,b)))
 
-(defmacro neq (a b) `(not (eq ,a ,b)))
-
 (defmacro nreverse0 (x)
   (if (atom x)
       `(if (atom ,x) ,x (nreverse ,x))
-- 
cgit v1.2.3