2008-11-08 Moritz <[email protected]>

	* lang/cl/gpg-error.lisp ("gpg_err_code_from_syserror"): Fix
	defcfun: removed "(void)".

	* lang/cl/gpg-error.lisp (size-t): Wrong call to defctype:
	function accepts optional, not keyword argument.
	(gpg-error-t): Likewise.

2 files changed, 12 insertions, 6 deletions

diff --git a/ChangeLog b/ChangeLog
index 116fc66..84e360c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2008-11-08  Moritz  <[email protected]>
+
+	* lang/cl/gpg-error.lisp ("gpg_err_code_from_syserror"): Fix
+	defcfun: removed "(void)".
+
+	* lang/cl/gpg-error.lisp (size-t): Wrong call to defctype:
+	function accepts optional, not keyword argument.
+	(gpg-error-t): Likewise.
+
 2008-10-29  Marcus Brinkmann  <[email protected]>
 
 	* src/mkstrtable.awk: Make generated code -W clean to silence gcc
diff --git a/lang/cl/gpg-error.lisp b/lang/cl/gpg-error.lisp
index c0948be..cad2532 100644
--- a/lang/cl/gpg-error.lisp
+++ b/lang/cl/gpg-error.lisp
@@ -31,8 +31,7 @@
 
 ;;; System dependencies.
 
-(defctype size-t :unsigned-int
-  :documentation "The system size_t type.")
+(defctype size-t :unsigned-int "The system size_t type.")
 
 ;;; Error sources.
 
@@ -62,8 +61,7 @@
 
 ;;; libgpg-error-codes.lisp is loaded by ASDF.
 
-(defctype gpg-error-t :unsigned-int
-  :documentation "The GPG error code type.")
+(defctype gpg-error-t :unsigned-int "The GPG error code type.")
 
 ;;; Bit mask manipulation constants.
 
@@ -111,8 +109,7 @@
   (code gpg-err-code-t))
 
 (defcfun ("gpg_err_code_from_syserror"
-           c-gpg-err-code-from-syserror) gpg-err-code-t
-  (void))
+           c-gpg-err-code-from-syserror) gpg-err-code-t)
 
 ;;; Self-documenting convenience functions.