Use Common Lisp style indenting for the IF-form.

sharplispers · Jan 2, 2019 · bcb7244 · bcb7244
1 parent 6bc0e55
commit bcb7244
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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")