From bcb7244785b6ca2afbcc4230d7c587bf936c9f5c Mon Sep 17 00:00:00 2001 From: Artem Boldariev Date: Wed, 2 Jan 2019 18:30:59 +0200 Subject: [PATCH] Use Common Lisp style indenting for the IF-form. --- Sys/load-sys2.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Sys/load-sys2.lisp b/Sys/load-sys2.lisp index 34ae2d9..f381918 100644 --- a/Sys/load-sys2.lisp +++ b/Sys/load-sys2.lisp @@ -85,7 +85,9 @@ (let ((*package* (find-package :ide))) (with-input-from-string (in "") ;; to not let it hang, as it calls INDENT-LINES (let ((*standard-input* in)) - (load-file (concatenate 'string ccl::*cormanlisp-directory* "Sys\\scmindent\\lispindent.lisp"))))) + (load-file (concatenate 'string ccl::*cormanlisp-directory* "Sys\\scmindent\\lispindent.lisp")))) + ;; use Common Lisp style indenting for the IF form + (setf (cdr (assoc "IF" ide::*lisp-keywords* :test #'string-equal)) -1)) (load-file "sys/code-indenter.lisp") (load-file "sys/context-menu.lisp") (load-file "sys/setf-expander.lisp")