From c9be821b9410818692c906f72040aafee6cc5763 Mon Sep 17 00:00:00 2001
From: Vladimir Sedach <vsedach@gmail.com>
Date: Fri, 23 Apr 2010 22:42:14 -0400
Subject: [PATCH] Added != and !== to deprecated interface.

---
 src/deprecated-interface.lisp | 8 ++++++++
 src/package.lisp              | 2 ++
 2 files changed, 10 insertions(+)

diff --git a/src/deprecated-interface.lisp b/src/deprecated-interface.lisp
index 0f070a5..05d7618 100644
--- a/src/deprecated-interface.lisp
+++ b/src/deprecated-interface.lisp
@@ -80,6 +80,14 @@ is output to the OUTPUT-STREAM stream."
 (defpsmacro-deprecated == equal)
 (defpsmacro-deprecated % rem)
 
+(defpsmacro !== (&rest args)
+  (warn-deprecated '!==)
+  `(not (eql ,@args)))
+
+(defpsmacro != (&rest args)
+  (warn-deprecated '!=)
+  `(not (equal ,@args)))
+
 (defpsmacro labeled-for (label init-forms cond-forms step-forms &rest body)
   (warn-deprecated 'labeled-for 'label)
   `(label ,label (for ,init-forms ,cond-forms ,step-forms ,@body)))
diff --git a/src/package.lisp b/src/package.lisp
index 50a60f1..7921a37 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -60,6 +60,8 @@
    #:%
    #:==
    #:===
+   #:!=
+   #:!==
    #:labeled-for
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-- 
2.11.4.GIT