diff options
| author | Colin Okay <cbeok@protonmail.com> | 2020-04-16 20:49:14 -0500 |
|---|---|---|
| committer | Colin Okay <cbeok@protonmail.com> | 2020-04-16 20:49:14 -0500 |
| commit | 3a6c976cd72da5fd20f0a612171e3610812a8d8a (patch) | |
| tree | 9065603fc6977af731cfb151db5ce4ffff307acf | |
| parent | e5e35d2c19e2a1df9e4740d2244a9cc94300d7c5 (diff) | |
readme, uiop
| -rw-r--r-- | README.org | 2 | ||||
| -rwxr-xr-x | imbricate.ros | 4 |
2 files changed, 3 insertions, 3 deletions
@@ -175,7 +175,7 @@ $ cat dpad-index.json # this is after M-x json-pretty-print-buffer in emacs Assuming that you have [[https://github.com/roswell/roswell][roswell]] installed: : $ ros use sbcl -: $ git clone https://github.com/thegoofist/imbricate.git +: $ git clone https://github.com/cbeo/imbricate.git : $ cd imbricate.git : $ ros build imbricate.ros diff --git a/imbricate.ros b/imbricate.ros index 40cb9bf..694d2dd 100755 --- a/imbricate.ros +++ b/imbricate.ros @@ -5,7 +5,7 @@ exec ros -Q -- $0 "$@" |# (progn ;;init forms (ros:ensure-asdf) - #+quicklisp(ql:quickload '(cl-fad opticl jonathan) :silent t) + #+quicklisp(ql:quickload '(cl-fad opticl jonathan uiop) :silent t) ) (defpackage :ros.script.imbricate.3764151058 @@ -93,7 +93,7 @@ exec ros -Q -- $0 "$@" (defun packlist->tile-index (packlist) "renames the path in the packlist to a nicer name for referring toa tile location" - (let ((strip-index (1+ (length (sb-posix:getcwd))))) + (let ((strip-index (length (princ-to-string (uiop:getcwd))))) (mapcar #'(lambda (pl) (remf pl :img) (let ((name (substitute #\. #\/ (subseq (namestring (getf pl :path)) |