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))
