From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Thu, 30 Jul 2009 11:02:21 +0000 (+0000)
Subject: 1.0.30.18: undefined variables in contribs
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=4bb09dd31a0a48602a934e7d61308e43498fd7fa;p=sbcl.git

1.0.30.18: undefined variables in contribs

 * No MSG_NOSIGNAL on Darwin. It was also groveled twice on Linux.

 * Tyop in SB-SIMPLE-STREAMS.

 ...the real question is why ASDF didn't consider these failures,
 though. Grumble.
---

diff --git a/contrib/sb-bsd-sockets/constants.lisp b/contrib/sb-bsd-sockets/constants.lisp
index 8d4d3de..2b131f2 100644
--- a/contrib/sb-bsd-sockets/constants.lisp
+++ b/contrib/sb-bsd-sockets/constants.lisp
@@ -91,7 +91,6 @@
  (:integer f-getfl "F_GETFL")
  (:integer f-setfl "F_SETFL")
 
- #+linux (:integer msg-nosignal "MSG_NOSIGNAL")
  (:integer msg-oob "MSG_OOB")
  (:integer msg-peek "MSG_PEEK")
  (:integer msg-trunc "MSG_TRUNC")
diff --git a/contrib/sb-bsd-sockets/sockets.lisp b/contrib/sb-bsd-sockets/sockets.lisp
index e21228f..ce6707e 100644
--- a/contrib/sb-bsd-sockets/sockets.lisp
+++ b/contrib/sb-bsd-sockets/sockets.lisp
@@ -249,7 +249,7 @@ send(2) will be called instead. Returns the number of octets written."))
                   (if eor sockint::MSG-EOR 0)
                   (if dontroute sockint::MSG-DONTROUTE 0)
                   (if dontwait sockint::MSG-DONTWAIT 0)
-                  (if nosignal sockint::MSG-NOSIGNAL 0)
+                  #-darwin (if nosignal sockint::MSG-NOSIGNAL 0)
                   #+linux (if confirm sockint::MSG-CONFIRM 0)
                   #+linux (if more sockint::MSG-MORE 0)))
          (buffer (etypecase buffer
diff --git a/contrib/sb-simple-streams/iodefs.lisp b/contrib/sb-simple-streams/iodefs.lisp
index 43314f8..6925e3d 100644
--- a/contrib/sb-simple-streams/iodefs.lisp
+++ b/contrib/sb-simple-streams/iodefs.lisp
@@ -15,7 +15,7 @@
 (in-package "SB-SIMPLE-STREAMS")
 
 (defun file-namestring (pathname)
-  (sb-ext:native-namestring (sb-int:physicalize-pathname pathnane) :as-file t))
+  (sb-ext:native-namestring (sb-int:physicalize-pathname pathname) :as-file t))
 
 (defmacro def-stream-class (name superclasses slots &rest options)
   `(defclass ,name ,superclasses ,slots ,@options))
diff --git a/version.lisp-expr b/version.lisp-expr
index 12bd78d..ff6c301 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".)
-"1.0.30.17"
+"1.0.30.18"