[movitz-cvs] CVS update: movitz/compiler.lisp

[Frode Vatvedt Fjeld]

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