[PATCH] Re: Could there be a way to disable LOAD-PREFERENCES?

Richard M Kreuter <[email protected]> writes:
> "Robert P. Goldman" <[email protected]> writes:
>
>> I hesitate to say this, but it seems like what is wanted here is less
>> argument/initarg propagation, and more like dynamic variable binding.
>
> For the case of inhibiting preference loading, I suppose a special
> variable will suffice.  (Other options include moving preference
> loading to some other class than ASDF:SYSTEM, having SBCL's build
> process redefine the preference loading machinery to be a no-ops,
> maybe some other things.)

In the interests of SBCL's pending 1.1 release, would people be
willing to commit the following stopgap, to disable preference loading
during SBCL's build?  (It's not the Right Thing, but I think it solves
the minimal problem of ensuring that cruft in the user's home
directory isn't responsible for any SBCL build failure.)

Thanks,
Richard


--- asdf.lisp   15 Feb 2008 14:42:31 -0000      1.27
+++ asdf.lisp   29 Mar 2008 16:00:16 -0000
@@ -1278,6 +1278,13 @@
   (when (sb-ext:posix-getenv "SBCL_BUILDING_CONTRIB")
     (pushnew :sbcl-hooks-require *features*)))
 
+#+sbcl
+(eval-when (:load-toplevel)
+  (when (sb-ext:posix-getenv "SBCL_BUILDING_CONTRIB")
+    (remove-method 
+     #'load-preferences
+     (find-method #'load-preferences () '(system basic-load-op)))))
+
 #+(and sbcl sbcl-hooks-require)
 (progn
   (defun module-provide-asdf (name)


-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://ad.doubleclick.net/clk;164216239;13503038;w?http://sf.net/marketplace