 
 ;;; Code
 
-(require 'cc-mode)
-(require 'font-lock)
-(require 'newcomment)
-(require 'thingatpt)
+(eval-and-compile
+  (require 'cc-mode)
+  (require 'font-lock)
+  (require 'newcomment)
+  (require 'thingatpt))
 
 (eval-when-compile
-  (require 'cl))
-
-(declaim (optimize (speed 0) (safety 3))) ; XXX: change for release
+  (require 'cl)
+  (proclaim '(optimize (speed 0) (safety 3))))
 
 ;;; Constants
 

;; Author: Karl Landstrom <karl.landstrom@brgeight.se>
;; Author: Daniel Colascione <dan.colascione@gmail.com>
;; Maintainer: Daniel Colascione <dan.colascione@gmail.com>
;; Version: 5
;; Date: 2009-04-30
;; Keywords: languages, oop, javascript


    ;; Highlights parent class, in parts, if available
    (espresso--class-decl-matcher
     ,(concat "\\(" espresso--name-re "\\)\\(?:\\.\\|.*$\\)")
     (if (match-beginning 2)
         (progn
           (setq espresso--tmp-location (match-end 2))
           (goto-char espresso--tmp-location)
           (insert "=")
           (goto-char (match-beginning 2)))
       (setq espresso--tmp-location nil)
       (goto-char (point-at-eol)))
     (when espresso--tmp-location
       (save-excursion
         (goto-char espresso--tmp-location)
         (delete-char 1)))
     (1 font-lock-type-face))

    ;; Highlights parent class
