X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fprecom1.lisp;h=10daec6a92e1bb5b19e7bbc8a98eaf431d4cacdb;hb=d7cbe5c40e93796d326937f3fb962fa4d7b1fa85;hp=cdcca09954335c7d39a4e969f9d2f4b16c76708c;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/pcl/precom1.lisp b/src/pcl/precom1.lisp
index cdcca09..10daec6 100644
--- a/src/pcl/precom1.lisp
+++ b/src/pcl/precom1.lisp
@@ -22,25 +22,6 @@
 ;;;; specification.
 
 (in-package "SB-PCL")
-
-(sb-int:file-comment
-  "$Header$")
 
-;;; Pre-allocate generic function caches. The hope is that this will put
-;;; them nicely together in memory, and that that may be a win. Of course
-;;; the first gc copy will probably blow that out, this really wants to be
-;;; wrapped in something that declares the area static.
-;;;
-;;; This preallocation only creates about 25% more caches than PCL itself
-;;; uses need. Some ports may want to preallocate some more of these.
-(flet ((allocate (n size)
-		 (mapcar #'free-cache-vector
-			 (mapcar #'get-cache-vector
-				 (make-list n :initial-element size)))))
-  (allocate 128 4)
-  (allocate 64 8)
-  (allocate 64 9)
-  (allocate 32 16)
-  (allocate 16 17)
-  (allocate 16 32)
-  (allocate 1  64))
+;;; (We used to pre-allocate generic function caches here, but we let
+;;; the GC deal with that stuff these days)