Index: /branches/working-0711/ccl/library/dominance.lisp
===================================================================
--- /branches/working-0711/ccl/library/dominance.lisp	(revision 13492)
+++ /branches/working-0711/ccl/library/dominance.lisp	(revision 13493)
@@ -50,10 +50,4 @@
 
 (setq *core-info-class* 'core-graph)
-
-
-(defun open-core-graph (pathname &key image)
-  (let ((cg (%cons-cg)))
-    (open-core pathname :core-info cg :image image)
-    cg))
 
 (defparameter *cg-stages* '(nil :objects :leaves :postorder :predecessors :idoms :idom-sizes t))