collect, unix: Rename `mdw.collect' package to just `collect'.

diff --git a/collect.lisp b/collect.lisp
index caa691a3707dd4e0818b66680d62ff72e7d3c66d..813707e54e04e7bd825262ce24e02a71bea1f2f4 100644 (file)
--- a/collect.lisp
+++ b/collect.lisp
@@ -23,10 +23,10 @@
 ;;; 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.collect
+(defpackage #:collect

   (:use #:common-lisp #:mdw.base)
   (:export #:collecting #:with-collection #:collect))
   (:use #:common-lisp #:mdw.base)
   (:export #:collecting #:with-collection #:collect))

-(in-package mdw.collect)
+(in-package collect)

 
 (eval-when (:compile-toplevel :load-toplevel)
   (defvar *collecting-anon-list-name* (gensym)
 
 (eval-when (:compile-toplevel :load-toplevel)
   (defvar *collecting-anon-list-name* (gensym)

diff --git a/unix.lisp b/unix.lisp
index 106b8f2af379a57f116318c1d1198c66ba5a78eb..4465740c469193821de17897c75ee3b03714b6e7 100644 (file)
--- a/unix.lisp
+++ b/unix.lisp
@@ -24,7 +24,7 @@
 ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
 (defpackage #:mdw.unix
 ;;; Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
 (defpackage #:mdw.unix

-  (:use #:common-lisp #:mdw.base #:mdw.collect)
+  (:use #:common-lisp #:mdw.base #:collect)

   (:export #:unix-error #:errno-value #:with-errno-handlers
           #:syscall #:syscall*
           #:stat #:sys-stat
   (:export #:unix-error #:errno-value #:with-errno-handlers
           #:syscall #:syscall*
           #:stat #:sys-stat