From adb39cba93d8ca785361be54bd872287f746a259 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 25 Aug 2008 16:23:00 +0200 Subject: [PATCH] Style change. Signed-off-by: Stelian Ionescu --- syscalls/os-conditions-unix.lisp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/syscalls/os-conditions-unix.lisp b/syscalls/os-conditions-unix.lisp index 5690ed6..cab6e3f 100644 --- a/syscalls/os-conditions-unix.lisp +++ b/syscalls/os-conditions-unix.lisp @@ -26,13 +26,13 @@ (macrolet ((define-posix-errors (keywords) `(progn - ,@(loop for kw in keywords collect - (let ((cond-name (intern (symbol-name kw))) - (code (foreign-enum-value 'errno-values kw))) - `(progn - (define-condition ,cond-name (posix-error) () - (:default-initargs :code ,code :identifier ,kw)) - (setf (gethash ,kw *posix-error-map*) ',cond-name))))))) + ,@(loop :for kw :in keywords :collect + (let ((cond-name (intern (symbol-name kw))) + (code (foreign-enum-value 'errno-values kw))) + `(progn + (define-condition ,cond-name (posix-error) () + (:default-initargs :code ,code :identifier ,kw)) + (setf (gethash ,kw *posix-error-map*) ',cond-name))))))) (define-posix-errors #.(foreign-enum-keyword-list 'errno-values))) -- 2.11.4.GIT