safely, optparse: Rename packages.

diff --git a/optparse.lisp b/optparse.lisp
index a09c188f3cc5cea9e0036965529426a1e074a5d8..53bc41e6543fa9e6cbe609431f1691c4a03087f8 100644 (file)
--- a/optparse.lisp
+++ b/optparse.lisp
@@ -26,7 +26,7 @@
 ;;;--------------------------------------------------------------------------
 ;;; Packages.
 
 ;;;--------------------------------------------------------------------------
 ;;; 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
   (: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))
 
           #:simple-usage #:show-usage #:show-version #:show-help
           #:sanity-check-option-list))
 

-(in-package #:mdw.optparse)
+(in-package #:optparse)

 
 ;;;--------------------------------------------------------------------------
 ;;; Standard error-reporting functions.
 
 ;;;--------------------------------------------------------------------------
 ;;; Standard error-reporting functions.

diff --git a/safely.lisp b/safely.lisp
index c78492a95851ad97fb4c168e4843467271a2baf8..abb2fb2412a0652830426dfb82e08e338afb85f6 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.
 
 ;;; 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))
   (: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."
 
 (defstruct (safely (:predicate safelyp))
   "Stores information about how to commit or undo safe writes."