[movitz-cvs] CVS update: ia-x86/postload.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	postload.lisp 
Log Message:
Patch from jdz to avoid hitting CALL-ARGUMENTS-LIMIT in e.g. LW.

Date: Wed Jan 14 17:22:30 2004
Author: ffjeld

Index: ia-x86/postload.lisp
diff -u ia-x86/postload.lisp:1.1.1.1 ia-x86/postload.lisp:1.2
--- ia-x86/postload.lisp:1.1.1.1	Mon Jan 12 10:23:55 2004
+++ ia-x86/postload.lisp	Wed Jan 14 17:22:30 2004
@@ -1,6 +1,6 @@
 ;;;;------------------------------------------------------------------
 ;;;; 
-;;;;    Copyright (C) 20012000, 2003,
+;;;;    Copyright (C) 20012000, 2003-2004,
 ;;;;    Department of Computer Science, University of Tromsø, Norway
 ;;;; 
 ;;;; Filename:      postload.lisp
@@ -9,7 +9,7 @@
 ;;;; Created at:    Mon Jan 31 16:33:23 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: postload.lisp,v 1.1.1.1 2004/01/12 15:23:55 ffjeld Exp $
+;;;; $Id: postload.lisp,v 1.2 2004/01/14 22:22:30 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -23,7 +23,7 @@
 
   (format t "~&;; ~A Longest lookup list (#x~2,'0X) has ~D elements.~%"
 	  prefix
-	  (position #0=(apply #'max (map 'list #'length
+	  (position #0=(reduce #'max (map 'list #'length
 					 table))
 		    (map 'list #'length
 			 table))