[nio-cvs] r62 - branches/home/psmith/restructure/src/compat

[psmith at common-lisp.net]

Author: psmith
Date: Fri Feb  2 22:12:25 2007
New Revision: 62

Modified:
   branches/home/psmith/restructure/src/compat/errno.lisp
   branches/home/psmith/restructure/src/compat/nio-compat-package.lisp
   branches/home/psmith/restructure/src/compat/nio-compat.asd
Log:
Added perror

Modified: branches/home/psmith/restructure/src/compat/errno.lisp
==============================================================================
--- branches/home/psmith/restructure/src/compat/errno.lisp	(original)
+++ branches/home/psmith/restructure/src/compat/errno.lisp	Fri Feb  2 22:12:25 2007
@@ -34,3 +34,11 @@
 
 (defconstant +ERRNO_EAGAIN+ 11)
 
+
+(cffi:defcfun ("perror" %perror) :void
+  (function-str :pointer))
+
+
+(defun perror()
+  (%perror (cffi:null-pointer)))
+  
\ No newline at end of file

Modified: branches/home/psmith/restructure/src/compat/nio-compat-package.lisp
==============================================================================
--- branches/home/psmith/restructure/src/compat/nio-compat-package.lisp	(original)
+++ branches/home/psmith/restructure/src/compat/nio-compat-package.lisp	Fri Feb  2 22:12:25 2007
@@ -29,7 +29,7 @@
 	    (:export
 
 	     ;; errno.lisp
-	     get-errno +ERRNO_EAGAIN+
+	     get-errno +ERRNO_EAGAIN+ perror
 	     
 	     ;;concurrent-queue
 	     concurrent-queue add take

Modified: branches/home/psmith/restructure/src/compat/nio-compat.asd
==============================================================================
--- branches/home/psmith/restructure/src/compat/nio-compat.asd	(original)
+++ branches/home/psmith/restructure/src/compat/nio-compat.asd	Fri Feb  2 22:12:25 2007
@@ -9,5 +9,5 @@
 		 (:file "concurrent-queue" :depends-on ("nio-compat-package"))
 		 )
 
-    :depends-on ())
+    :depends-on (:cffi))