Random missing postgresql functions

(defsql sql-lower  (:symbol "lower") (&rest rest)
  (if (= (length rest) 1)
      (make-instance 'sql-function-exp
                     :name 'lower :args rest)
    (error 'sql-user-error :message "LOWER must have 1 argument.")))

(defsql sql-to-char (:symbol "to-char") (&rest rest)
  (if (= (length rest) 2)
      (make-instance 'sql-function-exp
                     :name 'to_char :args rest)
    (error 'sql-user-error :message "TO-CHAR must have two arguments.")))