From 61ff749580af94f05b5bd235358c1f388aaf147a Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 16 Apr 2020 20:49:14 -0500 Subject: readme, uiop --- imbricate.ros | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to '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)) -- cgit v1.2.3