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

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

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

Modified Files:
	def-to-lisp.lisp 
Log Message:
0.8.3.92:
	contrib/ updates for Solaris^WSunOS, as per Vincent Arksteijn
	sbcl-devel 2003-09-25
	... conditionalize distrust-length on SUNOS feature, which exists,
		as opposed to SOLARIS which doesn't
	... make def-to-lisp emit CL:NIL, not just NIL.
	... try to figure out what the solaris clause meant in 
		bsd-sockets/name-service.lisp


Index: def-to-lisp.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-grovel/def-to-lisp.lisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- def-to-lisp.lisp	1 Sep 2003 21:22:14 -0000	1.7
+++ def-to-lisp.lisp	25 Sep 2003 09:40:56 -0000	1.8
@@ -19,7 +19,7 @@
                 c-name c-el-name)
         ;; length
 	(if distrust-length
-	    (format stream "printf(\"nil\");")
+	    (format stream "printf(\"|CL|:|NIL|\");")
 	    (format stream "{ ~A t;printf(\"%d\",(sizeof t.~A));}~%"
 		    c-name c-el-name))
         (format stream "printf(\")\\n\");~%")))))