# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1479738769 0
# Node ID a8e88620b62ce7b3a0555b93b7ffee18a95d0908
# Parent  6de791e0fdd5b3f1bfb8117e7c2bf605bbbacad3
Quicklisp doesn't have quicklisp

diff -r 6de791e0fdd5 -r a8e88620b62c src/directed-graph.lisp
--- a/src/directed-graph.lisp	Sun Nov 20 15:42:05 2016 +0000
+++ b/src/directed-graph.lisp	Mon Nov 21 14:32:49 2016 +0000
@@ -268,16 +268,6 @@
     result))
 
 
-(defun dump (digraph)
-  "Don't use this."
-  (format t "Digraph :TEST ~A~%:CONTENTS " (digraph-test digraph))
-  (finish-output)
-  (ql:quickload :losh :silent t)
-  (funcall (intern "PRINT-HASH-TABLE" (find-package :losh))
-           (digraph-nodes digraph))
-  (values))
-
-
 ;;;; Copying ------------------------------------------------------------------
 (defun copy-digraph (digraph)
   "Create a fresh copy of `digraph`.