266 |
(cond ((and fname (symbolp fname)) |
(cond ((and fname (symbolp fname)) |
267 |
(add-callee fname))) |
(add-callee fname))) |
268 |
(cond ((eq loc 'record-call-info) (return-from record-call-info nil))) |
(cond ((eq loc 'record-call-info) (return-from record-call-info nil))) |
269 |
(case *value-to-go* |
(case (if (multiple-values-p) 'top *value-to-go*) |
270 |
(return |
(return |
271 |
(if (eq loc 'fun-val) |
(if (eq loc 'fun-val) |
272 |
(add-value-type nil (or fname 'unknown-values)) |
(add-value-type nil (or fname 'unknown-values)) |
275 |
(add-value-type 'fixnum nil)) |
(add-value-type 'fixnum nil)) |
276 |
(return-object |
(return-object |
277 |
(add-value-type t nil)) |
(add-value-type t nil)) |
278 |
|
(top (setq *top-data* (cons fname nil))))) |
|
(top (setq *top-data* (cons fname nil)) |
|
|
)) |
|
|
) |
|
279 |
|
|
280 |
(defun list-undefined-functions (&aux undefs) |
(defun list-undefined-functions (&aux undefs) |
281 |
(sloop::sloop for (name fn) in-table *call-table* |
(sloop::sloop for (name fn) in-table *call-table* |