From 06889a580e2193637d12ca04d41f06ba27d61fca Mon Sep 17 00:00:00 2001 From: ffjeld Date: Sat, 16 Feb 2008 23:35:22 +0000 Subject: [PATCH] Small speedup of peeping optimizer. --- compiler.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/compiler.lisp b/compiler.lisp index 4609780..d655a37 100644 --- a/compiler.lisp +++ b/compiler.lisp @@ -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 @@ There is (propably) a bug in the peephole optimizer." recursive-count)) "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) -- 2.11.4.GIT