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 /imbricate.ros | |
| parent | e5e35d2c19e2a1df9e4740d2244a9cc94300d7c5 (diff) | |
readme, uiop
Diffstat (limited to 'imbricate.ros')
| -rwxr-xr-x | imbricate.ros | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |