From 193945e95a9623941df30ea8457b652d66e12d94 Mon Sep 17 00:00:00 2001 From: SANO Masatoshi Date: Wed, 19 Apr 2017 14:06:53 +0200 Subject: [PATCH] ros install ffcall+ use github taged archive. --- lisp/install+ffcall.lisp | 6 +++--- lisp/locations.lisp | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/install+ffcall.lisp b/lisp/install+ffcall.lisp index d89eb8e..cafb4ea 100644 --- a/lisp/install+ffcall.lisp +++ b/lisp/install+ffcall.lisp @@ -4,12 +4,12 @@ (:export :*ffcall-version*)) (in-package :roswell.install.ffcall+) -(defvar *ffcall-version* "1.10") +(defvar *ffcall-version* "ffcall-1-10") (defun ffcall-setup (argv) - (let* ((uri (format nil "~Affcall-~A.tar.gz" (ffcall-uri) *ffcall-version*)) + (let* ((uri (format nil "~A~A.tar.gz" (ffcall-uri) *ffcall-version*)) (pos (position #\/ uri :from-end t)) (path (merge-pathnames (format nil "archives/~A" (subseq uri (1+ pos))) (homedir))) - (expand-dir (merge-pathnames (format nil "src/ffcall-~A/" *ffcall-version*) (homedir))) + (expand-dir (merge-pathnames (format nil "src/libffcall-~A/" *ffcall-version*) (homedir))) (prefix (merge-pathnames (format nil "lib/~A/~A/~A/~A/" (uname-m) (uname) "ffcall" *ffcall-version*) (homedir))) (logdir (ensure-directories-exist (merge-pathnames "impls/log/ffcall/" (homedir))))) (if (or (not (probe-file path)) diff --git a/lisp/locations.lisp b/lisp/locations.lisp index 220510f..7da4a12 100644 --- a/lisp/locations.lisp +++ b/lisp/locations.lisp @@ -23,8 +23,8 @@ (defuri cmu-bin-uri "https://common-lisp.net/project/cmucl/downloads/") (defuri quicklisp-uri "http://beta.quicklisp.org/") -(defuri ffcall-uri "https://github.com/roswell/ffcall/releases/download/ffcall-1-10/") - +(defuri ffcall-uri "https://github.com/roswell/libffcall/archive/") + (defuri sigsegv-uri "http://ftpmirror.gnu.org/libsigsegv/") (defuri msys2-uri "http://kent.dl.sourceforge.net/project/")