From 86b13fa5097df8966980a86de5280b6f33f81e6e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= 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(-) (limited to 'cmamut.lisp') 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