[Sbcl-commits] CVS: sbcl/src/compiler knownfun.lisp, 1.41, 1.42 saptran.lisp, 1.17, 1.18

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv8556/src/compiler

Modified Files:
	knownfun.lisp saptran.lisp 
Log Message:
1.0.33.3: restore buildability from CMUCL

- Add extra keyword in the ftype declaration for %DEFKNOWN (oh, the irony);
- move the THREAD structure into the cross-compiler, so that MUTEX slots
  can be declared to have type (OR NULL THREAD);
- IGNORE on non-binding in saptran

(build failure reported by xm...@gm...)


Index: knownfun.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/knownfun.lisp,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- knownfun.lisp	16 May 2009 11:24:31 -0000	1.41
+++ knownfun.lisp	2 Dec 2009 08:54:43 -0000	1.42
@@ -200,11 +200,11 @@
 (declaim (ftype (function (list list attributes &key
                                 (:derive-type (or function null))
                                 (:optimizer (or function null))
-                                (:destroyed-constant-args (or function null)))
+                                (:destroyed-constant-args (or function null))
+                                (:result-arg (or index null)))
                           *)
                 %defknown))
-(defun %defknown (names type attributes &key derive-type optimizer destroyed-constant-args
-                  result-arg)
+(defun %defknown (names type attributes &key derive-type optimizer destroyed-constant-args result-arg)
   (let ((ctype (specifier-type type))
         (info (make-fun-info :attributes attributes
                              :derive-type derive-type

Index: saptran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/saptran.lisp,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- saptran.lisp	26 Sep 2009 23:53:26 -0000	1.17
+++ saptran.lisp	2 Dec 2009 08:54:43 -0000	1.18
@@ -109,7 +109,7 @@
             (sap+ sap (+ offset1 offset2))))))
 
 (macrolet ((def (fun &optional setp value-type)
-             (declare (ignorable value-type) (ignore element-size))
+             (declare (ignorable value-type))
              `(progn
                 (deftransform ,fun ((sap offset ,@(when setp `(new-value))) * *)
                   (splice-fun-args sap 'sap+ 2)