flanchan
/
cl-utils
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

name fix

Browse Source
master
Ringo Wantanabe 6 years ago
parent 7647011120
commit 2db7b4765f
No known key found for this signature in database
GPG Key ID: DDDD9B6759158726
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File

2
make-asdf-system
Unescape View File

@ -1,4 +1,4 @@
#!/bin/bash #!/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 echo

2
utils.lisp
Unescape View File

@ -40,7 +40,7 @@
contents))) contents)))
(export? file-get-contents) (export? file-get-contents)
(defun utils->system (input output &key (name :iflan-utils) (description "Some random utilities") (author "Ringo <flanchan@cumallover.me>") (license "None")) (defun utils->system (input output &key (name :flan-utils) (description "Some random utilities") (author "Ringo <flanchan@cumallover.me>") (license "None"))
"Write this file to an ASDF system." "Write this file to an ASDF system."
(let ((this (cadddr (read-from-string (file-get-contents input)))) (let ((this (cadddr (read-from-string (file-get-contents input))))
(sysdef `(asdf:defsystem ,name (sysdef `(asdf:defsystem ,name

Write Preview
Loading…
Cancel
Save