From 86b13fa5097df8966980a86de5280b6f33f81e6e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= <jtomas1815@gmail.com>
Date: Sun, 5 Feb 2023 23:50:28 -0300
Subject: Tidy up run arguments and defpackage

---
 cmamut.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cmamut.lisp b/cmamut.lisp
index c8d213f..4f39b05 100644
--- a/cmamut.lisp
+++ b/cmamut.lisp
@@ -245,10 +245,10 @@
                      :if-does-not-exist :create)
     (let ((*print-length* nil)
           (*print-level* nil))
-      (format f "(cl:defpackage ~s)~&" *target-package*)
+      (format f "(defpackage #~s)~&" *target-package*)
       (format f "~{~s~&~}" code))))
 
-(defun run (pkg input output &optional function-filter)
+(defun run (input output pkg &optional function-filter)
   (setf *target-package* pkg)
   (when (not (find-package *target-package*))
     (make-package *target-package*))
-- 
cgit v1.2.3