59 |
(declare (fixnum bds-bind)) |
(declare (fixnum bds-bind)) |
60 |
(and *record-call-info* (record-call-info loc fname)) |
(and *record-call-info* (record-call-info loc fname)) |
61 |
(when (and (eq loc 'fun-val) |
(when (and (eq loc 'fun-val) |
62 |
|
(not (multiple-values-p)) |
63 |
(not (eq *value-to-go* 'return)) |
(not (eq *value-to-go* 'return)) |
64 |
(not (eq *value-to-go* 'top))) |
(not (eq *value-to-go* 'top))) |
65 |
(wt-nl) (reset-top)) |
(wt-nl) (reset-top)) |
66 |
(cond ((and (consp *value-to-go*) (eq (car *value-to-go*) 'jump-true)) |
(cond ((and (consp *value-to-go*) (eq (car *value-to-go*) 'jump-true)) |
67 |
(set-jump-true loc (cadr *value-to-go*)) |
(set-jump-true loc (cadr *value-to-go*)) |
68 |
(when (eq loc t) (return-from unwind-exit))) |
(when (eq loc t) (return-from unwind-exit))) |