[Sbcl-commits] CVS: sbcl/contrib/sb-grovel def-to-lisp.lisp,1.6,1.7

[Andreas F. <ant...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/sb-grovel
In directory sc8-pr-cvs1:/tmp/cvs-serv1456/contrib/sb-grovel

Modified Files:
	def-to-lisp.lisp 
Log Message:
0.8.3.22:
	Contrib frobs
	... add a safeguard to sb-grovel:
 		issue a STYLE-WARNING when a constant can not be 
		groveled;
	... grovel SIG* names in sb-posix; this includes SIGRT* names
		on platforms where they are defined.


Index: def-to-lisp.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-grovel/def-to-lisp.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- def-to-lisp.lisp	19 Aug 2003 13:04:39 -0000	1.6
+++ def-to-lisp.lisp	1 Sep 2003 21:22:14 -0000	1.7
@@ -50,8 +50,12 @@
       (destructuring-bind (type lispname cname &optional doc) def
         (cond ((eq type :integer)
                (format stream
-                       "printf(\"(cl:defconstant ~A %d \\\"~A\\\")\\\n\",~A);~%"
-                       lispname doc cname))
+                       "#ifdef ~A~%~
+                        printf(\"(cl:defconstant ~A %d \\\"~A\\\")\\\n\",~A);~%~
+                        #else~%~
+                        printf(\"(sb-int:style-warn \\\"Couln't grovel definition for ~A (unknown to the C compiler).\\\")\\n\");~%~
+                        #endif~%"
+                       cname lispname doc cname cname))
 	      ((eq type :type)
 	       (format stream
                        "printf(\"(sb-alien:define-alien-type ~A (sb-alien:%ssigned %d))\\\n\",SIGNED_(~A),8*(sizeof(~A)));~%"