0.8.3.92:
authorChristophe Rhodes <csr21@cam.ac.uk>
Thu, 25 Sep 2003 09:40:55 +0000 (09:40 +0000)
committerChristophe Rhodes <csr21@cam.ac.uk>
Thu, 25 Sep 2003 09:40:55 +0000 (09:40 +0000)
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

contrib/sb-bsd-sockets/name-service.lisp
contrib/sb-grovel/def-to-lisp.lisp
contrib/sb-posix/constants.lisp
version.lisp-expr

index 46094d2..bf29529 100644 (file)
@@ -130,7 +130,7 @@ GET-NAME-SERVICE-ERRNO")
        (sb-alien:alien-funcall
         (sb-alien:extern-alien "get_h_errno" (function integer)))))
 
-#-solaris
+#-(and cmu solaris)
 (progn
   #+sbcl
   (sb-alien:define-alien-routine "hstrerror"
index fe83f9c..3b2cba1 100644 (file)
@@ -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\");~%")))))
index 8a74784..69b3ea4 100644 (file)
  (:structure dirent
             ("struct dirent"
              (:c-string name "char *" "d_name"
-                        :distrust-length #+solaris t #-solaris nil)))
+                        :distrust-length #+sunos t #-sunos nil)))
  )
index 4466b07..04cb12d 100644 (file)
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.8.3.91"
+"0.8.3.92"