Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Implement QL-IMPL-UTIL:DIRECTORY-ENTRIES for ECL.

Per an email discussion with Juanjo, work with the current semantics
of ECL to get the job done.
  • Loading branch information...
commit 991790134372526c8e6bb68552eb14d618be44cf 1 parent 73bb65d
Zach Beane xach authored
Showing with 6 additions and 3 deletions.
  1. +6 −3 impl-util.lisp
9 impl-util.lisp
View
@@ -210,9 +210,12 @@ quicklisp at CL startup."
#+lispworks :directories #+lispworks t
#+lispworks :link-transparency #+lispworks nil))
(:implementation ecl
- (declare (ignore directory))
- (warn "ECL does not support full directory listing")
- nil)
+ (setf directory (truename directory))
+ (nconc
+ (directory (merge-pathnames *wild-entry* directory)
+ #+ecl :resolve-symlinks #+ecl nil)
+ (directory (merge-pathnames *wild-relative* directory)
+ #+ecl :resolve-symlinks #+ecl nil)))
(:implementation sbcl
(directory (merge-pathnames *wild-entry* directory)
#+sbcl :resolve-symlinks #+sbcl nil)))
Please sign in to comment.
Something went wrong with that request. Please try again.