544 |
(progv (4 4 &body)) |
(progv (4 4 &body)) |
545 |
(return 0) |
(return 0) |
546 |
(return-from (nil &body)) |
(return-from (nil &body)) |
547 |
(symbol-macrolet . multiple-value-bind) |
(symbol-macrolet . let) |
548 |
(tagbody lisp-indent-tagbody) |
(tagbody lisp-indent-tagbody) |
549 |
(throw 1) |
(throw 1) |
550 |
(unless 1) |
(unless 1) |
605 |
;(put 'defclass 'common-lisp-indent-function '((&whole 2 &rest (&whole 2 &rest 1) &rest (&whole 2 &rest 1))) |
;(put 'defclass 'common-lisp-indent-function '((&whole 2 &rest (&whole 2 &rest 1) &rest (&whole 2 &rest 1))) |
606 |
;(put 'defgeneric 'common-lisp-indent-function 'defun) |
;(put 'defgeneric 'common-lisp-indent-function 'defun) |
607 |
|
|
608 |
|
;;; arch-tag: 7914d50f-92ec-4476-93fc-0f043a380e03 |
609 |
;;; cl-indent.el ends here |
;;; cl-indent.el ends here |