From 3a6c976cd72da5fd20f0a612171e3610812a8d8a Mon Sep 17 00:00:00 2001 From: Colin Okay 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