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

Modified Files: compiler.lisp Log Message: Tiny edit.

Date: Sat Apr 17 10:10:51 2004 Author: ffjeld

Index: movitz/compiler.lisp diff -u movitz/compiler.lisp:1.51 movitz/compiler.lisp:1.52 --- movitz/compiler.lisp:1.51 Sat Apr 17 10:10:00 2004 +++ movitz/compiler.lisp Sat Apr 17 10:10:51 2004 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.51 2004/04/17 14:10:00 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.52 2004/04/17 14:10:51 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -739,11 +739,12 @@ have-normalized-ecx-p))) (let ((optimized-function-code (optimize-code function-code - :keep-labels (append (subseq (movitz-funobj-const-list funobj) - 0 (movitz-funobj-num-jumpers funobj)) - '(entry%1op - entry%2op - entry%3op))))) + :keep-labels (append + (subseq (movitz-funobj-const-list funobj) + 0 (movitz-funobj-num-jumpers funobj)) + '(entry%1op + entry%2op + entry%3op))))) (cons numargs optimized-function-code)))))))) (let ((code1 (cdr (assoc 1 code-specs))) (code2 (cdr (assoc 2 code-specs)))