
(defun message (format-string &rest args) (interactive))

(load-library "cl")
(load-library "cl-macs")
(require 'cl-19 "cl")
(require 'cl)

;; code goes here

(fset 'message-old (fget 'message)

(symbol-function 'message)

(provide 'foo)

(cond
 ((= 1 1)
  "foo")
 ((= 2 2)
  "bar"))
