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@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)))))) +