Update of /cvsroot/sbcl/sbcl/contrib/sb-grovel
In directory sc8-pr-cvs1:/tmp/cvs-serv11129/contrib/sb-grovel
Modified Files:
def-to-lisp.lisp
Log Message:
0.8alpha.0.22
SB-GROVEL-related changes
... make sb-bsd-sockets use it
... which involved restoring size-of-{int,char,long} constants
When building contrib, reset the central-registry to avoid
picking up any code from e.g. ~/.sbcl/systems/
Index: def-to-lisp.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-grovel/def-to-lisp.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- def-to-lisp.lisp 13 Apr 2003 21:03:04 -0000 1.2
+++ def-to-lisp.lisp 8 May 2003 20:37:55 -0000 1.3
@@ -43,8 +43,11 @@
(format stream "main() { ~%
printf(\"(in-package ~S)\\\n\");~%" package-name)
(format stream "printf(\"(cl:deftype int () '(%ssigned-byte %d))\\\n\",SIGNED_(int),8*sizeof (int));~%")
- (format stream "printf(\"(cl:deftype char () '(unsigned-byte %d))\\\n\",SIGNED_(char),8*sizeof (char));~%")
- (format stream "printf(\"(cl:deftype long () '(unsigned-byte %d))\\\n\",SIGNED_(long),8*sizeof (long));~%")
+ (format stream "printf(\"(cl:deftype char () '(%ssigned-byte %d))\\\n\",SIGNED_(char),8*sizeof (char));~%")
+ (format stream "printf(\"(cl:deftype long () '(%ssigned-byte %d))\\\n\",SIGNED_(long),8*sizeof (long));~%")
+ (format stream "printf(\"(cl:defconstant size-of-int %d)\\\n\",sizeof (int));~%")
+ (format stream "printf(\"(cl:defconstant size-of-char %d)\\\n\",sizeof (char));~%")
+ (format stream "printf(\"(cl:defconstant size-of-long %d)\\\n\",sizeof (long));~%")
(dolist (def definitions)
(destructuring-bind (type lispname cname &optional doc) def
(cond ((eq type :integer)
|