# HG changeset patch # User Steve Losh # Date 1478374613 0 # Node ID c3d408862ac3cc78fe474e8f21acedcbc948d4d6 # Parent 5504cf7fd38963f15a6e38b10492c6da4c2180b8 Rename diff -r 5504cf7fd389 -r c3d408862ac3 cl-directed-graph.asd --- a/cl-directed-graph.asd Sat Nov 05 19:34:10 2016 +0000 +++ b/cl-directed-graph.asd Sat Nov 05 19:36:53 2016 +0000 @@ -1,6 +1,6 @@ -(asdf:defsystem :cl-directed-graph - :name "directed-graph" - :description "Simple directed graphs in Common Lisp." +(asdf:defsystem :cl-digraph + :name "digraph" + :description "Simple directed graphs for Common Lisp." :author "Steve Losh " diff -r 5504cf7fd389 -r c3d408862ac3 package.lisp --- a/package.lisp Sat Nov 05 19:34:10 2016 +0000 +++ b/package.lisp Sat Nov 05 19:36:53 2016 +0000 @@ -1,4 +1,4 @@ -(defpackage :directed-graph - (:use :cl :directed-graph.quickutils) +(defpackage :digraph + (:use :cl :digraph.quickutils) (:export)) diff -r 5504cf7fd389 -r c3d408862ac3 src/directed-graph.lisp --- a/src/directed-graph.lisp Sat Nov 05 19:34:10 2016 +0000 +++ b/src/directed-graph.lisp Sat Nov 05 19:36:53 2016 +0000 @@ -1,4 +1,4 @@ -(in-package :directed-graph) +(in-package :digraph) ;;;; Data --------------------------------------------------------------------- diff -r 5504cf7fd389 -r c3d408862ac3 vendor/make-quickutils.lisp --- a/vendor/make-quickutils.lisp Sat Nov 05 19:34:10 2016 +0000 +++ b/vendor/make-quickutils.lisp Sat Nov 05 19:36:53 2016 +0000 @@ -20,4 +20,4 @@ :with-gensyms ) - :package "DIRECTED-GRAPH.QUICKUTILS") + :package "DIGRAPH.QUICKUTILS") diff -r 5504cf7fd389 -r c3d408862ac3 vendor/quickutils-package.lisp --- a/vendor/quickutils-package.lisp Sat Nov 05 19:34:10 2016 +0000 +++ b/vendor/quickutils-package.lisp Sat Nov 05 19:36:53 2016 +0000 @@ -1,10 +1,10 @@ (eval-when (:compile-toplevel :load-toplevel :execute) - (unless (find-package "DIRECTED-GRAPH.QUICKUTILS") - (defpackage "DIRECTED-GRAPH.QUICKUTILS" + (unless (find-package "DIGRAPH.QUICKUTILS") + (defpackage "DIGRAPH.QUICKUTILS" (:documentation "Package that contains Quickutil utility functions.") (:use :cl)))) -(in-package "DIRECTED-GRAPH.QUICKUTILS") +(in-package "DIGRAPH.QUICKUTILS") ;; need to define this here so sbcl will shut the hell up about it being ;; undefined when compiling quickutils.lisp. computers are trash. diff -r 5504cf7fd389 -r c3d408862ac3 vendor/quickutils.lisp --- a/vendor/quickutils.lisp Sat Nov 05 19:34:10 2016 +0000 +++ b/vendor/quickutils.lisp Sat Nov 05 19:36:53 2016 +0000 @@ -2,15 +2,15 @@ ;;;; See http://quickutil.org for details. ;;;; To regenerate: -;;;; (qtlc:save-utils-as "quickutils.lisp" :utilities '(:COMPOSE :CURRY :DOHASH :ENSURE-BOOLEAN :ENSURE-GETHASH :ENSURE-LIST :HASH-TABLE-KEYS :MAPHASH-KEYS :MKSTR :ONCE-ONLY :RCURRY :REMOVEF :SYMB :WITH-GENSYMS) :ensure-package T :package "DIRECTED-GRAPH.QUICKUTILS") +;;;; (qtlc:save-utils-as "quickutils.lisp" :utilities '(:COMPOSE :CURRY :DOHASH :ENSURE-BOOLEAN :ENSURE-GETHASH :ENSURE-LIST :HASH-TABLE-KEYS :MAPHASH-KEYS :MKSTR :ONCE-ONLY :RCURRY :REMOVEF :SYMB :WITH-GENSYMS) :ensure-package T :package "DIGRAPH.QUICKUTILS") (eval-when (:compile-toplevel :load-toplevel :execute) - (unless (find-package "DIRECTED-GRAPH.QUICKUTILS") - (defpackage "DIRECTED-GRAPH.QUICKUTILS" + (unless (find-package "DIGRAPH.QUICKUTILS") + (defpackage "DIGRAPH.QUICKUTILS" (:documentation "Package that contains Quickutil utility functions.") (:use #:cl)))) -(in-package "DIRECTED-GRAPH.QUICKUTILS") +(in-package "DIGRAPH.QUICKUTILS") (when (boundp '*utilities*) (setf *utilities* (union *utilities* '(:MAKE-GENSYM-LIST :ENSURE-FUNCTION