Skip to content
Snippets Groups Projects
Commit 74711909 authored by Robert Swindells's avatar Robert Swindells
Browse files

Merge branch 'master' of ssh://common-lisp.net/cmucl/cmucl

parents 241dccfc b5598138
No related branches found
No related tags found
No related merge requests found
......@@ -1125,7 +1125,7 @@ optionally keeping some of the most recent old versions."
(let ((*ignore-wildcards* t))
(mapcar #'(lambda (name)
(let ((name (if (and check-for-subdirs
(eq (unix:unix-file-kind name)
(eq (unix:unix-file-kind name (not follow-links))
:directory))
(concatenate 'string name "/")
name)))
......
========================== C M U C L 21 a =============================
[Work in progress]
========================== C M U C L 21 b =============================
The CMUCL project is pleased to announce the release of CMUCL 21b.
This is a major release which contains numerous enhancements and
......@@ -76,6 +74,9 @@ New in this release:
clang). (See ticket #12.)
* Cleanups in handling floating-point exceptions. See Tickets #15
and #16.
* DIRECTORY with :FOLLOW-LINKS T (and :TRUENAME NIL) will follow
directory links. Previously, the directories that were links
weren't followed.
* Trac Tickets:
......
......@@ -12,6 +12,12 @@
(declare (ignore arg))
form)
(defparameter *test-path*
(merge-pathnames (make-pathname :name :unspecific :type :unspecific
:version :unspecific)
*load-truename*)
"Directory for temporary test files.")
(define-test issue.1.a
(:tag :issues)
(assert-equal
......@@ -321,3 +327,23 @@
(assert-error 'kernel:simple-program-error
(ext:run-program "cat" nil
:before-execve t)))
(define-test mr.15
(:tag :issues)
(let (directories files)
(dolist (entry (directory (merge-pathnames "resources/mr.15/*.*" *test-path*)
:check-for-subdirs t
:follow-links nil
:truenamep nil))
(let ((filename (pathname-name entry))
(directory (first (last (pathname-directory entry)))))
(if filename
(push filename files)
(push directory directories))))
(assert (null (set-difference files
'("file" "link-to-dir"
"link-to-dir-in-dir" "link-to-file")
:test #'string-equal)))
(assert (null (set-difference directories
'(".dir" "dir")
:test #'string-equal)))))
;; Test case from issue #24.
(defun foo ()
(print "Hello world"))
(compile 'foo)
dir
\ No newline at end of file
dir/dir-in-dir
\ No newline at end of file
file
\ No newline at end of file
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment