diff options
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)) |