(defvar pal-mode-hook nil)

(defvar pal-mode-map nil)

(or pal-mode-map
    (let ((bindings 
	   '(("\C-c\C-c" . 'pal-foo))))
      (setq pal-mode-map (make-keymap))
      (while bindings
	(define-key pal-mode-map 
	  (car (car bindings)) (cdr (car bindings)))
	(setq bindings (cdr bindings)))))
      

(defun pal-mode ()
  (interactive)
  (use-local-map pal-mode-map)
  (setq mode-name "Pal")
  (setq major-mode 'pal-mode)
  ;  (setq local-abbrev-table pal-mode-abbrev-table)
  ;  (set-syntax-table pal-mode-syntax-table)
  (run-hooks 'pal-mode-hook))