 ;; To set the variable you can use the following command:
 ;;     M-x set-variable RET debug-on-error RET t RET
 ;;; Code:
+
+(eval-when-compile (require 'cl))
 
 ;; Variables:
 

  (self-insert-command arg)

  ;; Was this the second char in bit-syntax open (`<<')?
  (unless (< (point) 2)
    (save-excursion
      (backward-char 2)
      (when (and (eq (char-after (point)) ?<)


(defun erlang-after-bitsyntax-close ()
  "Return t if point is immediately after a bit-syntax close parenthesis (`>>')."
  (and (>= (point) 3)
       (save-excursion
	 (backward-char 2)
	 (and (eq (char-after (point)) ?>)
