Commit a3dace27 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Fix some tests on XCL (!)

parent 24483f02
......@@ -216,7 +216,7 @@ case "$lisp" in
eval="-eval" ;;
xcl)
command="${XCL:-xcl}"
flags="--no-userinit --no-siteinit"
flags="--no-userinit --no-siteinit --noinform"
eval="--eval" ;;
*)
echo "Unsupported lisp: $1" >&2
......
;;; -*- Lisp -*-
(def-test-system :test-concatenate-source
:depends-on (:file3-only)
:components
......@@ -18,6 +16,7 @@
(assert-pathnames-equal
(input-files mcso sys)
(loop :for n :in '(3 1 2) :collect (test-source (format nil "file~D.lisp" n))))
#-xcl ;; xcl has buggy translate-pathname
(assert-pathname-equal
(output-file mcso sys)
(apply-output-translations
......
......@@ -544,8 +544,9 @@ in an atomic way if the implementation allows."
#+sbcl #.(if-let (dd (find-symbol* :delete-directory :sb-ext nil))
`(,dd directory-pathname) ;; requires SBCL 1.0.44 or later
`(progn (require :sb-posix) (symbol-call :sb-posix :rmdir directory-pathname)))
#-(or abcl allegro clisp clozure cmu cormanlisp digitool ecl gcl lispworks sbcl scl)
(error "~S not implemented on ~S" 'delete-empty-directory (implementation-type))) ; genera xcl
#+xcl (symbol-call :uiop :run-program `("rmdir" ,(native-namestring directory-pathname)))
#-(or abcl allegro clisp clozure cmu cormanlisp digitool ecl gcl lispworks sbcl scl xcl)
(error "~S not implemented on ~S" 'delete-empty-directory (implementation-type))) ; genera
(defun delete-directory-tree (directory-pathname &key (validate nil validatep) (if-does-not-exist :error))
"Delete a directory including all its recursive contents, aka rm -rf.
......
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