From 61ff749580af94f05b5bd235358c1f388aaf147a Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Thu, 16 Apr 2020 20:49:14 -0500
Subject: readme, uiop

---
 README.org    | 2 +-
 imbricate.ros | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index cbbff7f..6440499 100644
--- a/README.org
+++ b/README.org
@@ -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))
-- 
cgit v1.2.3