Use cl-case macro instead of case

[holtzermann17]

Without this change I see the following error when I execute C-c C-c inside of an Org mode embeded sql block.

ejc-add-outside-borders-p: Wrong number of arguments: #[nil "Æ ˆÇÈÉÊˉÌ!!Èlj!#ˆÍÎÏ!‡" [truncate-lines major-mode mode-name ejc-result-table-impl view-read-only font-lock-defaults kill-all-local-variables t ejc-result-mode "SQL-Result" ...] 6 nil nil], 1

Debugger entered--Lisp error: (wrong-number-of-arguments #f(compiled-function () (interactive nil) #<bytecode 0x1cdc688f3bb88055>) 1)
  ejc-result-mode(nil)
  ejc-add-outside-borders-p()
  ejc-eval-sql-and-log(((:classpath . "/home/joe/.m2/repository/postgresql/postgresql/9.3...") (:password . "exchange_development") (:user . "exchange_service") (:host . "localhost") (:dbname . "openmarkets_development") (:dbtype . "postgresql")) "select id FROM demands limit 1\n" :rows-limit nil :column-width-limit nil :start-time (24130 47140 135143 656000) :sync t :display-result nil)
  ejc-eval-user-sql("select id FROM demands limit 1\n" :sync t :display-result nil)
  ejc-eval-user-sql-at-point(:beg 23122 :end 23153 :sync t :display-result nil)
  ejc-eval-org-snippet(#f(compiled-function (body params) "Execute a block of Sql code with Babel.\nThis function is called by `org-babel-execute-src-block'." #<bytecode -0x1c0988191475ebac>) "select id FROM demands limit 1" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "code") (:session . "none") (:cache . "no") (:noweb . "no") (:hlines . "no") (:tangle . "no")))
  apply(ejc-eval-org-snippet #f(compiled-function (body params) "Execute a block of Sql code with Babel.\nThis function is called by `org-babel-execute-src-block'." #<bytecode -0x1c0988191475ebac>) ("select id FROM demands limit 1" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "code") (:session . "none") (:cache . "no") (:noweb . "no") (:hlines . "no") (:tangle . "no"))))
  org-babel-execute:sql("select id FROM demands limit 1" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "code") (:session . "none") (:cache . "no") (:noweb . "no") (:hlines . "no") (:tangle . "no")))
  org-babel-execute-src-block(nil ("sql" "select id FROM demands limit 1" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "code") (:tangle . "no") (:hlines . "no") (:noweb . "no") (:cache . "no") (:session . "none")) "" nil 23106 "(ref:%s)"))
  org-ctrl-c-ctrl-c(nil)
  funcall-interactively(org-ctrl-c-ctrl-c nil)
  call-interactively(org-ctrl-c-ctrl-c nil nil)
  command-execute(org-ctrl-c-ctrl-c)

[kostafey]

Thank you. Merged.