diff --git a/test/file1.lisp b/test/file1.lisp index 3612a2bac5c73f94f6ba05a742e5d1f0ec9c8716..e6b63ac79b2d30017b56b480a75c88c884b2c321 100644 --- a/test/file1.lisp +++ b/test/file1.lisp @@ -1,4 +1,3 @@ (defpackage :test-package (:use :cl)) (in-package :test-package) (defvar *file1* t) - diff --git a/test/script-support.lisp b/test/script-support.lisp index 433611f5a9a1f7de4b11cc9e42a45824d7bd2dce..a007b3a8cd090af8972b914bb7ec2538cc3b4f2c 100644 --- a/test/script-support.lisp +++ b/test/script-support.lisp @@ -44,6 +44,13 @@ #+allegro (setf excl:*warn-on-nested-reader-conditionals* nil) +(defun native-namestring (x) + (let* ((p (pathname x))) + #+clozure (ccl:native-translated-namestring p) + #+(or cmu scl) (ext:unix-namestring p) + #+sbcl (sb-ext:native-namestring p) + #-(or clozure cmu sbcl scl) (namestring p))) + ;;; code adapted from cl-launch http://www.cliki.net/cl-launch (defun leave-lisp (message return) (fresh-line *error-output*) diff --git a/test/test-multiple.script b/test/test-multiple.script index e5d4cd184a10a6627215cb849271c0578b693cb4..2cd85838eae6e13ca56c60a42a0197e9f8bae6ac 100644 --- a/test/test-multiple.script +++ b/test/test-multiple.script @@ -13,8 +13,8 @@ (setf asdf:*central-registry* `(*default-pathname-defaults* ,tmp)) (assert (= 0 (asdf:run-shell-command (format nil "/bin/ln -sf ~A ~A" - (#-scl namestring #+scl ext:unix-namestring asd) - (#-scl namestring #+scl ext:unix-namestring asd2 #+scl nil))))) + (native-namestring asd) + (native-namestring asd2))))) (asdf:oos 'asdf:load-source-op 'test-multiple-too) (assert (symbol-value (find-symbol (string :*file3*) :test-package))) (asdf:load-system 'test-multiple-free) diff --git a/test/test.lisp b/test/test.lisp index b72db4bc5204d420bf864dfcfac247ae1341143b..54d513487f4df55638b9ded323a8558e1374bfc3 100644 --- a/test/test.lisp +++ b/test/test.lisp @@ -1,4 +1,8 @@ ;;;; Example lisp code. +(in-package :cl-user) (defun tst (x) (1+ x)) + +(defun add10 (x) + (+ x 10)) diff --git a/test/test3.script b/test/test3.script index a8bdcee15c9090fea62b5cd2bf77e30c13fc9b61..f3e42abae7521fbc926e2d30c2004c7354739c93 100644 --- a/test/test3.script +++ b/test/test3.script @@ -6,8 +6,8 @@ (cl-user::quit-on-error (let* ((fasl1 (asdf:compile-file-pathname* (truename "file1.lisp"))) (fasl2 (asdf:compile-file-pathname* (truename "file2.lisp"))) - (ns1 (#-scl namestring #+scl ext:unix-namestring fasl1)) - (ns2 (#-scl namestring #+scl ext:unix-namestring fasl2))) + (ns1 (native-namestring fasl1)) + (ns2 (native-namestring fasl2))) (asdf:run-shell-command "rm -f ~A ~A" ns1 ns2) (setf asdf:*central-registry* '(*default-pathname-defaults*)) #-gcl