Commits

Anonymous committed 1acf1ab

Handle conditional reader syntax

Comments (0)

Files changed (2)

+2011-05-12  Didier Verna  <didier@xemacs.org>
+
+        From Nikodemus Siivola.
+	* slime-cl-indent.el (common-lisp-indent-function-1): Handle
+	#+ and #-. Also support the SBCL idiom of #!+ #!-.
+
 2011-05-12  Didier Verna  <didier@xemacs.org>
 
 	* cl-indent.el (lisp-lambda-list-first-keyword-column):
 			(not (eq (char-after (- containing-sexp 2)) ?\#)))
 		   ;; No indentation for "'(...)" elements
 		   (setq calculated (1+ sexp-column)))
+		  ((save-excursion
+                     (goto-char indent-point)
+                     (backward-sexp)
+                     (let ((xxx (buffer-substring-no-properties
+                                 (point) (+ (point) 3))))
+                       (and (eq ?\# (elt xxx 0))
+                            (or (member (elt xxx 1) '(?\+ ?\-))
+                                (and (eq ?\! (elt xxx 1))
+                                     (member (elt xxx 2) '(?\+ ?\-)))))))
+                   normal-indent)
 		  ((eq (char-after (1- containing-sexp)) ?\#)
 		   ;; "#(...)"
 		   (setq calculated (1+ sexp-column)))