From f8316ee0bea8b7a340c774e0bdacce4292a73673 Mon Sep 17 00:00:00 2001
From: Adlai Chandrasekhar <adlai.chandrasekhar@gmail.com>
Date: Mon, 18 Nov 2024 09:09:16 +0200
Subject: [PATCH] Eliminate SBCL compilation warning

---
 disjoint-sets.lisp | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/disjoint-sets.lisp b/disjoint-sets.lisp
index d84f5e0..94d90d9 100644
--- a/disjoint-sets.lisp
+++ b/disjoint-sets.lisp
@@ -11,12 +11,7 @@ Said otherwise: a set is identified by the id of its root set.
 
 |#
 
-(cl:in-package #:cl-user)
-
-(defpackage #:disjoint-sets
-  (:use #:cl))
-
-(in-package #:disjoint-sets)
+(cl:in-package #:disjoint-sets)
 
 (defun make-disjoint-sets (&optional number-of-sets)
   "Create a set of sets represented as an array.