asdf-devel

asdf-devel@common-lisp.net

5 participants
1375 discussions

[asdf-devel] Please test asdf 2.018.20
by Faré 22 Nov '11

22 Nov '11

Thanks a lot to all who have tested 2.018.x and found bugs (Nikodemus Siivola, Desmond O. Chang, Robert Goldman, Douglas Crosher). Here is ASDF 2.018.20, the latest release candidate for 2.019, that I'd like to release this weekend. Changes since previous release candidate 2.018.15: * Bug fix: don't redefine reinitialize-instance in ways that break its contract and its clients (such as asdf-dependency-grovel). Use change-class to reset slots (.16), but not to 'standard-object, which breaks ecl, rather to a proto-system class (.19). * Bug fix: don't drop pathname components without a / at the end when reading a path using GETENV (.18). Fixes debbugs #647544. * Portability: fix type declaration for SCL (.17). * Upgrade: unintern some more functions that have changed signature (.20). And since 2.018: * Portability: debugged CormanLisp support (.1) * Usability: when a system can't be found, there's now a restart to retry finding a system after reinitializing the source-registry (.10). * UI: Create and use a load-systems abstraction, in view of using it in a system-granular parallelizing backend. (.15) * Feature: :around-compile now accepts lambda expressions, and also strings, so you can specify future wrappers that can't even be read yet. (.11, .12). * Filesystem: recursing through logical pathnames in LispWorks (.2, .3), on SBCL as on CMUCL, have asdf:subdirectories follow symlinks (.8., .9) * Internals: strcat (.5), split locate-systems from find-systems (.6) * Configuration: modify user-configuration-directories and system-configuration-directories to return all valid directory names even when they don't exist yet so you may create them (.6), also output name of non-existing configuration file when opening them for writing (.7), * Fixed bugs: buglet in maybe-add-tree (.4) * Upgrade: unintern internals of signature changed in 2.017.12 (.13), have *system-definition-search-functions* not be a defparameter, but a defvar with a fixup (.14), clear *systems-being-defined* when upgrading asdf but re-find them immediately because they may be needed as part of a higher operation (.14). —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org The Feynman problem solving Algorithm 1) Write down the problem 2) Think real hard 3) Write down the answer Murray Gell-mann in the NY Times

2 5

[asdf-devel] Please test asdf 2.018.15
by Faré 21 Nov '11

21 Nov '11

I'd like to release ASDF 2.019 next week. Can you test 2.018.15? Here are the changes since 2.018: * Portability: debugged CormanLisp support (.1) * Usability: when a system can't be found, there's now a restart to retry finding a system after reinitializing the source-registry (.10). * UI: Create and use a load-systems abstraction, in view of using it in a system-granular parallelizing backend. (.15) * Feature: :around-compile now accepts lambda expressions, and also strings, so you can specify future wrappers that can't even be read yet. (.11, .12). * Filesystem: recursing through logical pathnames in LispWorks (.2, .3), on SBCL as on CMUCL, have asdf:subdirectories follow symlinks (.8., .9) * Internals: strcat (.5), split locate-systems from find-systems (.6) * Configuration: modify user-configuration-directories and system-configuration-directories to return all valid directory names even when they don't exist yet so you may create them (.6), also output name of non-existing configuration file when opening them for writing (.7), * Fixed bugs: buglet in maybe-add-tree (.4) * Upgrade: unintern internals of signature changed in 2.017.12 (.13), have *system-definition-search-functions* not be a defparameter, but a defvar with a fixup (.14), clear *systems-being-defined* when upgrading asdf but re-find them immediately because they may be needed as part of a higher operation (.14). —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org To converse at the distance of the Indes by means of sympathetic contrivances may be as natural to future times as to us is a literary correspondence. — Joseph Glanvill, 1661

2 3

[asdf-devel] Recent pull of ASDF fails tests on ECL
by Robert Goldman 21 Nov '11

21 Nov '11

