Commit 3a8572a8 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Use utilities from asdf-utils, not asdf.

parent 43f6b340
......@@ -32,7 +32,7 @@
(defun conc-string (&rest rest)
"make a string by concatenating stuff"
(apply #'asdf:strcat (mapcar #'->string rest)))
(apply #'strcat (mapcar #'->string rest)))
))
(eval-now
......
......@@ -5,7 +5,7 @@
It contains a lot of basic everyday functions and macros,
but also a library of pure and stateful datastructures,
and Lisp extensions for memoization and reader interception."
:depends-on ((:version :asdf "2.019"))
:depends-on (:asdf-utils)
:components
((:file "package")
......
......@@ -41,7 +41,7 @@ of the directory of the given pathname"
(defun directory-name-p (name)
(and (stringp name)
(eql #\/ (asdf:last-char name))))
(eql #\/ (last-char name))))
(defun portable-pathname-string-component-char-p (c)
(declare (type character c))
......@@ -181,7 +181,7 @@ erroring out if some source of non-portability is found"
(and (consp directory) (eq (car directory) :absolute))))
(defun portable-namestring-absolute-p (namestring)
(eql (asdf:first-char namestring) #\/))
(eql (first-char namestring) #\/))
(defun portable-pathname-absolute-p (name)
(etypecase name
......@@ -220,10 +220,10 @@ erroring out if some source of non-portability is found"
(cond
((equal x "")
(error "empty namestring"))
((eql (asdf:last-char x) #\/)
((eql (last-char x) #\/)
(pathname x))
(t
(pathname (asdf:strcat x "/")))))
(pathname (strcat x "/")))))
(pathname
(if (or (pathname-name x)
(pathname-type x)
......
......@@ -10,7 +10,7 @@
|#
(defpackage #:fare-utils
(:use #:common-lisp) ;; #:asdf
(:use #:common-lisp #:asdf-utils)
#+genera (:import-from #:scl #:boolean)
;; #+clisp (:shadow :with-gensyms)
(:export
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment