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