/[gcl]/gcl/cmpnew/gcl_collectfn.lsp
ViewVC logotype

Diff of /gcl/cmpnew/gcl_collectfn.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by camm, Thu Jul 15 23:01:33 2004 UTC revision 1.4 by camm, Thu Sep 16 21:08:18 2004 UTC
# Line 266  Line 266 
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))
# Line 275  Line 275 
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*

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26