From: Kevin M. Rosenberg Date: Tue, 9 Nov 2004 17:35:35 +0000 (+0000) Subject: r10146: 09 Nov 2004 Kevin Rosenberg X-Git-Tag: v3.8.6~208 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=46525a14e41672ba3daaf79c68fdc413e47c4fd0;hp=aa707c93f55554dc5447c58f24e1b3ad4c01f0b9 r10146: 09 Nov 2004 Kevin Rosenberg * sql/operations.lisp: Add lower and upper SQL functions from Daniel Lowe. --- 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.")))