[armedbear-cvs] r11470 - trunk/abcl/src/org/armedbear/lisp

[Ville Voutilainen]

Author: vvoutilainen
Date: Mon Dec 22 13:50:25 2008
New Revision: 11470

Log:
Remove unnecessary backquote-comma from emit-ifne-for-eql.


Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Mon Dec 22 13:50:25 2008
@@ -2395,12 +2395,12 @@
     (t
      (let ((label1 (gensym))
 	   (label2 (gensym)))
-       (emit 'ifne `,label1)
+       (emit 'ifne label1)
        (emit-push-nil)
-       (emit 'goto `,label2)
-       (emit 'label `,label1)
+       (emit 'goto label2)
+       (emit 'label label1)
        (emit-push-t)
-       (emit 'label `,label2)))))
+       (emit 'label label2)))))
 
 (defknown p2-eql (t t t) t)
 (defun p2-eql (form target representation)