From 81ccc83350c9caae310bfeb0ddd71284f25e1e1f Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Thu, 25 Sep 2003 09:40:55 +0000 Subject: [PATCH] 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 --- contrib/sb-bsd-sockets/name-service.lisp | 2 +- contrib/sb-grovel/def-to-lisp.lisp | 2 +- contrib/sb-posix/constants.lisp | 2 +- version.lisp-expr | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/contrib/sb-bsd-sockets/name-service.lisp b/contrib/sb-bsd-sockets/name-service.lisp index 46094d2..bf29529 100644 --- a/contrib/sb-bsd-sockets/name-service.lisp +++ b/contrib/sb-bsd-sockets/name-service.lisp @@ -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" diff --git a/contrib/sb-grovel/def-to-lisp.lisp b/contrib/sb-grovel/def-to-lisp.lisp index fe83f9c..3b2cba1 100644 --- a/contrib/sb-grovel/def-to-lisp.lisp +++ b/contrib/sb-grovel/def-to-lisp.lisp @@ -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\");~%"))))) diff --git a/contrib/sb-posix/constants.lisp b/contrib/sb-posix/constants.lisp index 8a74784..69b3ea4 100644 --- a/contrib/sb-posix/constants.lisp +++ b/contrib/sb-posix/constants.lisp @@ -107,5 +107,5 @@ (:structure dirent ("struct dirent" (:c-string name "char *" "d_name" - :distrust-length #+solaris t #-solaris nil))) + :distrust-length #+sunos t #-sunos nil))) ) diff --git a/version.lisp-expr b/version.lisp-expr index 4466b07..04cb12d 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -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" -- 1.7.10.4