Running make test-all, I get the following: Using ecl -norc -load sys:cmp Ran 36 tests: 5 passing and 31 failing failing test(s): asdf-pathname-test.script test-around-compile.script test-builtin-source-file-type.script test-compile-file-failure.script test-configuration.script test-force.script test-missing-lisp-file.script test-module-depend.script test-module-excessive-depend.script test-module-pathnames.script test-multiple.script test-nested-components.script test-package.script test-redundant-recompile.script test-retry-loading-component-1.script test-samedir-modules.script test-source-file-type.script test-static-and-serial.script test-sysdef-asdf.script test-system-pathnames.script test-touch-system-1.script test-touch-system-2.script test-try-recompiling-1.script test-version.script test-xach-update-bug.script test1.script test2.script test3.script test4.script test9.script wild-module.script -#--------------------------------------- ECL: > (lisp-implementation-version) "11.1.1" > (software-version) "10.8.0" > (machine-type) "intel-mac" Mac OS X 10.6.8 Could this be an error that comes from getting rid of VERSION somehow in the latest patch? Tried this using run-test on asdf-pathname-test.script and see a lot of lines like the following: sysdef: (ASDF:DEFSYSTEM :SYSTEM1 :PATHNAME #P"ASDFTEST:SYSTEM1;" :COMPONENTS ((:MODULE :MODULE1 :PATHNAME #P"ASDFTEST:SYSTEM2;MODULE4;" :COMPONENTS ((:FILE "file" :PATHNAME #P"ASDFTEST:SYSTEM2;MODULE4;FILE.LISP") (:FILE "module2/file" :PATHNAME #P"ASDFTEST:SYSTEM2;MODULE4;FILE.LISP"))))) error! Not a non-negative fixnum SI:UNBOUND non-negative fixnum just seemed to me that it might be a version number.... I suppose it could be a file-write-date.... Oddly, despite the -d flag on run-test, I didn't get thrown into the debugger. Same test passes on SBCL. Best, r

2 1

[asdf-devel] Please fix ASDF:SUBPATHNAME
by Desmond O. Chang 21 Nov '11

21 Nov '11

Hi, Please fix debbugs #647544: http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=647544#10 I reported it on debbugs but actually it's from upstream. In brief, what's the return value of this? (subpathname "/usr/share" "common-lisp/source/") I think it should be "/usr/share/common-lisp/source/", not "/usr/common-lisp/source/". Thanks, Des

3 2

[asdf-devel] asdf loading the same system twice?
by Nikodemus Siivola 19 Nov '11

19 Nov '11

Hi, Using quicklisp-installed libraries -- (ql:quickload "linedit"): 1. rm -rf ~/.cache/common-lisp 2. sbcl --no-userinit 3. (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))) (when (probe-file quicklisp-init) (load quicklisp-init))) 4. (asdf:load-system :linedit) Observe that Alexandria is compiled and loaded twice. Once as a dependency of CFFI-GROVEL, once as a dependency of Linedit. Cheers, -- Nikodemus

2 1

Re: [asdf-devel] SBCL failure on test-configuration.script with latest ASDF
by Robert Goldman 09 Nov '11

09 Nov '11

