0.7.3.6:

[sbcl.git] / src / pcl / cache.lisp

diff --git a/src/pcl/cache.lisp b/src/pcl/cache.lisp
index 275b0ac..829a4b6 100644 (file)
--- a/src/pcl/cache.lisp
+++ b/src/pcl/cache.lisp
@@ -816,25 +816,23 @@
        `(function-funcall ,fn-variable ,@required))))
 
 (defun make-dfun-arg-list (metatypes applyp)
-  (let ((required
-         (let ((required nil))
-           (dotimes (i (length metatypes))
-             (push (dfun-arg-symbol i) required))
-           (nreverse required))))
+  (let ((required (let ((reversed-required nil))
+                   (dotimes (i (length metatypes))
+                     (push (dfun-arg-symbol i) reversed-required))
+                   (nreverse reversed-required))))
     (if applyp
        `(list* ,@required .dfun-rest-arg.)
        `(list ,@required))))
 
 (defun make-fast-method-call-lambda-list (metatypes applyp)
-  (let ((lambda-list nil))
-    (push '.pv-cell. lambda-list)
-    (push '.next-method-call. lambda-list)
+  (let ((reversed-lambda-list nil))
+    (push '.pv-cell. reversed-lambda-list)
+    (push '.next-method-call. reversed-lambda-list)
     (dotimes (i (length metatypes))
-      (push (dfun-arg-symbol i) lambda-list))
+      (push (dfun-arg-symbol i) reversed-lambda-list))
     (when applyp
-      (push '.dfun-rest-arg. lambda-list))
-    (nreverse lambda-list)))
-
+      (push '.dfun-rest-arg. reversed-lambda-list))
+    (nreverse reversed-lambda-list)))
 \f
 ;;;; a comment from some PCL implementor:
 ;;;;     Its too bad Common Lisp compilers freak out when you have a
@@ -1353,8 +1351,9 @@
 ;;; KLUDGE: Isn't something very similar going on in precom1.lisp? Do
 ;;; we need it both here and there? Why? -- WHN 19991203
 (eval-when (:load-toplevel)
-  (dolist (n-size '((1 513)(3 257)(3 129)(14 128)(6 65)(2 64)(7 33)(16 32)
-                   (16 17)(32 16)(64 9)(64 8)(6 5)(128 4)(35 2)))
+  (dolist (n-size '((1 513) (3 257) (3 129) (14 128) (6 65)
+                   (2 64) (7 33) (16 32) (16 17) (32 16)
+                   (64 9) (64 8) (6 5) (128 4) (35 2)))
     (let ((n (car n-size))
          (size (cadr n-size)))
       (mapcar #'free-cache-vector