projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.9.11: even faster SLOT-VALUE &co
[sbcl.git]
/
tests
/
side-effectful-pathnames.test.sh
diff --git
a/tests/side-effectful-pathnames.test.sh
b/tests/side-effectful-pathnames.test.sh
index
780f11d
..
b2236e6
100644
(file)
--- a/
tests/side-effectful-pathnames.test.sh
+++ b/
tests/side-effectful-pathnames.test.sh
@@
-71,8
+71,8
@@
$SBCL <<EOF
(let ((rel-name #p"foo/bar/")
(abs-name (merge-pathnames #p"baz/quux/" (truename "."))))
(and
(let ((rel-name #p"foo/bar/")
(abs-name (merge-pathnames #p"baz/quux/" (truename "."))))
(and
- (ensure-directories-exist abs-name)
- (ensure-directories-exist rel-name)
+ (equalp (ensure-directories-exist abs-name) abs-name)
+ (equalp (ensure-directories-exist rel-name) rel-name)
(sb-ext:quit :unix-status 52)))
EOF
if [ $? != 52 ]; then
(sb-ext:quit :unix-status 52)))
EOF
if [ $? != 52 ]; then