X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fpcl%2Fvector.lisp;h=9a1f11e9fe107a120abbad8c264c8d1a722359ca;hb=d0552bdb80b50eb2c600de19b89b2d7139c4841c;hp=26cc57056a967776c7b80158c606752ed4f4adff;hpb=2217cdb364e8b48c187b085895bb2a5cbdbd9622;p=sbcl.git

diff --git a/src/pcl/vector.lisp b/src/pcl/vector.lisp
index 26cc570..9a1f11e 100644
--- a/src/pcl/vector.lisp
+++ b/src/pcl/vector.lisp
@@ -232,8 +232,7 @@
 	       (pv-cell (cons pv calls))
 	       (new-cache (fill-cache cache pv-wrappers pv-cell)))
 	  (unless (eq new-cache cache)
-	    (setf (pv-table-cache pv-table) new-cache)
-	    (free-cache cache))
+	    (setf (pv-table-cache pv-table) new-cache))
 	  pv-cell))))
 
 (defun make-pv-type-declaration (var)
@@ -1076,8 +1075,9 @@
 			      req-args)))
       `(list*
 	:fast-function
-	(named-lambda
-	 ,(or (body-method-name body) '.method.) ; function name
+	(,(if (body-method-name body) 'named-lambda 'lambda)
+	 ,@(when (body-method-name body)
+	     (list (body-method-name body))) ; function name
 	 (.pv-cell. .next-method-call. ,@args+rest-arg) ; function args
 	 ;; body of the function
 	 (declare (ignorable .pv-cell. .next-method-call.))