December 2015 - asdf-devel - mailman3.common-lisp.net

What's the right way to extend ASDF with new symbols?
by Robert Goldman 16 Feb '16

16 Feb '16

Commonly, one wants to extend ASDF with new operation and component classes. But the support in ASDF for referencing such classes all involves automagically interpreting keyword symbols (and some unqualified symbols?) in the ASDF package. If I understand this correctly, this leaves the ASDF extender with the alternatives of either jamming their new symbols into the ASDF package late, and exporting them, or having them live in a new package, which is cleaner, but relegates these new components to second-class status. Consider the following (defpackage my-system-def (:use common-lisp asdf)) (in-package :my-system-def) (defsystem my-system :defsystem-depends-on ("my-asdf-extension") :components ((:my-new-file "file1"))) I don't seem to be able to define MY-NEW-FILE in my-asdf-extension and export it into my-system-def, because my-system-def is already defined by the time my-asdf-extension is loaded. That means I pretty much have to either muck around in the ASDF package (which doesn't scale to multiple different people extending ASDF) or use side effects: (asdf:load-system "my-asdf-extension") (defpackage my-system-def (:use common-lisp asdf my-asdf-extension)) (in-package :my-system-def) (defsystem my-system :components ((:my-new-file "file1"))) Am I right about this? If I am, is there some way to better handle this? Or do we need to rethink how :defsystem-depends-on works?

7 24

user-homedir-pathname on cmucl
by Raymond Toy 09 Jan '16

09 Jan '16

Not sure how this ever worked with cmucl, but user-homedir-pathname on cmucl returns #p"home:", where "home:" is a search-list. In some cases, it looks like asdf is trying to create the cache directory and end up with a path like P"home:.cache/common-lisp/cmu-21a__21a_unicode_-macosx-x86/**/*.*.~*~" but this confuses other parts of asdf and cmucl when trying to run pathname-match-p. Perhaps the best thing is to make asdf us a custom user-homedir-pathname like what is done with other lisps. An appropriate version would be (defun user-homedir-pathname () (first (ext:search-list (cl:user-homedir-pathname)))) -- Ray

2 13

Issues with new testing scripts
by Robert Goldman 03 Jan '16

03 Jan '16

I'm having two issues with the new testing scripts: 1. The testing code is bleeding quicklisp into context: make test ./make.sh l='' L='' u='' U='' v='' s='' t='' test > Error: System "cl-scripting" not found > While executing: (:INTERNAL QUICKLISP-CLIENT::RECURSE QUICKLISP-CLIENT::COMPUTE-LOAD-STRATEGY), in process listener(1). > Type :GO to continue, :POP to abort, :R for a list of available restarts. > If continued: Try again > Type :? for other options. 1 > I *definitely* did not ask to be using quicklisp when testing. This error arises inside (LOAD-SYS "asdf-tools"), which is redirected to use quicklisp: (defun load-sys (system) (if (featurep :quicklisp) (let ((*standard-output* (make-broadcast-stream))) ;; be quiet (symbol-call :ql :quickload system)) (load-system system :verbose nil))) This is done by tools/load-asdf.lisp AFAICT, this is done UNCONDITIONALLY BY LOAD-AND-CONFIGURE-ASDF This should not be. The user should get quicklisp only upon request: we added the dependencies to ext/ in order to make the ASDF distribution free-standing and avoid the quicklisp requirement. In my case, I use quicklisp only sometimes, and never yet with CCL, so having the ASDF test script go poking around for a QL installation and firing it up without asking me was problematic. Particularly problematic was that there's no (apparent) way to STOP the ASDF scripts from doing this. For now I am going to push a modification that comments out TRY-LOAD-QUICKLISP from LOAD-AND-CONFIGURE-ASDF. I have no objection to a patch that provides an *explicit option* to load from QL, but it must be an option, and it must not be the default. Frankly, even then I'm not excited about it. I don't want to have bugreports to ASDF that are caused by issues in Quicklisp. I'd rather people stick to using the dependencies in our submodules. 2. This was just a nuisance: three new submodules have been added, and "git submodule init" must be re-run when that happens. I have no idea why the git maintainers thought that a call to git submodule update should quietly fail to update un-initialized submodules (fail to update yes, QUIETLY fail to update, no). But going forward we need to trumpet any changes to the submodules because of this attribute of git.... Cheers, r

4 17

Can no longer test on Windows: failure to build doc causes failure to build ASDF
by Robert Goldman 31 Dec '15

