Changeset 13493


Ignore:
Timestamp:
Mar 8, 2010, 9:07:55 AM (15 years ago)
Author:
gz
Message:

Actually get rid of open-core-graph

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/working-0711/ccl/library/dominance.lisp

    r13492 r13493  
    5050
    5151(setq *core-info-class* 'core-graph)
    52 
    53 
    54 (defun open-core-graph (pathname &key image)
    55   (let ((cg (%cons-cg)))
    56     (open-core pathname :core-info cg :image image)
    57     cg))
    5852
    5953(defparameter *cg-stages* '(nil :objects :leaves :postorder :predecessors :idoms :idom-sizes t))
Note: See TracChangeset for help on using the changeset viewer.