From 2db7b4765fde8fd390e40154552beefcb5dc9a5f Mon Sep 17 00:00:00 2001 From: Ringo Wantanabe Date: Tue, 22 Jan 2019 17:57:09 +0000 Subject: [PATCH] name fix --- make-asdf-system | 2 +- utils.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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