[Sbcl-commits] CVS: sbcl/src/compiler/generic genesis.lisp,1.76,1.76.4.1

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

Update of /cvsroot/sbcl/sbcl/src/compiler/generic
In directory sc8-pr-cvs1:/tmp/cvs-serv2239/src/compiler/generic

Modified Files:
      Tag: definitely-maybe-gc-branch
	genesis.lisp 
Log Message:
0.pre8.82.definitely_maybe_gc.2
	lisplevel GC refactoring step 2

	MAYBE-GC is never used for its return value, and all it does is
	call SUB-GC.  Delete it



Index: genesis.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/genesis.lisp,v
retrieving revision 1.76
retrieving revision 1.76.4.1
diff -u -d -r1.76 -r1.76.4.1
--- genesis.lisp	27 Feb 2003 15:19:47 -0000	1.76
+++ genesis.lisp	20 Apr 2003 16:24:31 -0000	1.76.4.1
@@ -1253,7 +1253,7 @@
   (macrolet ((frob (symbol)
 	       `(cold-set ',symbol
 			  (cold-fdefinition-object (cold-intern ',symbol)))))
-    (frob maybe-gc)
+    (frob sub-gc)
     (frob internal-error)
     (frob sb!kernel::control-stack-exhausted-error)
     (frob sb!di::handle-breakpoint)