diff --git a/make-asdf-system b/make-asdf-system index dd1a6a3..9c16e62 100755 --- a/make-asdf-system +++ b/make-asdf-system @@ -1,4 +1,4 @@ #!/bin/bash -sbcl --eval "(progn (asdf:load-system :cl-ppcre) (load \"utils.lisp\") (print (utils->system \"utils.lisp\" \"utils/utils\")) (quit))" +sbcl --eval "(progn (asdf:load-system :cl-ppcre) (load \"utils.lisp\") (print (utils->system \"utils.lisp\" \"utils/flan-utils\")) (quit))" echo diff --git a/utils.lisp b/utils.lisp index 3ddac2d..6672808 100644 --- a/utils.lisp +++ b/utils.lisp @@ -40,7 +40,7 @@ contents))) (export? file-get-contents) -(defun utils->system (input output &key (name :iflan-utils) (description "Some random utilities") (author "Ringo ") (license "None")) +(defun utils->system (input output &key (name :flan-utils) (description "Some random utilities") (author "Ringo ") (license "None")) "Write this file to an ASDF system." (let ((this (cadddr (read-from-string (file-get-contents input)))) (sysdef `(asdf:defsystem ,name