projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
`(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)
(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))
(dotimes (i (length metatypes))
- (push (dfun-arg-symbol i) lambda-list))
+ (push (dfun-arg-symbol i) reversed-lambda-list))
(when applyp
(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
\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)
;;; 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
(let ((n (car n-size))
(size (cadr n-size)))
(mapcar #'free-cache-vector