diff options
| author | Juan Manuel Tomás <jtomas1815@gmail.com> | 2023-02-05 23:50:28 -0300 |
|---|---|---|
| committer | Juan Manuel Tomás <jtomas1815@gmail.com> | 2023-02-05 23:50:28 -0300 |
| commit | 86b13fa5097df8966980a86de5280b6f33f81e6e (patch) | |
| tree | d08c98d76c40f4b8f29c0a1d93eb64eee3e32b44 | |
| parent | a03fc957185a0a409432d9bc8364c25fb3ff4af4 (diff) | |
| download | cmamut-86b13fa5097df8966980a86de5280b6f33f81e6e.tar.gz cmamut-86b13fa5097df8966980a86de5280b6f33f81e6e.zip | |
Tidy up run arguments and defpackage
| -rw-r--r-- | cmamut.lisp | 4 |
1 files 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*)) |