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