From 4a6b01d1d9003daee826675de8d6f98c272bf4d5 Mon Sep 17 00:00:00 2001 From: Didier Verna Date: Tue, 19 Jul 2011 11:31:01 +0200 Subject: [PATCH] Reindent clisp/util.lisp. --- clisp/util.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/clisp/util.lisp b/clisp/util.lisp index 69f2893..c048c49 100644 --- a/clisp/util.lisp +++ b/clisp/util.lisp @@ -38,15 +38,15 @@ This function relies on CFFI." (when output-fd (cffi:with-foreign-object (winsize 'winsize) (let ((result (cffi:foreign-funcall "ioctl" - :int output-fd - :int +tiocgwinsz+ - :pointer winsize - :int))) + :int output-fd + :int +tiocgwinsz+ + :pointer winsize + :int))) (if (= result -1) (unless (= +errno+ +enotty+) (values nil (cffi:foreign-funcall "strerror" - :int +errno+ :string))) + :int +errno+ :string))) (cffi:with-foreign-slots ((ws-col) winsize winsize) ws-col))))))) -- 2.11.4.GIT