safely, optparse: Rename packages.

diff --git a/optparse.lisp b/optparse.lisp
index a09c188..53bc41e 100644 (file)
--- 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 @@
           #: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 (file)
--- 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."