Use uiop:define-package.

fukamachi · Nov 17, 2023 · c9c1f99 · c9c1f99
1 parent 338f4e8
commit c9c1f99
Show file tree

Hide file tree

Showing 10 changed files with 8 additions and 18 deletions.
diff --git a/src/cache.lisp b/src/cache.lisp
@@ -1,5 +1,4 @@
-(in-package :cl-user)
-(defpackage datafly.cache
+(uiop:define-package datafly.cache
   (:use :cl
         :iterate
         :function-cache

diff --git a/src/datafly.lisp b/src/datafly.lisp
@@ -1,4 +1,3 @@
-(in-package :cl-user)
 (defpackage datafly
   (:use :cl)
   (:import-from :datafly.db

diff --git a/src/db.lisp b/src/db.lisp
@@ -1,5 +1,4 @@
-(in-package :cl-user)
-(defpackage :datafly.db
+(uiop:define-package :datafly.db
   (:use :cl
         :iterate
         :sxql

diff --git a/src/inflate.lisp b/src/inflate.lisp
@@ -1,5 +1,4 @@
-(in-package :cl-user)
-(defpackage datafly.inflate
+(uiop:define-package datafly.inflate
   (:use :cl
         :datafly.syntax)
   (:import-from :datafly.db

diff --git a/src/json.lisp b/src/json.lisp
@@ -1,5 +1,4 @@
-(in-package :cl-user)
-(defpackage datafly.json
+(uiop:define-package datafly.json
   (:use :cl
         :iterate
         :datafly.syntax)

diff --git a/src/logger.lisp b/src/logger.lisp
@@ -1,5 +1,4 @@
-(in-package :cl-user)
-(defpackage datafly.logger
+(uiop:define-package datafly.logger
   (:use :cl
         :datafly.syntax))
 (in-package datafly.logger)

diff --git a/src/model.lisp b/src/model.lisp
@@ -1,5 +1,4 @@
-(in-package :cl-user)
-(defpackage datafly.model
+(uiop:define-package datafly.model
   (:use :cl
         :optima
         :iterate

diff --git a/src/util.lisp b/src/util.lisp
@@ -1,5 +1,4 @@
-(in-package :cl-user)
-(defpackage datafly.util
+(uiop:define-package datafly.util
   (:use :cl
         :datafly.syntax))
 (in-package :datafly.util)

diff --git a/t/datafly.lisp b/t/datafly.lisp
@@ -1,5 +1,4 @@
-(in-package :cl-user)
-(defpackage datafly-test
+(uiop:define-package datafly-test
   (:use :cl
         :datafly
         :datafly.syntax

diff --git a/t/json.lisp b/t/json.lisp
@@ -1,4 +1,3 @@
-(in-package :cl-user)
 (defpackage datafly-test.json
   (:use :cl
         :datafly