From 46525a14e41672ba3daaf79c68fdc413e47c4fd0 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 9 Nov 2004 17:35:35 +0000 Subject: [PATCH 1/1] r10146: 09 Nov 2004 Kevin Rosenberg * sql/operations.lisp: Add lower and upper SQL functions from Daniel Lowe. --- ChangeLog | 4 ++++ sql/operations.lisp | 12 ++++++++++++ 2 files changed, 16 insertions(+) diff --git a/ChangeLog b/ChangeLog index 5743b75..edf6b8a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +09 Nov 2004 Kevin Rosenberg + * sql/operations.lisp: Add lower and upper SQL + functions from Daniel Lowe. + 08 Nov 2004 Kevin Rosenberg * sql/expressions.lisp: Fix slot name [thanks to Daniel Lowe] diff --git a/sql/operations.lisp b/sql/operations.lisp index 9d8440a..94ee209 100644 --- a/sql/operations.lisp +++ b/sql/operations.lisp @@ -242,3 +242,15 @@ (defsql sql-userenv (:symbol "userenv") (&rest rest) (make-instance 'sql-function-exp :name 'userenv :args rest)) + +(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-upper (:symbol "upper") (&rest rest) + (if (= (length rest) 1) + (make-instance 'sql-function-exp + :name 'upper :args rest) + (error 'sql-user-error :message "UPPER must have 1 argument."))) -- 2.34.1