800 |
(declare (object vl types)) |
(declare (object vl types)) |
801 |
(cond ((eq (var-kind (car vl)) 'special) |
(cond ((eq (var-kind (car vl)) 'special) |
802 |
(push (cons (car vl) (var-loc (car vl))) specials)) |
(push (cons (car vl) (var-loc (car vl))) specials)) |
803 |
(t |
(t |
804 |
(setf (var-kind (car vl)) |
(setf (var-kind (car vl)) |
805 |
(case (promoted-c-type (car types)) |
(case (promoted-c-type (car types)) |
806 |
(fixnum 'FIXNUM) |
(fixnum 'FIXNUM) |
1020 |
(wt-nl "V" rest-var " = ") |
(wt-nl "V" rest-var " = ") |
1021 |
|
|
1022 |
(let ((*rest-on-stack* |
(let ((*rest-on-stack* |
1023 |
(or (eq (var-type (ll-rest ll)) :dynamic-extent) |
(or (/= (var-dynamic (ll-rest ll)) 0) |
1024 |
*rest-on-stack*))) |
*rest-on-stack*))) |
1025 |
(if (ll-keywords-p ll) |
(if (ll-keywords-p ll) |
1026 |
(cond (*rest-on-stack* |
(cond (*rest-on-stack* |