On 11/8/11 Nov 8 -11:27 AM, Zach Beane wrote: > Robert Goldman <rpgoldman(a)sift.info> writes: > >> I tested the latest ASDF from git with SBCL 1.0.47, and got the >> following test failure in test-configuration.script. Upgraded to SBCL >> head (SBCL 1.0.53.1-6b0e405) and I still get this test failure. >> >> Mac OS X, 64-bit, threading enabled (don't see why that would make a >> difference, but...). > > I'm not sure I see the test failure. Was it meant to be attached? > > Zach Yes, it was. Here I will try again (I wonder if this is related to recent symlinks changes; looks like ASDF is misinterpreting a file as a subdirectory): + sbcl --noinform --userinit /dev/null --sysinit /dev/null --disable-debugger --eval '(load "test-configuration.script")' subdirectories of dir2/: (#P"/Users/rpg/lisp/asdf/tmp/dir2/dir3/" #P"/Users/rpg/lisp/asdf/tmp/dir2/dir4/" #P"/Users/rpg/lisp/asdf/tmp/dir2/foo3.asd") The assertion (= 2 (LENGTH (SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir2/")))) failed. ABORTING: #<SIMPLE-ERROR "The assertion ~S failed." {1002EA3A03}> 0: (SB-DEBUG::MAP-BACKTRACE #<CLOSURE (LAMBDA #) {1002EA5A6B}> :START 0 :COUNT 69) 1: (SB-DEBUG:BACKTRACE 69 #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {10001E4613}>) 2: ((FLET #:LAMBDA0) #<SIMPLE-ERROR "The assertion ~S failed." {1002EA3A03}>) 3: (SIGNAL #<SIMPLE-ERROR "The assertion ~S failed." {1002EA3A03}>) 4: (ERROR #<SIMPLE-ERROR "The assertion ~S failed." {1002EA3A03}>) 5: (SB-KERNEL:ASSERT-ERROR (= 2 (LENGTH (SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir2/")))) NIL NIL) 6: ((LAMBDA ())) 7: (COMMON-LISP-USER::CALL-QUITTING-ON-ERROR #<FUNCTION (LAMBDA #) {1002E1C49B}>) 8: (SB-INT:SIMPLE-EVAL-IN-LEXENV (COMMON-LISP-USER::QUIT-ON-ERROR (ASSERT (EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/foo:/bar::/baz:/quux") '(:OUTPUT-TRANSLATIONS ("/foo" "/bar") :INHERIT-CONFIGURATION ("/baz" "/quux")))) (ASSERT (EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/:") '(:OUTPUT-TRANSLATIONS ("/" NIL) :IGNORE-INHERITED-CONFIGURATION))) (ASSERT (EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/::") '(:OUTPUT-TRANSLATIONS ("/" NIL) :INHERIT-CONFIGURATION))) (ASSERT (EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/:/") '(:OUTPUT-TRANSLATIONS ("/" "/") :IGNORE-INHERITED-CONFIGURATION))) (ASSERT (EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "(:output-translations (\"/\" \"/\") :ignore-inherited-configuration)") '(:OUTPUT-TRANSLATIONS ("/" "/") :IGNORE-INHERITED-CONFIGURATION))) (CREATE-ASD-FILES) (CREATE-CONF-FILES) (FORMAT T "~&subdirectories of dir2/: ~S~%" (SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir2/"))) (ASSERT (= 2 (LENGTH (SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir2/"))))) (FORMAT T "~&subdirectories of dir5/: ~S~%" (SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir5/"))) (ASSERT (= 2 (LENGTH (SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir5/"))))) (INITIALIZE-SOURCE-REGISTRY `(:SOURCE-REGISTRY (:INCLUDE ,(UNDER-TEST-DIRECTORY "conf.d/")) (:INCLUDE ,(UNDER-TEST-DIRECTORY "dir5/")) (:INCLUDE ,(UNDER-TEST-DIRECTORY "dir8/")) (:INCLUDE ,(UNDER-TEST-DIRECTORY "dir9/dira/")) :IGNORE-INHERITED-CONFIGURATION)) (FORMAT T "~&Source Registry: ~S~%" *SOURCE-REGISTRY*) (ASSERT (FIND-SYSTEM :FOO0 NIL)) (ASSERT (FIND-SYSTEM :FOO1 NIL)) (ASSERT (FIND-SYSTEM :FOO2 NIL)) (ASSERT (FIND-SYSTEM :FOO3 NIL)) (ASSERT (FIND-SYSTEM :FOO4 NIL)) (ASSERT (NOT (FIND-SYSTEM :FOO5 NIL))) (ASSERT (FIND-SYSTEM :FOO6 NIL)) (ASSERT (FIND-SYSTEM :FOO7 NIL)) (ASSERT (FIND-SYSTEM :FOO8 NIL)) (ASSERT (NOT (FIND-SYSTEM :FOO9 NIL))) (FORMAT T "~&A: ~S~%B: ~S~%" (NAMESTRING (SYSTEM-RELATIVE-PATHNAME :FOO3 "bar/baz.lisp")) (UNDER-TEST-DIRECTORY "dir2/bar/baz.lisp")) (ASSERT (EQUAL (NAMESTRING (SYSTEM-RELATIVE-PATHNAME :FOO3 "bar/baz.lisp")) (UNDER-TEST-DIRECTORY "dir2/bar/baz.lisp")))) #<NULL-LEXENV>) 9: (SB-EXT:EVAL-TLF (COMMON-LISP-USER::QUIT-ON-ERROR (ASSERT (EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/foo:/bar::/baz:/quux") '(:OUTPUT-TRANSLATIONS ("/foo" "/bar") :INHERIT-CONFIGURATION ("/baz" "/quux")))) (ASSERT (EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/:") '(:OUTPUT-TRANSLATIONS ("/" NIL) :IGNORE-INHERITED-CONFIGURATION))) (ASSERT (EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/::") '(:OUTPUT-TRANSLATIONS ("/" NIL) :INHERIT-CONFIGURATION))) (ASSERT (EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/:/") '(:OUTPUT-TRANSLATIONS ("/" "/") :IGNORE-INHERITED-CONFIGURATION))) (ASSERT (EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "(:output-translations (\"/\" \"/\") :ignore-inherited-configuration)") '(:OUTPUT-TRANSLATIONS ("/" "/") :IGNORE-INHERITED-CONFIGURATION))) (CREATE-ASD-FILES) (CREATE-CONF-FILES) (FORMAT T "~&subdirectories of dir2/: ~S~%" (SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir2/"))) (ASSERT (= 2 (LENGTH (SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir2/"))))) (FORMAT T "~&subdirectories of dir5/: ~S~%" (SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir5/"))) (ASSERT (= 2 (LENGTH (SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir5/"))))) (INITIALIZE-SOURCE-REGISTRY `(:SOURCE-REGISTRY (:INCLUDE ,(UNDER-TEST-DIRECTORY "conf.d/")) (:INCLUDE ,(UNDER-TEST-DIRECTORY "dir5/")) (:INCLUDE ,(UNDER-TEST-DIRECTORY "dir8/")) (:INCLUDE ,(UNDER-TEST-DIRECTORY "dir9/dira/")) :IGNORE-INHERITED-CONFIGURATION)) (FORMAT T "~&Source Registry: ~S~%" *SOURCE-REGISTRY*) (ASSERT (FIND-SYSTEM :FOO0 NIL)) (ASSERT (FIND-SYSTEM :FOO1 NIL)) (ASSERT (FIND-SYSTEM :FOO2 NIL)) (ASSERT (FIND-SYSTEM :FOO3 NIL)) (ASSERT (FIND-SYSTEM :FOO4 NIL)) (ASSERT (NOT (FIND-SYSTEM :FOO5 NIL))) (ASSERT (FIND-SYSTEM :FOO6 NIL)) (ASSERT (FIND-SYSTEM :FOO7 NIL)) (ASSERT (FIND-SYSTEM :FOO8 NIL)) (ASSERT (NOT (FIND-SYSTEM :FOO9 NIL))) (FORMAT T "~&A: ~S~%B: ~S~%" (NAMESTRING (SYSTEM-RELATIVE-PATHNAME :FOO3 "bar/baz.lisp")) (UNDER-TEST-DIRECTORY "dir2/bar/baz.lisp")) (ASSERT (EQUAL (NAMESTRING (SYSTEM-RELATIVE-PATHNAME :FOO3 "bar/baz.lisp")) (UNDER-TEST-DIRECTORY "dir2/bar/baz.lisp")))) 8 #<NULL-LEXENV>) 10: ((FLET SB-FASL::EVAL-FORM) (COMMON-LISP-USER::QUIT-ON-ERROR (ASSERT (EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/foo:/bar::/baz:/quux") '(:OUTPUT-TRANSLATIONS ("/foo" "/bar") :INHERIT-CONFIGURATION ("/baz" "/quux")))) (ASSERT (EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/:") '(:OUTPUT-TRANSLATIONS ("/" NIL) :IGNORE-INHERITED-CONFIGURATION))) (ASSERT (EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/::") '(:OUTPUT-TRANSLATIONS ("/" NIL) :INHERIT-CONFIGURATION))) (ASSERT (EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "/:/") '(:OUTPUT-TRANSLATIONS ("/" "/") :IGNORE-INHERITED-CONFIGURATION))) (ASSERT (EQUAL (PARSE-OUTPUT-TRANSLATIONS-STRING "(:output-translations (\"/\" \"/\") :ignore-inherited-configuration)") '(:OUTPUT-TRANSLATIONS ("/" "/") :IGNORE-INHERITED-CONFIGURATION))) (CREATE-ASD-FILES) (CREATE-CONF-FILES) (FORMAT T "~&subdirectories of dir2/: ~S~%" (SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir2/"))) (ASSERT (= 2 (LENGTH (SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir2/"))))) (FORMAT T "~&subdirectories of dir5/: ~S~%" (SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir5/"))) (ASSERT (= 2 (LENGTH (SUBDIRECTORIES (UNDER-TEST-DIRECTORY "dir5/"))))) (INITIALIZE-SOURCE-REGISTRY `(:SOURCE-REGISTRY (:INCLUDE ,(UNDER-TEST-DIRECTORY "conf.d/")) (:INCLUDE ,(UNDER-TEST-DIRECTORY "dir5/")) (:INCLUDE ,(UNDER-TEST-DIRECTORY "dir8/")) (:INCLUDE ,(UNDER-TEST-DIRECTORY "dir9/dira/")) :IGNORE-INHERITED-CONFIGURATION)) (FORMAT T "~&Source Registry: ~S~%" *SOURCE-REGISTRY*) (ASSERT (FIND-SYSTEM :FOO0 NIL)) (ASSERT (FIND-SYSTEM :FOO1 NIL)) (ASSERT (FIND-SYSTEM :FOO2 NIL)) (ASSERT (FIND-SYSTEM :FOO3 NIL)) (ASSERT (FIND-SYSTEM :FOO4 NIL)) (ASSERT (NOT (FIND-SYSTEM :FOO5 NIL))) (ASSERT (FIND-SYSTEM :FOO6 NIL)) (ASSERT (FIND-SYSTEM :FOO7 NIL)) (ASSERT (FIND-SYSTEM :FOO8 NIL)) (ASSERT (NOT (FIND-SYSTEM :FOO9 NIL))) (FORMAT T "~&A: ~S~%B: ~S~%" (NAMESTRING (SYSTEM-RELATIVE-PATHNAME :FOO3 "bar/baz.lisp")) (UNDER-TEST-DIRECTORY "dir2/bar/baz.lisp")) (ASSERT (EQUAL (NAMESTRING (SYSTEM-RELATIVE-PATHNAME :FOO3 "bar/baz.lisp")) (UNDER-TEST-DIRECTORY "dir2/bar/baz.lisp")))) 8) 11: (SB-INT:LOAD-AS-SOURCE #<SB-SYS:FD-STREAM for "file /Users/rpg/lisp/asdf/test/test-configuration.script" {10029358E3}> :VERBOSE NIL :PRINT NIL :CONTEXT "loading") 12: ((FLET SB-FASL::LOAD-STREAM) #<SB-SYS:FD-STREAM for "file /Users/rpg/lisp/asdf/test/test-configuration.script" {10029358E3}> NIL) 13: (LOAD "test-configuration.script" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT) 14: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LOAD "test-configuration.script") #<NULL-LEXENV>) 15: (EVAL (LOAD "test-configuration.script")) 16: (SB-IMPL::PROCESS-EVAL/LOAD-OPTIONS ((:EVAL . "(load \"test-configuration.script\")"))) 17: (SB-IMPL::TOPLEVEL-INIT) 18: ((FLET #:WITHOUT-INTERRUPTS-BODY-[RESTART-LISP]38)) 19: ((LABELS SB-IMPL::RESTART-LISP)) ABORTING: #<SIMPLE-ERROR "The assertion ~S failed." {1002EA3A03}> Script failed Using sbcl --noinform --userinit /dev/null --sysinit /dev/null --disable-debugger, test-configuration.script failed

2 2

[asdf-devel] SBCL failure on test-configuration.script with latest ASDF
by Robert Goldman 08 Nov '11

08 Nov '11

I tested the latest ASDF from git with SBCL 1.0.47, and got the following test failure in test-configuration.script. Upgraded to SBCL head (SBCL 1.0.53.1-6b0e405) and I still get this test failure. Mac OS X, 64-bit, threading enabled (don't see why that would make a difference, but...). r

1 0

[asdf-devel] Best place to put a new config file?
by Zach Beane 05 Nov '11

05 Nov '11

If I'd like to extend the source registry by writing a registry configuration file somewhere, what's the best place to write that file? Is there a way to query the running system to get the answer? Is that necessary or is there some directory that is always good to use? Zach

3 6

[asdf-devel] maybe-add-tree.patch
by Сергей Катревич 03 Nov '11

03 Nov '11

Hi lispers! I am wrote micro patch for maybe-add-tree function. He to add :test #'equal in (find c (cdr it)) form. Finded small bug: (maybe-add-tree '((LOAD-OP (PREPARE-PREVALENCE-OP :WEBLOCKS-PREVALENCE)) (COMPILE-OP (COMPILE-OP "file1") (PREPARE-PREVALENCE-OP :WEBLOCKS-PREVALENCE))) 'COMPILE-OP 'COMPILE-OP "file1") => ((LOAD-OP (PREPARE-PREVALENCE-OP :WEBLOCKS-PREVALENCE)) (COMPILE-OP (COMPILE-OP "file1" "file1") (PREPARE-PREVALENCE-OP :WEBLOCKS-PREVALENCE))) As you can see file1 duplicated. My patch fixed it.

2 1

[asdf-devel] Bug in directory-files
by Pascal Costanza 01 Nov '11

01 Nov '11

Hi, There is a problem in the function directory-files (at least for LispWorks). Currently it is defined like this: (defun* directory-files (directory &optional (pattern *wild-file*)) (when (wild-pathname-p directory) (error "Invalid wild in ~S" directory)) (unless (member (pathname-directory pattern) '(() (:relative)) :test 'equal) (error "Invalid file pattern ~S" pattern)) (let ((entries (ignore-errors (directory* (merge-pathnames* pattern directory))))) (filter-logical-directory-results directory entries #'(lambda (f) (make-pathname :defaults directory :version (pathname-version f) :name (pathname-name f) :type (pathname-type f)))))) However, passing (pathname-version f) unchanged makes make-pathname throw errors in most cases in LispWorks. It should rather say something like that: (defun* directory-files (directory &optional (pattern *wild-file*)) (when (wild-pathname-p directory) (error "Invalid wild in ~S" directory)) (unless (member (pathname-directory pattern) '(() (:relative)) :test 'equal) (error "Invalid file pattern ~S" pattern)) (let ((entries (ignore-errors (directory* (merge-pathnames* pattern directory))))) (filter-logical-directory-results directory entries #'(lambda (f) (make-pathname :defaults directory :version (unless (eq (pathname-version f) :unspecific) (pathname-version f)) :name (pathname-name f) :type (pathname-type f)))))) …or something similar. There is also a redundant 'u in the 'and form in filter-logical-directory-results. Best, Pascal -- Pascal Costanza

3 3

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

asdf-devel