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
(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"
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\");~%")))))
(:structure dirent
("struct dirent"
(:c-string name "char *" "d_name"
- :distrust-length #+solaris t #-solaris nil)))
+ :distrust-length #+sunos t #-sunos nil)))
)
;;; 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"