/[cmucl]/src/compiler/checkgen.lisp
ViewVC logotype

Diff of /src/compiler/checkgen.lisp

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

revision 1.14 by ram, Wed Oct 17 03:52:02 1990 UTC revision 1.15 by wlott, Tue Nov 13 22:48:18 1990 UTC
# Line 34  Line 34 
34  (defun function-cost (name)  (defun function-cost (name)
35    (declare (symbol name))    (declare (symbol name))
36    (let ((info (info function info name))    (let ((info (info function info name))
37          (call-cost (template-cost (template-or-lose 'call-named))))          (call-cost (template-cost (template-or-lose 'call-named *backend*))))
38      (if info      (if info
39          (let ((templates (function-info-templates info)))          (let ((templates (function-info-templates info)))
40            (if templates            (if templates
41                (template-cost (first templates))                (template-cost (first templates))
42                (case name                (case name
43                  (null (template-cost (template-or-lose 'if-eq)))                  (null (template-cost (template-or-lose 'if-eq *backend*)))
44                  (t call-cost))))                  (t call-cost))))
45          call-cost)))          call-cost)))
46    

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

  ViewVC Help
Powered by ViewVC 1.1.5