From 9fb9efd51ef0477050f2c2ef0fe32bf1bef97067 Mon Sep 17 00:00:00 2001 From: Russ Tyndall Date: Thu, 27 Aug 2009 13:13:24 -0400 Subject: [PATCH] added LEFT and RIGHT sql functions --- sql/operations.lisp | 10 ++++++++++ 1 file changed, 10 insertions(+) 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 -- 2.34.1