31 Dec '15

I was trying to run the tests on Windows, and this triggers make asdf.pdf. My windows box does not have texi2pdf. It seems inappropriate that in order to test ASDF you have to build the manual. Note that this seems to have changed from before minimakefile -- I used to be able to run the tests on Windows. Fare -- any idea what changed to break this? thanks, r

2 2

Regression in 9933b3078f35be0198dc37d1b0d914797c5802d7
by Stelian Ionescu 14 Dec '15

14 Dec '15

Commit "Avoid calling SUBTYPEP in ANSI-STREAM-{READ,WRITE}-SEQUENCE" causes the following error when compiling Quicklisp's package.lisp. I'm not sure what's happening, though, because if I start SBCL with --no-userinit and compile that file manually, I don't see the error. debugger invoked on a TYPE-ERROR in thread #<THREAD "main thread" RUNNING {10039ED6B3}>: The value NIL is not of type SB-C::COMPILER-ERROR-CONTEXT. Type HELP for debugger help, or (SB-EXT:EXIT) to exit from SBCL. restarts (invokable by number or by possibly-abbreviated name): 0: [RETRY ] Retry compiling #<CL-SOURCE-FILE "quicklisp" "package">. 1: [ACCEPT ] Continue, treating compiling #<CL-SOURCE-FILE "quicklisp" "package"> as having been successful. 2: Retry ASDF operation. 3: [CLEAR-CONFIGURATION-AND-RETRY] Retry ASDF operation after resetting the configuration. 4: [RETRY ] Retry EVAL of current toplevel form. 5: [CONTINUE ] Ignore error and continue loading file "/home/hechee/lisp/quicklisp/setup.lisp". 6: [ABORT ] Abort loading file "/home/hechee/lisp/quicklisp/setup.lisp". 7: Retry EVAL of current toplevel form. 8: Ignore error and continue loading file "/home/hechee/.cl-init/asdf-init.lisp". 9: Abort loading file "/home/hechee/.cl-init/asdf-init.lisp". 10: Retry EVAL of current toplevel form. 11: Ignore error and continue userinit file "/home/hechee/.sbclrc". 12: Abort userinit file "/home/hechee/.sbclrc". 13: Skip to toplevel READ/EVAL/PRINT loop. 14: [EXIT ] Exit SBCL (calling #'EXIT, killing the process). ((LAMBDA (UIOP/LISP-BUILD::FROB) :IN UIOP/LISP-BUILD::REIFY-UNDEFINED-WARNING) NIL) source: #S(SB-IMPL::COMMA :EXPR (SB-C::COMPILER-ERROR-CONTEXT-ENCLOSING-SOURCE FROB) :KIND 0) 0] backtrace Backtrace for: #<SB-THREAD:THREAD "main thread" RUNNING {10039ED6B3}> 0: ((LAMBDA (UIOP/LISP-BUILD::FROB) :IN UIOP/LISP-BUILD::REIFY-UNDEFINED-WARNING) NIL) 1: (UIOP/LISP-BUILD::REIFY-UNDEFINED-WARNING #<SB-C::UNDEFINED-WARNING :DEFAULT>) 2: (UIOP/LISP-BUILD:REIFY-DEFERRED-WARNINGS) 3: ((LAMBDA NIL :IN UIOP/LISP-BUILD:SAVE-DEFERRED-WARNINGS)) 4: ((LAMBDA NIL :IN UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX)) 5: (SB-IMPL::%WITH-STANDARD-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX) {100FF5BB1B}>) 6: (UIOP/STREAM:CALL-WITH-SAFE-IO-SYNTAX #<CLOSURE (LAMBDA NIL :IN UIOP/LISP-BUILD:SAVE-DEFERRED-WARNINGS) {100FF5BAFB}> :PACKAGE :CL) 7: (UIOP/LISP-BUILD:SAVE-DEFERRED-WARNINGS #P"/home/hechee/.cache/common-lisp/sbcl-1.3.1.126-b8a086c89589-linux-x64/home/hechee/lisp/quicklisp/quicklisp/package.sbcl-warnings") 8: ((LAMBDA NIL :IN UIOP/LISP-BUILD::CALL-WITH-SAVED-DEFERRED-WARNINGS)) 9: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 10: (UIOP/LISP-BUILD::CALL-WITH-SAVED-DEFERRED-WARNINGS #<CLOSURE (LAMBDA NIL :IN UIOP/LISP-BUILD:COMPILE-FILE*) {100FEDFDCB}> #P"/home/hechee/.cache/common-lisp/sbcl-1.3.1.126-b8a086c89589-linux-x64/home/hechee/lisp/quicklisp/quicklisp/package.sbcl-warnings" :SOURCE-NAMESTRING "/home/hechee/lisp/quicklisp/quicklisp/package.lisp") 11: ((LAMBDA (UIOP/LISP-BUILD::INPUT-FILE) :IN UIOP/LISP-BUILD:COMPILE-FILE*) #P"/home/hechee/lisp/quicklisp/quicklisp/package.lisp") 12: (UIOP/PATHNAME:CALL-WITH-ENOUGH-PATHNAME #P"/home/hechee/lisp/quicklisp/quicklisp/package.lisp" NIL #<CLOSURE (LAMBDA (UIOP/LISP-BUILD::INPUT-FILE) :IN UIOP/LISP-BUILD:COMPILE-FILE*) {100FEDFD8B}>) 13: (UIOP/LISP-BUILD:COMPILE-FILE* #P"/home/hechee/lisp/quicklisp/quicklisp/package.lisp" :OUTPUT-FILE #P"/home/hechee/.cache/common-lisp/sbcl-1.3.1.126-b8a086c89589-linux-x64/home/hechee/lisp/quicklisp/quicklisp/package.fasl" :EXTERNAL-FORMAT :UTF-8 :WARNINGS-FILE #P"/home/hechee/.cache/common-lisp/sbcl-1.3.1.126-b8a086c89589-linux-x64/home/hechee/lisp/quicklisp/quicklisp/package.sbcl-warnings") 14: ((LAMBDA (&REST ASDF/LISP-ACTION:FLAGS) :IN ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION)) 15: (UIOP/UTILITY:CALL-FUNCTION FUNCALL #<CLOSURE (LAMBDA (&REST ASDF/LISP-ACTION:FLAGS) :IN ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION) {100FEC7AEB}>) 16: (UIOP/LISP-BUILD:CALL-AROUND-HOOK NIL #<CLOSURE (LAMBDA (&REST ASDF/LISP-ACTION:FLAGS) :IN ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION) {100FEC7AEB}>) 17: ((:METHOD ASDF/LISP-ACTION:CALL-WITH-AROUND-COMPILE-HOOK (ASDF/COMPONENT:COMPONENT T)) #<ASDF/LISP-ACTION:CL-SOURCE-FILE "quicklisp" "package"> #<CLOSURE (LAMBDA (&REST ASDF/LISP-ACTION:FLAGS) :IN ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION) {100FEC7AEB}>) [fast-method] 18: (ASDF/LISP-ACTION:PERFORM-LISP-COMPILATION #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "quicklisp" "package">) 19: ((:METHOD ASDF/ACTION:PERFORM (ASDF/LISP-ACTION:COMPILE-OP ASDF/LISP-ACTION:CL-SOURCE-FILE)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "quicklisp" "package">) [fast-method] 20: ((SB-PCL::EMF ASDF/ACTION:PERFORM) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "quicklisp" "package">) 21: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "quicklisp" "package">) [fast-method] 22: ((FLET CALL-NEXT-METHOD :IN "/home/hechee/work/src/asdf/build/asdf.lisp")) 23: ((:METHOD ASDF/ACTION:PERFORM-WITH-RESTARTS :AROUND (T T)) #<ASDF/LISP-ACTION:COMPILE-OP > #<ASDF/LISP-ACTION:CL-SOURCE-FILE "quicklisp" "package">) [fast-method] 24: ((:METHOD ASDF/PLAN:PERFORM-PLAN (LIST)) ((#1=#<ASDF/LISP-ACTION:PREPARE-OP > . #<ASDF/SYSTEM:SYSTEM #2="quicklisp">) (#1# . #3=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #2# "package">) (#4=#<ASDF/LISP-ACTION:COMPILE-OP > . #3#) (#5=#<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> . #3#) (#1# . #6=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #2# "utils">) (#4# . #6#) (#5# . #6#) (#1# . #7=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #2# "config">) (#4# . #7#) (#5# . #7#) (#1# . #8=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #2# "impl">) (#4# . #8#) ...) :FORCE NIL) [fast-method] 25: ((FLET CALL-NEXT-METHOD :IN "/home/hechee/work/src/asdf/build/asdf.lisp")) 26: ((LAMBDA NIL :IN ASDF/PLAN:PERFORM-PLAN)) 27: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 28: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) ((#1=#<ASDF/LISP-ACTION:PREPARE-OP > . #<ASDF/SYSTEM:SYSTEM #2="quicklisp">) (#1# . #3=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #2# "package">) (#4=#<ASDF/LISP-ACTION:COMPILE-OP > . #3#) (#5=#<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> . #3#) (#1# . #6=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #2# "utils">) (#4# . #6#) (#5# . #6#) (#1# . #7=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #2# "config">) (#4# . #7#) (#5# . #7#) (#1# . #8=#<ASDF/LISP-ACTION:CL-SOURCE-FILE #2# "impl">) (#4# . #8#) ...) :VERBOSE NIL) [fast-method] 29: ((:METHOD ASDF/PLAN:PERFORM-PLAN (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {100FBEEC13}> :VERBOSE NIL) [fast-method] 30: ((FLET CALL-NEXT-METHOD :IN "/home/hechee/work/src/asdf/build/asdf.lisp")) 31: ((LAMBDA NIL :IN ASDF/PLAN:PERFORM-PLAN)) 32: ((FLET SB-C::WITH-IT :IN SB-C::%WITH-COMPILATION-UNIT)) 33: ((:METHOD ASDF/PLAN:PERFORM-PLAN :AROUND (T)) #<ASDF/PLAN:SEQUENTIAL-PLAN {100FBEEC13}> :VERBOSE NIL) [fast-method] 34: ((:METHOD ASDF/OPERATE:OPERATE (ASDF/OPERATION:OPERATION ASDF/COMPONENT:COMPONENT)) #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> #<ASDF/SYSTEM:SYSTEM "quicklisp"> :VERBOSE NIL) [fast-method] 35: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> #<ASDF/SYSTEM:SYSTEM "quicklisp"> :VERBOSE NIL) 36: ((FLET CALL-NEXT-METHOD :IN "/home/hechee/work/src/asdf/build/asdf.lisp")) 37: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 38: (ASDF/CACHE:CALL-WITH-ASDF-CACHE #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100FBEDF0B}> :OVERRIDE NIL :KEY NIL) 39: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) #<ASDF/LISP-ACTION:LOAD-OP :VERBOSE NIL> #<ASDF/SYSTEM:SYSTEM "quicklisp"> :VERBOSE NIL) [fast-method] 40: ((:METHOD ASDF/OPERATE:OPERATE (SYMBOL T)) ASDF/LISP-ACTION:LOAD-OP "quicklisp" :VERBOSE NIL) [fast-method] 41: ((SB-PCL::EMF ASDF/OPERATE:OPERATE) #<unused argument> #<unused argument> ASDF/LISP-ACTION:LOAD-OP "quicklisp" :VERBOSE NIL) 42: ((FLET CALL-NEXT-METHOD :IN "/home/hechee/work/src/asdf/build/asdf.lisp")) 43: ((LAMBDA NIL :IN ASDF/OPERATE:OPERATE)) 44: (ASDF/CACHE:CALL-WITH-ASDF-CACHE #<CLOSURE (LAMBDA NIL :IN ASDF/OPERATE:OPERATE) {100F6DEDCB}> :OVERRIDE NIL :KEY NIL) 45: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "quicklisp" :VERBOSE NIL) [fast-method] 46: ((:METHOD ASDF/OPERATE:OPERATE :AROUND (T T)) ASDF/LISP-ACTION:LOAD-OP "quicklisp" :VERBOSE NIL) [fast-method] 47: (ASDF/OPERATE:OOS ASDF/LISP-ACTION:LOAD-OP "quicklisp" :VERBOSE NIL) 48: ((LAMBDA NIL :IN "/home/hechee/lisp/quicklisp/setup.lisp")) 49: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LET ((*COMPILE-PRINT* NIL) (*COMPILE-VERBOSE* NIL) (*LOAD-VERBOSE* NIL) (*LOAD-PRINT* NIL)) (ASDF/OPERATE:OOS (QUOTE ASDF/LISP-ACTION:LOAD-OP) "quicklisp" :VERBOSE NIL)) #<NULL-LEXENV>) 50: (SB-EXT:EVAL-TLF (LET ((*COMPILE-PRINT* NIL) (*COMPILE-VERBOSE* NIL) (*LOAD-VERBOSE* NIL) (*LOAD-PRINT* NIL)) (ASDF/OPERATE:OOS (QUOTE ASDF/LISP-ACTION:LOAD-OP) "quicklisp" :VERBOSE NIL)) 14 NIL) 51: ((LABELS SB-FASL::EVAL-FORM :IN SB-INT:LOAD-AS-SOURCE) (LET ((*COMPILE-PRINT* NIL) (*COMPILE-VERBOSE* NIL) (*LOAD-VERBOSE* NIL) (*LOAD-PRINT* NIL)) (ASDF/OPERATE:OOS (QUOTE ASDF/LISP-ACTION:LOAD-OP) "quicklisp" :VERBOSE NIL)) 14) 52: ((LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT:LOAD-AS-SOURCE) (LET ((*COMPILE-PRINT* NIL) (*COMPILE-VERBOSE* NIL) (*LOAD-VERBOSE* NIL) (*LOAD-PRINT* NIL)) (ASDF/OPERATE:OOS (QUOTE ASDF/LISP-ACTION:LOAD-OP) "quicklisp" :VERBOSE NIL)) :CURRENT-INDEX 14) 53: (SB-C::%DO-FORMS-FROM-INFO #<CLOSURE (LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT:LOAD-AS-SOURCE) {100CD5E1AB}> #<SB-C::SOURCE-INFO {100CD5E163}> SB-C::INPUT-ERROR-IN-LOAD) 54: (SB-INT:LOAD-AS-SOURCE #<SB-INT:FORM-TRACKING-STREAM for "file /home/hechee/lisp/quicklisp/setup.lisp" {100CD5B903}> :VERBOSE NIL :PRINT NIL :CONTEXT "loading") 55: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-INT:FORM-TRACKING-STREAM for "file /home/hechee/lisp/quicklisp/setup.lisp" {100CD5B903}> NIL) 56: (LOAD #P"/home/hechee/lisp/quicklisp/setup.lisp" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST NIL :EXTERNAL-FORMAT :DEFAULT) 57: (SB-INT:SIMPLE-EVAL-IN-LEXENV (LOAD (MERGE-PATHNAMES "lisp/quicklisp/setup.lisp" (USER-HOMEDIR-PATHNAME)) :IF-DOES-NOT-EXIST NIL) #<NULL-LEXENV>) 58: (SB-EXT:EVAL-TLF (LOAD (MERGE-PATHNAMES "lisp/quicklisp/setup.lisp" (USER-HOMEDIR-PATHNAME)) :IF-DOES-NOT-EXIST NIL) 8 NIL) 59: ((LABELS SB-FASL::EVAL-FORM :IN SB-INT:LOAD-AS-SOURCE) (LOAD (MERGE-PATHNAMES "lisp/quicklisp/setup.lisp" (USER-HOMEDIR-PATHNAME)) :IF-DOES-NOT-EXIST NIL) 8) 60: ((LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT:LOAD-AS-SOURCE) (LOAD (MERGE-PATHNAMES "lisp/quicklisp/setup.lisp" (USER-HOMEDIR-PATHNAME)) :IF-DOES-NOT-EXIST NIL) :CURRENT-INDEX 8) 61: (SB-C::%DO-FORMS-FROM-INFO #<CLOSURE (LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT:LOAD-AS-SOURCE) {1003E003AB}> #<SB-C::SOURCE-INFO {1003E00363}> SB-C::INPUT-ERROR-IN-LOAD) 62: (SB-INT:LOAD-AS-SOURCE #<SB-INT:FORM-TRACKING-STREAM for "file /home/hechee/.cl-init/asdf-init.lisp" {1003DFDBD3}> :VERBOSE NIL :PRINT NIL :CONTEXT "loading") 63: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-INT:FORM-TRACKING-STREAM for "file /home/hechee/.cl-init/asdf-init.lisp" {1003DFDBD3}> NIL) 64: (LOAD #P"/home/hechee/.cl-init/asdf-init.lisp" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT) 65: (SB-INT:SIMPLE-EVAL-IN-LEXENV (FLET ((HECHEE-USER::LOAD-INIT-FILE (HECHEE-USER::FILE) (LOAD (ETYPECASE HECHEE-USER::FILE # #) :PRINT NIL :VERBOSE NIL))) (LET ((HECHEE-USER::IMPL-SPECIFIC-INIT (MAKE-PATHNAME :NAME # :TYPE "lisp" :DEFAULTS HECHEE-USER::*RCDIR*))) (WHEN (PROBE-FILE HECHEE-USER::IMPL-SPECIFIC-INIT) (HECHEE-USER::LOAD-INIT-FILE HECHEE-USER::IMPL-SPECIFIC-INIT)) (HECHEE-USER::LOAD-INIT-FILE "asdf-init"))) #<NULL-LEXENV>) 66: (SB-EXT:EVAL-TLF (FLET ((HECHEE-USER::LOAD-INIT-FILE (HECHEE-USER::FILE) (LOAD (ETYPECASE HECHEE-USER::FILE # #) :PRINT NIL :VERBOSE NIL))) (LET ((HECHEE-USER::IMPL-SPECIFIC-INIT (MAKE-PATHNAME :NAME # :TYPE "lisp" :DEFAULTS HECHEE-USER::*RCDIR*))) (WHEN (PROBE-FILE HECHEE-USER::IMPL-SPECIFIC-INIT) (HECHEE-USER::LOAD-INIT-FILE HECHEE-USER::IMPL-SPECIFIC-INIT)) (HECHEE-USER::LOAD-INIT-FILE "asdf-init"))) 10 NIL) 67: ((LABELS SB-FASL::EVAL-FORM :IN SB-INT:LOAD-AS-SOURCE) (FLET ((HECHEE-USER::LOAD-INIT-FILE (HECHEE-USER::FILE) (LOAD (ETYPECASE HECHEE-USER::FILE # #) :PRINT NIL :VERBOSE NIL))) (LET ((HECHEE-USER::IMPL-SPECIFIC-INIT (MAKE-PATHNAME :NAME # :TYPE "lisp" :DEFAULTS HECHEE-USER::*RCDIR*))) (WHEN (PROBE-FILE HECHEE-USER::IMPL-SPECIFIC-INIT) (HECHEE-USER::LOAD-INIT-FILE HECHEE-USER::IMPL-SPECIFIC-INIT)) (HECHEE-USER::LOAD-INIT-FILE "asdf-init"))) 10) 68: ((LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT:LOAD-AS-SOURCE) (FLET ((HECHEE-USER::LOAD-INIT-FILE (HECHEE-USER::FILE) (LOAD (ETYPECASE HECHEE-USER::FILE # #) :PRINT NIL :VERBOSE NIL))) (LET ((HECHEE-USER::IMPL-SPECIFIC-INIT (MAKE-PATHNAME :NAME # :TYPE "lisp" :DEFAULTS HECHEE-USER::*RCDIR*))) (WHEN (PROBE-FILE HECHEE-USER::IMPL-SPECIFIC-INIT) (HECHEE-USER::LOAD-INIT-FILE HECHEE-USER::IMPL-SPECIFIC-INIT)) (HECHEE-USER::LOAD-INIT-FILE "asdf-init"))) :CURRENT-INDEX 10) 69: (SB-C::%DO-FORMS-FROM-INFO #<CLOSURE (LAMBDA (SB-KERNEL:FORM &KEY :CURRENT-INDEX &ALLOW-OTHER-KEYS) :IN SB-INT:LOAD-AS-SOURCE) {1003A0C23B}> #<SB-C::SOURCE-INFO {1003A0C1F3}> SB-C::INPUT-ERROR-IN-LOAD) 70: (SB-INT:LOAD-AS-SOURCE #<SB-SYS:FD-STREAM for "file /home/hechee/.cl-init/init.lisp" {1003A0A673}> :VERBOSE NIL :PRINT NIL :CONTEXT "userinit") 71: (SB-IMPL::PROCESS-INIT-FILE NIL :USER) 72: (SB-IMPL::TOPLEVEL-INIT) 73: ((FLET #:WITHOUT-INTERRUPTS-BODY-82 :IN SB-EXT:SAVE-LISP-AND-DIE)) 74: ((LABELS SB-IMPL::RESTART-LISP :IN SB-EXT:SAVE-LISP-AND-DIE)) -- Stelian Ionescu a.k.a. fe[nl]ix Quidquid latine dictum sit, altum videtur.

2 1

package-inferred-system and :around-compile
by Eric Timmons 05 Dec '15

05 Dec '15

I'd really like to use :around-compile (for use with local-package-aliases), but I can't seem to combine it with package-inferred-system as the inferred systems don't inherit the around-compile slot from the top level system. I'd happily supply a patch to enable it. But I'm not sure if it would make the most sense to just inherit around-compile from the top level system or add an additional initarg for the package-inferred-system class that gets passed to the inferred systems. -Eric

2 3