From 6a4dcbbaaf4f75fceb402ea073eb33d32445bbcb Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sun, 8 May 2022 14:39:33 +0200
Subject: wajir.asd: Remove `in-package :asdf-user` and use namespace

It seems this is the same as before, but it makes it clearer what
symbols come from ASDF.

I had changed the file to use (in-package :asdf-user)` before when I was
trying to add the "lib/" directory to the source registry to try and see
if that made a difference for that problem.
---
 wajir.asd | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/wajir.asd b/wajir.asd
index 5d5c32d..1f95cf6 100644
--- a/wajir.asd
+++ b/wajir.asd
@@ -1,8 +1,6 @@
-(in-package :asdf-user)
-
 ;; Include the repo "lib/" directory in the system search path to make
 ;; available systems tracked as submodules.
-(initialize-source-registry
+(asdf:initialize-source-registry
   `(:source-registry
     (:tree ,(make-pathname :directory
                            (append
@@ -10,7 +8,7 @@
                              '("lib"))))
     :inherit-configuration))
 
-(defsystem wajir
+(asdf:defsystem wajir
   :version "0.0.1"
   :depends-on (:cl-base64
                :cl-smtp
@@ -28,5 +26,5 @@
   :entry-point "wajir")
 
 #+sb-core-compression
-(defmethod perform ((o image-op) (c system))
-  (uiop:dump-image (output-file o c) :executable t :compression t))
+(defmethod asdf:perform ((o asdf:image-op) (c asdf:system))
+  (uiop:dump-image (asdf:output-file o c) :executable t :compression t))
-- 
cgit v1.2.3