Commit f4a2ee22 authored by Frode Vatvedt Fjeld's avatar Frode Vatvedt Fjeld

Patch from jdz to avoid hitting CALL-ARGUMENTS-LIMIT in e.g. LW.

parent cd6343f0
;;;;------------------------------------------------------------------
;;;;
;;;; Copyright (C) 20012000, 2003,
;;;; Copyright (C) 20012000, 2003-2004,
;;;; Department of Computer Science, University of Troms, Norway
;;;;
;;;; Filename: postload.lisp
......@@ -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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment