[movitz-cvs] CVS update: movitz/special-operators.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv26144

Modified Files:
	special-operators.lisp 
Log Message:
added special-operator eql%b, which is the compiled eql.

Date: Sat Nov 20 00:03:50 2004
Author: ffjeld

Index: movitz/special-operators.lisp
diff -u movitz/special-operators.lisp:1.44 movitz/special-operators.lisp:1.45
--- movitz/special-operators.lisp:1.44	Sat Nov 13 17:10:14 2004
+++ movitz/special-operators.lisp	Sat Nov 20 00:03:49 2004
@@ -8,7 +8,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Nov 24 16:22:59 2000
 ;;;;                
-;;;; $Id: special-operators.lisp,v 1.44 2004/11/13 16:10:14 ffjeld Exp $
+;;;; $Id: special-operators.lisp,v 1.45 2004/11/19 23:03:49 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1302,3 +1302,18 @@
 			  (:popl :ebp)
 			  (:leal (:esp 12) :esp)
 			  )))))))
+
+
+(define-special-operator muerte::eql%b (&form form &env env &result-mode result-mode)
+  (destructuring-bind (x y)
+      (cdr form)
+    (let ((returns (case (result-mode-type result-mode)
+		     ((:boolean-branch-on-true :boolean-branch-on-false)
+		      result-mode)
+		     (t :boolean-zf=1)))
+	  (x (movitz-binding x env))
+	  (y (movitz-binding y env)))
+      (compiler-values ()
+	:returns returns
+	:code `((:eql ,x ,y ,returns))))))
+