CVS: sbcl/src/code purify.lisp,1.7,1.7.8.1

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv21982/src/code

Modified Files:
      Tag: thread-gc-branch
	purify.lisp 
Log Message:
0.pre8.119.thread-gc.2
	Unbreak PURIFY, at least superficially

Index: purify.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/purify.lisp,v
retrieving revision 1.7
retrieving revision 1.7.8.1
diff -u -d -r1.7 -r1.7.8.1
--- purify.lisp	27 Feb 2003 00:49:58 -0000	1.7
+++ purify.lisp	1 May 2003 01:38:10 -0000	1.7.8.1
 <at>  <at>  -31,7 +31,7  <at>  <at> 
     n)))

 (defun purify (&key root-structures (environment-name "Auxiliary"))
-  #!+sb-doc
+  ;; #!+sb-doc
   "This function optimizes garbage collection by moving all currently live
    objects into non-collected storage. ROOT-STRUCTURES is an optional list of
    objects which should be copied first to maximize locality.
 <at>  <at>  -45,19 +45,5  <at>  <at> 
    supplied, then environment compaction is inhibited."