From: Russ Tyndall Date: Thu, 27 Aug 2009 17:13:24 +0000 (-0400) Subject: added LEFT and RIGHT sql functions X-Git-Url: http://git.kpe.io/?a=commitdiff_plain;h=9fb9efd51ef0477050f2c2ef0fe32bf1bef97067;p=clsql.git added LEFT and RIGHT sql functions --- diff --git a/sql/operations.lisp b/sql/operations.lisp index 3357761..3270a83 100644 --- a/sql/operations.lisp +++ b/sql/operations.lisp @@ -249,6 +249,16 @@ (make-instance 'sql-function-exp :name 'coalesce :args rest)) +(defsql sql-left (:symbol "left") (&rest rest) + "mssqlserver uses this to get the left n chars of a string" + (make-instance 'sql-function-exp + :name 'left :args rest)) + +(defsql sql-right (:symbol "right") (&rest rest) + "mssqlserver uses this to get the right n chars of a string" + (make-instance 'sql-function-exp + :name 'right :args rest)) + (defsql sql-nvl (:symbol "nvl") (&rest rest) (if (= (length rest) 2) (make-instance 'sql-function-exp