From c7054c4b3e48f6664d30ea6724b78f09d64a41c2 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 21 Jan 2008 09:50:41 +0100 Subject: [PATCH] GPG-ERROR: whitespace fixes. Signed-off-by: Stelian Ionescu --- net.tls/gpg-error/gpg-error-codes.lisp | 3 +-- net.tls/gpg-error/gpg-error-package.lisp | 1 - net.tls/gpg-error/gpg-error.lisp | 34 ++++++++++++++++---------------- 3 files changed, 18 insertions(+), 20 deletions(-) diff --git a/net.tls/gpg-error/gpg-error-codes.lisp b/net.tls/gpg-error/gpg-error-codes.lisp index cd27281..938df61 100644 --- a/net.tls/gpg-error/gpg-error-codes.lisp +++ b/net.tls/gpg-error/gpg-error-codes.lisp @@ -413,5 +413,4 @@ (:gpg-err-eusers (logior +gpg-err-system-error+ 137)) (:gpg-err-ewouldblock (logior +gpg-err-system-error+ 138)) (:gpg-err-exdev (logior +gpg-err-system-error+ 139)) - (:gpg-err-exfull (logior +gpg-err-system-error+ 140)) -) + (:gpg-err-exfull (logior +gpg-err-system-error+ 140))) diff --git a/net.tls/gpg-error/gpg-error-package.lisp b/net.tls/gpg-error/gpg-error-package.lisp index 77c4f34..5809fff 100644 --- a/net.tls/gpg-error/gpg-error-package.lisp +++ b/net.tls/gpg-error/gpg-error-package.lisp @@ -42,7 +42,6 @@ (defpackage #:gpg-error (:use #:common-lisp #:cffi) - (:export #:gpg-err-code-as-key #:gpg-err-code-as-value #:gpg-err-source-as-key diff --git a/net.tls/gpg-error/gpg-error.lisp b/net.tls/gpg-error/gpg-error.lisp index 2b9e40d..b177ea9 100644 --- a/net.tls/gpg-error/gpg-error.lisp +++ b/net.tls/gpg-error/gpg-error.lisp @@ -82,17 +82,17 @@ Within a subsystem, use gpg-error instead." (logior (ash (logand source +gpg-err-source-mask+) - +gpg-err-source-shift+) + +gpg-err-source-shift+) (logand code +gpg-err-code-mask+))) (defun c-gpg-err-code (err) - "retrieve the error code from an error value." + "Retrieve the error code from an error value." (logand err +gpg-err-code-mask+)) (defun c-gpg-err-source (err) "retrieve the error source from an error value." (logand (ash err (- +gpg-err-source-shift+)) - +gpg-err-source-mask+)) + +gpg-err-source-mask+)) ;;; String functions. @@ -111,7 +111,7 @@ (code gpg-err-code-t)) (defcfun ("gpg_err_code_from_syserror" - c-gpg-err-code-from-syserror) gpg-err-code-t) + c-gpg-err-code-from-syserror) gpg-err-code-t) ;;; Self-documenting convenience functions. @@ -145,7 +145,7 @@ "Get the integer representation of the error value ERR." (let ((error (gpg-err-canonicalize err))) (c-gpg-err-make (gpg-err-source-as-value (gpg-err-source error)) - (gpg-err-code-as-value (gpg-err-code error))))) + (gpg-err-code-as-value (gpg-err-code error))))) ;;; Constructor and accessor functions. @@ -156,28 +156,28 @@ ;; the error source value as is when provided as integer, instead of ;; parsing it as an error value. (list (if (integerp source) - (gpg-err-source-as-key source) - (gpg-err-source source)) - (gpg-err-code code))) + (gpg-err-source-as-key source) + (gpg-err-source source)) + (gpg-err-code code))) (defvar *gpg-err-source-default* :gpg-err-source-unknown - "define this to specify a default source for gpg-error.") + "Define this to specify a default source for gpg-error.") (defun gpg-error (code) "Construct an error value from an error code, using the default source." (gpg-err-make *gpg-err-source-default* code)) (defun gpg-err-code (err) - "Retrieve an error code from the error value ERR." - (cond ((listp err) (second err)) - ((keywordp err) err) ; FIXME - (t (gpg-err-code-as-key (c-gpg-err-code err))))) + "Retrieve an error code from the error value ERR." + (cond ((listp err) (second err)) + ((keywordp err) err) ; FIXME + (t (gpg-err-code-as-key (c-gpg-err-code err))))) (defun gpg-err-source (err) - "Retrieve an error source from the error value ERR." - (cond ((listp err) (first err)) - ((keywordp err) err) ; FIXME - (t (gpg-err-source-as-key (c-gpg-err-source err))))) + "Retrieve an error source from the error value ERR." + (cond ((listp err) (first err)) + ((keywordp err) err) ; FIXME + (t (gpg-err-source-as-key (c-gpg-err-source err))))) ;;; String functions. -- 2.11.4.GIT