[Sbcl-commits] CVS: sbcl/src/cold shared.lisp,1.30.6.1,1.30.6.2

[Alexey D. <ade...@us...>]

Update of /cvsroot/sbcl/sbcl/src/cold
In directory sc8-pr-cvs1:/tmp/cvs-serv14764/src/cold

Modified Files:
      Tag: apd-0-7-cast
	shared.lisp 
Log Message:
0.7.12.32.cast.3:
        * in VALUES types &OPTIONAL arguments are merged into &REST;
        * (VALUES &REST T) => *;
        * ENABLE-INTERRUPT accepts/returns C handler addresses as
          FIXNUMs as suggested by CSR;
        * added IR2 type checking.



Index: shared.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/cold/shared.lisp,v
retrieving revision 1.30.6.1
retrieving revision 1.30.6.2
diff -u -d -r1.30.6.1 -r1.30.6.2
--- shared.lisp	10 Feb 2003 14:54:03 -0000	1.30.6.1
+++ shared.lisp	11 Feb 2003 11:41:13 -0000	1.30.6.2
@@ -151,6 +151,10 @@
     ;; delete any preexisting object file in order to avoid confusing
     ;; ourselves later should we happen to bail out of compilation
     ;; with an error.
+    #-nil
+    (when (probe-file obj)
+      (delete-file obj))
+    #+nil
     (when (probe-file obj)
       (if (> (file-write-date src)
              (file-write-date obj))