Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv32621 Modified Files: compiler.lisp Log Message: Small speedup of peeping optimizer. --- /project/movitz/cvsroot/movitz/compiler.lisp 2008/02/16 21:22:05 1.190 +++ /project/movitz/cvsroot/movitz/compiler.lisp 2008/02/16 23:35:22 1.191 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.190 2008/02/16 21:22:05 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.191 2008/02/16 23:35:22 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1553,8 +1553,10 @@ "If i is a branch, return the label." (when jmp (push :jmp branch-types)) (let ((i (ignore-instruction-prefixes i))) - (or (and (listp i) (member (car i) branch-types) - (listp (second i)) (member (car (second i)) '(quote muerte.cl::quote)) + (or (and (listp i) + (listp (second i)) + (member (car (second i)) '(quote muerte.cl::quote)) + (member (car i) branch-types) (second (second i))) #+ignore (and (listp i)