355 |
(&whole nil &rest 1)) |
(&whole nil &rest 1)) |
356 |
path state indent-point sexp-column normal-indent))) |
path state indent-point sexp-column normal-indent))) |
357 |
|
|
358 |
(defun lisp-indent-defmethod (path state indent-point sexp-column |
(defun lisp-indent-defmethod (path state indent-point sexp-column |
359 |
normal-indent) |
normal-indent) |
360 |
"Indentation function defmethod." |
"Indentation function defmethod." |
361 |
(lisp-indent-259 (if (save-excursion (goto-char (elt state 1)) |
(lisp-indent-259 (if (save-excursion (goto-char (elt state 1)) |
419 |
(flet ((&whole 4 &rest (&whole 1 &lambda &body)) &body)) |
(flet ((&whole 4 &rest (&whole 1 &lambda &body)) &body)) |
420 |
(labels . flet) |
(labels . flet) |
421 |
(macrolet . flet) |
(macrolet . flet) |
422 |
|
(generic-flet . flet) (generic-labels . flet) |
423 |
(handler-case (4 &rest (&whole 2 &lambda &body))) |
(handler-case (4 &rest (&whole 2 &lambda &body))) |
424 |
(restart-case . handler-case) |
(restart-case . handler-case) |
425 |
;; `else-body' style |
;; `else-body' style |
456 |
(unless 1) |
(unless 1) |
457 |
(unwind-protect (5 &body)) |
(unwind-protect (5 &body)) |
458 |
(when 1) |
(when 1) |
459 |
|
(with-accessors . multiple-value-bind) |
460 |
|
(with-condition-restarts . multiple-value-bind) |
461 |
(with-output-to-string (4 2)) |
(with-output-to-string (4 2)) |
462 |
(with-slots . multiple-value-bind) |
(with-slots . multiple-value-bind) |
463 |
(with-standard-io-syntax (2))))) |
(with-standard-io-syntax (2))))) |
464 |
(while l |
(dolist (el l) |
465 |
(put (caar l) 'common-lisp-indent-function |
(put (car el) 'common-lisp-indent-function |
466 |
(if (symbolp (cdar l)) |
(if (symbolp (cdr el)) |
467 |
(get (cdar l) 'common-lisp-indent-function) |
(get (cdr el) 'common-lisp-indent-function) |
468 |
(car (cdar l)))) |
(car (cdr el)))))) |
|
(setq l (cdr l)))) |
|
469 |
|
|
470 |
|
|
471 |
;(defun foo (x) |
;(defun foo (x) |