[nio-cvs] r11 - branches/home/psmith/stress-mods/src

[psmith at common-lisp.net]

Author: psmith
Date: Sat Oct 28 20:48:59 2006
New Revision: 11

Added:
   branches/home/psmith/stress-mods/src/errno.lisp
Log:
Stress-mods branch:
	Commited missing file for errno on sbcl



Added: branches/home/psmith/stress-mods/src/errno.lisp
==============================================================================
--- (empty file)
+++ branches/home/psmith/stress-mods/src/errno.lisp	Sat Oct 28 20:48:59 2006
@@ -0,0 +1,34 @@
+#|
+Copyright (c) 2006 Risto Laakso
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions
+are met:
+1. Redistributions of source code must retain the above copyright
+   notice, this list of conditions and the following disclaimer.
+2. Redistributions in binary form must reproduce the above copyright
+   notice, this list of conditions and the following disclaimer in the
+   documentation and/or other materials provided with the distribution.
+3. The name of the author may not be used to endorse or promote products
+   derived from this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+|#
+(in-package :event-notification)
+
+(declaim (optimize (debug 3) (speed 3) (space 0)))
+
+(defun get-errno ()
+ #+sbcl (sb-alien:get-errno)
+ #-sbcl 0)
+