From: Mark Wooding <mdw@distorted.org.uk>
Date: Thu, 20 Apr 2006 13:50:43 +0000 (+0100)
Subject: safely, optparse: Rename packages.
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/lisp/commitdiff_plain/0b3651e569cc085b532a495570eacd5af7db3c21?ds=sidebyside

safely, optparse: Rename packages.
---

diff --git a/optparse.lisp b/optparse.lisp
index a09c188..53bc41e 100644
--- a/optparse.lisp
+++ b/optparse.lisp
@@ -26,7 +26,7 @@
 ;;;--------------------------------------------------------------------------
 ;;; Packages.
 
-(defpackage #:mdw.optparse
+(defpackage #:optparse
   (:use #:common-lisp #:mdw.base #:mdw.sys-base #:mdw.str)
   (:export #:exit #:*program-name* #:*command-line-strings*
 	   #:moan #:die
@@ -46,7 +46,7 @@ (defpackage #:mdw.optparse
 	   #:simple-usage #:show-usage #:show-version #:show-help
 	   #:sanity-check-option-list))
 
-(in-package #:mdw.optparse)
+(in-package #:optparse)
 
 ;;;--------------------------------------------------------------------------
 ;;; Standard error-reporting functions.
diff --git a/safely.lisp b/safely.lisp
index c78492a..abb2fb2 100644
--- a/safely.lisp
+++ b/safely.lisp
@@ -23,12 +23,12 @@
 ;;; along with this program; if not, write to the Free Software Foundation,
 ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
-(defpackage #:mdw.safely
+(defpackage #:safely
   (:use #:common-lisp #:mdw.base #:mdw.unix)
   (:export #:safely #:safely-close #:safely-delete-file
 	   #:safely-open-output-stream #:safely-bail #:safely-commit
 	   #:safely-writing))
-(in-package #:mdw.safely)
+(in-package #:safely)
 
 (defstruct (safely (:predicate safelyp))
   "Stores information about how to commit or undo safe writes."