Use IOLIB/ in package names

src/base/asdf.lisp

@@ -3,13 +3,14 @@
 ;;; --- ASDF component classes
 ;;;
 
-(defpackage :iolib.asdf
-  (:nicknames :iolib/asdf)
+(defpackage :iolib/asdf
+  (:nicknames :iolib.asdf)
   (:use :common-lisp)
   (:export #:compile-wrapper)
   #+sb-package-locks
   (:lock t))
-(in-package :iolib.asdf)
+
+(in-package :iolib/asdf)
 
 (defun compile-wrapper (continuation)
   (let ((*readtable* (copy-readtable))

src/base/conditions.lisp

@@ -3,7 +3,7 @@
 ;;; --- Error conditions.
 ;;;
 
-(in-package :iolib.base)
+(in-package :iolib/base)
 
 ;;;-------------------------------------------------------------------------
 ;;; Subtype Errors

src/base/debug.lisp

@@ -3,7 +3,7 @@
 ;;; --- Debug helpers.
 ;;;
 
-(in-package :iolib.base)
+(in-package :iolib/base)
 
 (defvar *safety-checks*
   #+iolib-debug t #-iolib-debug nil

src/base/defalias.lisp

@@ -3,7 +3,7 @@
 ;;; --- Creating aliases in CL namespaces
 ;;;
 
-(in-package :iolib.base)
+(in-package :iolib/base)
 
 (defvar *namespaces* nil)
 

src/base/deffoldable.lisp

@@ -3,7 +3,7 @@
 ;;; --- Declaring forms as foldable(pure)
 ;;;
 
-(in-package :iolib.base)
+(in-package :iolib/base)
 
 #+sbcl
 (defmacro %deffoldable (func argument-types return-type)

src/base/defobsolete.lisp

@@ -3,7 +3,7 @@
 ;;; --- Declaring forms as obsolete.
 ;;;
 
-(in-package :iolib.base)
+(in-package :iolib/base)
 
 (define-condition deprecation-warning (style-warning)
   ((function-name :initarg :function-name :reader deprecation-warning-function-name)

src/base/dynamic-buffer.lisp

@@ -3,7 +3,7 @@
 ;;; --- Read/write adjustable buffer.
 ;;;
 
-(in-package :iolib.base)
+(in-package :iolib/base)
 
 (defclass dynamic-buffer ()
   ((sequence     :initform nil :accessor sequence-of)

src/base/matching.lisp

@@ -3,7 +3,7 @@
 ;;; --- Match utils
 ;;;
 
-(in-package :iolib.base)
+(in-package :iolib/base)
 
 (defmacro multiple-value-case ((values &key (test 'eql)) &body body)
   (setf values (ensure-list values))

src/base/pkgdcl.lisp

@@ -3,11 +3,11 @@
 ;;; --- Package definition.
 ;;;
 
-(in-package :iolib.common-lisp-user)
+(in-package :iolib/common-lisp-user)
 
-(defpackage :iolib.base
-  (:nicknames :iolib/base)
-  (:extend/excluding :iolib.common-lisp
+(defpackage :iolib/base
+  (:nicknames :iolib.base)
+  (:extend/excluding :iolib/common-lisp
                      #:defun #:defmethod #:defmacro #:define-compiler-macro
                      #:constantp)
   (:extend :alexandria :split-sequence)

src/base/reader.lisp

@@ -3,7 +3,7 @@
 ;;; --- Reader utils
 ;;;
 
-(in-package :iolib.base)
+(in-package :iolib/base)
 
 ;; Literal object dispatcher
 

src/base/return-star.lisp

@@ -3,7 +3,7 @@
 ;;; --- RETURN* wrappers.
 ;;;
 
-(in-package :iolib.base)
+(in-package :iolib/base)
 
 (cl:defmacro defun (name args &body body)
   `(,(find-right-symbol :defun :series)
@@ -35,7 +35,7 @@
 (cl:defun find-right-symbol (name &rest packages)
   (multiple-value-bind (symbol foundp)
       (if (eql (find-symbol (string name) *package*)
-               (find-symbol (string name) :iolib.base))
+               (find-symbol (string name) :iolib/base))
           ;; NAME has been imported from IOLIB.UTILS, so we must
           ;; find a default somewhere else, defaulting to the CL package
           (find-symbol (string name) (find-right-package packages))

src/base/sequence.lisp

@@ -3,7 +3,7 @@
 ;;; --- Sequence utils
 ;;;
 
-(in-package :iolib.base)
+(in-package :iolib/base)
 
 (defmacro check-bounds (sequence start end)
   (with-gensyms (length)

src/base/time.lisp

@@ -3,7 +3,7 @@
 ;;; --- Time utils.
 ;;;
 
-(in-package :iolib.base)
+(in-package :iolib/base)
 
 (deftype timeout ()
   'double-float)

src/base/types.lisp

@@ -3,7 +3,7 @@
 ;;; --- Types.
 ;;;
 
-(in-package :iolib.base)
+(in-package :iolib/base)
 
 (deftype function-designator ()
   '(or symbol function))

src/conf/pkgdcl.lisp

@@ -3,7 +3,7 @@
 ;;; --- Package definition.
 ;;;
 
-(cl:defpackage :iolib.conf
-  (:nicknames :iolib/conf)
+(defpackage :iolib/conf
+  (:nicknames :iolib.conf)
   (:use :common-lisp)
   (:export #:load-gray-streams))

src/conf/requires.lisp

@@ -3,7 +3,7 @@
 ;;; --- Load all non-ASDF deps - usually implementation-specific REQUIREs
 ;;;
 
-(in-package :iolib.conf)
+(in-package :iolib/conf)
 
 (defun load-gray-streams ()
   #+(and allegro (not (version>= 9 0)))

src/grovel/asdf.lisp

@@ -28,7 +28,7 @@
 ;;; DEALINGS IN THE SOFTWARE.
 ;;;
 
-(in-package :iolib-grovel)
+(in-package :iolib/grovel)
 
 (defun ensure-pathname (thing)
   (if (typep thing 'logical-pathname)

src/grovel/grovel.lisp

@@ -28,7 +28,7 @@
 ;;; DEALINGS IN THE SOFTWARE.
 ;;;
 
-(in-package #:iolib-grovel)
+(in-package :iolib/grovel)
 
 ;;;# Utils
 

src/grovel/package.lisp

@@ -23,9 +23,11 @@
 ;;; DEALINGS IN THE SOFTWARE.
 ;;;
 
-(defpackage :iolib-grovel
-  (:nicknames :iolib/grovel)
-  (:use #:alexandria #:iolib/base)
+(in-package :iolib/common-lisp-user)
+
+(defpackage :iolib/grovel
+  (:nicknames :iolib-grovel)
+  (:use :alexandria :iolib/base)
   (:import-from #:cffi-sys #:native-namestring)
   (:export
    ;; Class name

src/iolib/pkgdcl.lisp

@@ -3,7 +3,7 @@
 ;;; --- Package definition.
 ;;;
 
-(in-package :common-lisp-user)
+(in-package :iolib/common-lisp-user)
 
 (macrolet
     ((defconduit (name &body clauses)
@@ -21,7 +21,7 @@
             (:export ,@(get-symbols (cdar clauses)))))))
 
   (defconduit :iolib
-    (:use :iolib.multiplex :iolib.streams :iolib.sockets)))
+    (:use :iolib/multiplex :iolib/streams :iolib/sockets)))
 
 ;; SBCL changes *package* if LOAD-OPing :iolib in the REPL
 t

src/multiplex/backend-epoll.lisp

@@ -3,7 +3,7 @@
 ;;; --- epoll(2) multiplexer implementation.
 ;;;
 
-(in-package :iolib.multiplex)
+(in-package :iolib/multiplex)
 
 (defconstant +epoll-priority+ 1)
 

src/multiplex/backend-kqueue.lisp

@@ -3,7 +3,7 @@
 ;;; --- kqueue(2) multiplexer implementation.
 ;;;
 
-(in-package :iolib.multiplex)
+(in-package :iolib/multiplex)
 
 (defconstant +kqueue-priority+ 1)
 

src/multiplex/backend-poll.lisp

@@ -3,7 +3,7 @@
 ;;; --- poll(2) multiplexer implementation.
 ;;;
 
-(in-package :iolib.multiplex)
+(in-package :iolib/multiplex)
 
 (defconstant +poll-priority+ 2)
 

src/multiplex/backend-select.lisp

@@ -3,7 +3,7 @@
 ;;; --- select(2) multiplexer implementation.
 ;;;
 
-(in-package :iolib.multiplex)
+(in-package :iolib/multiplex)
 
 (defconstant +select-priority+ 3)
 

src/multiplex/detect.lisp

@@ -3,7 +3,7 @@
 ;;; --- Detect available multiplexers.
 ;;;
 
-(in-package :iolib.multiplex)
+(in-package :iolib/multiplex)
 
 ;;; TODO: do real detecting here
 (setf *default-multiplexer*

src/multiplex/event-loop.lisp

@@ -3,7 +3,7 @@
 ;;; --- Main event loop.
 ;;;
 
-(in-package :iolib.multiplex)
+(in-package :iolib/multiplex)
 
 
 ;;;-------------------------------------------------------------------------

src/multiplex/fd-entry.lisp

@@ -3,7 +3,7 @@
 ;;; fd-entry.lisp --- FD event structure.
 ;;;
 
-(in-package :iolib.multiplex)
+(in-package :iolib/multiplex)
 
 ;;;; EVENT
 

src/multiplex/fd-wait.lisp

@@ -3,7 +3,7 @@
 ;;; --- Wait for events on single FDs.
 ;;;
 
-(in-package :iolib.multiplex)
+(in-package :iolib/multiplex)
 
 (define-condition poll-error (error)
   ((fd :initarg :fd :reader poll-error-fd)

src/multiplex/multiplexer.lisp

@@ -3,7 +3,7 @@
 ;;; --- Base class for multiplexers.
 ;;;
 
-(in-package :iolib.multiplex)
+(in-package :iolib/multiplex)
 
 (defvar *available-multiplexers* nil
   "An alist of (PRIORITY . MULTIPLEXER). Smaller values mean higher priority.")

src/multiplex/pkgdcl.lisp

@@ -3,11 +3,11 @@
 ;;; --- Package definition.
 ;;;
 
-(in-package :common-lisp-user)
+(in-package :iolib/common-lisp-user)
 
-(defpackage :iolib.multiplex
-  (:nicknames :iomux :iolib/multiplex)
-  (:use :iolib.base :cffi)
+(defpackage :iolib/multiplex
+  (:nicknames :iomux :iolib.multiplex)
+  (:use :iolib/base :cffi)
   (:export
    ;; Classes and Types
    #:timer

src/multiplex/queue.lisp

@@ -23,7 +23,7 @@
 ;;; OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
 ;;; WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-(in-package :iolib.multiplex)
+(in-package :iolib/multiplex)
 
 
 ;;;

src/multiplex/scheduler.lisp

@@ -23,7 +23,7 @@
 ;;; OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
 ;;; WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-(in-package :iolib.multiplex)
+(in-package :iolib/multiplex)
 
 ;;;
 ;;; Public interface

src/multiplex/timers.lisp

@@ -23,7 +23,7 @@
 ;;; OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
 ;;; WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-(in-package :iolib.multiplex)
+(in-package :iolib/multiplex)
 
 ;;;
 ;;; Timer

src/multiplex/utils.lisp

@@ -3,7 +3,7 @@
 ;;; --- Miscellaneous utilities.
 ;;;
 
-(in-package :iolib.multiplex)
+(in-package :iolib/multiplex)
 
 (defun timeout->timeval (timeout tv)
   (with-foreign-slots ((isys:sec isys:usec) tv isys:timeval)

src/new-cl/conduits.lisp

@@ -25,7 +25,7 @@
 ;;; !!! TODO: more of the package operators probably need to be shadowed
 ;;;           Errors should be signalled as subtypes of PACKAGE-ERROR
 
-(cl:defpackage :iolib.internal.conduits
+(defpackage :iolib/internal/conduits
   (:use :common-lisp)
   #+sb-package-locks
   (:lock t)
@@ -35,7 +35,7 @@
   ;; non-CL thing
   (:export #:recompute-conduits))
 
-(in-package :iolib.internal.conduits)
+(in-package :iolib/internal/conduits)
 
 ;;;; Hack to make the HP stuff `work' even when they are not loaded.
 ;;;

src/new-cl/definitions.lisp

@@ -3,7 +3,7 @@
 ;;; --- Various definers
 ;;;
 
-(in-package :iolib.common-lisp)
+(in-package :iolib/common-lisp)
 
 (defmacro defconstant (name value &optional documentation
                        &environment env)

src/new-cl/gray-streams.lisp

@@ -3,7 +3,7 @@
 ;;; --- GRAY stream mixin.
 ;;;
 
-(in-package :iolib.common-lisp)
+(in-package :iolib/common-lisp)
 
 (defclass trivial-gray-stream-mixin ()
   ((%open :initform t)))