(put '<<def 'common-lisp-indent-function '(as lambda))
(put '<<if 'common-lisp-indent-function '(as if))
(put '<<let 'common-lisp-indent-function '(as let))

(font-lock-add-keywords 'lisp-mode '("<<\\<def\\>" "<<\\<if\\>"  "<<\\<let\\>"))