Quicklisp doesn't have quicklisp
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Mon, 21 Nov 2016 14:32:49 +0000 |
| parents |
6de791e0fdd5
|
| children |
12700a8dbc35
|
| branches/tags |
(none) |
| files |
src/directed-graph.lisp |
Changes
--- 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`.