diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 9ff63c6c18b..0d8f881c210 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -1956,6 +1956,7 @@ This function could be MATCHER in a MATCH-ANCHORED `font-lock-keywords' item."
       (cons (concat
 	     "(" (regexp-opt
 		  '("when" "unless" "case" "ecase" "typecase" "etypecase"
+                    "ccase" "ctypecase" "handler-case" "assert" "error"
 		    "loop" "do" "do*" "dotimes" "dolist"
 		    "proclaim" "declaim" "declare"
 		    "lexical-let" "lexical-let*" "flet" "labels"