Red Hat Linux
Click URL instructions:
Right-click on ad, choose "Copy Link", then paste here →
(This may not be possible with some types of ads)
You seem to have CSS turned off.
Please don't fill out this field.
Briefly describe the problem (required):
Please provide the ad click URL, if possible:
Update of /cvsroot/sbcl/sbcl/contrib/sb-grovel
In directory sc8-pr-cvs1:/tmp/cvs-serv1456/contrib/sb-grovel
... add a safeguard to sb-grovel:
issue a STYLE-WARNING when a constant can not be
... grovel SIG* names in sb-posix; this includes SIGRT* names
on platforms where they are defined.
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)
- "printf(\"(cl:defconstant ~A %d \\\"~A\\\")\\\n\",~A);~%"
- lispname doc cname))
+ "#ifdef ~A~%~
+ printf(\"(cl:defconstant ~A %d \\\"~A\\\")\\\n\",~A);~%~
+ printf(\"(sb-int:style-warn \\\"Couln't grovel definition for ~A (unknown to the C compiler).\\\")\\n\");~%~
+ cname lispname doc cname cname))
((eq type :type)
"printf(\"(sb-alien:define-alien-type ~A (sb-alien:%ssigned %d))\\\n\",SIGNED_(~A),8*(sizeof(~A)));~%"
Sign up for the SourceForge newsletter: