[Sbcl-commits] CVS: sbcl/contrib/asdf-install installer.lisp,1.2,1.2.2.1

[Daniel B. <da...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/asdf-install
In directory sc8-pr-cvs1:/tmp/cvs-serv6761/contrib/asdf-install

Modified Files:
      Tag: stop_the_world_branch
	installer.lisp 
Log Message:
0.8.2.38.stop_the_world.1
	(assert 'want-to-get-off)

	Beginnings of a new scheme for stopping threads during GC,
	that avoids the use of ptrace and lets any of the threads
	stop any of the others

	This commit contains the necessary parent changes (untested,
	may not compile, almost certainly won't run).  Also forthcoming:

	1) New SIG_STOP_FOR_GC signal to define, with handler that
	gets deferred a la maybe_now_maybe_later in critical sections,
	and decrements countdown_to_gc then SIGSTOPs when ready

	2) make GC actually call collect_garbage instead of sending 
	signals around




Index: installer.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/asdf-install/installer.lisp,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -u -d -r1.2 -r1.2.2.1
--- installer.lisp	14 Aug 2003 14:06:26 -0000	1.2
+++ installer.lisp	17 Aug 2003 23:20:17 -0000	1.2.2.1
@@ -195,7 +195,7 @@
 (defun install-package (source system packagename)
   "Returns a list of asdf system names for installed asdf systems"
   (ensure-directories-exist source )
-    (ensure-directories-exist system )
+  (ensure-directories-exist system )
   (let* ((tar
 	  (with-output-to-string (o)
 	    (or