X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=classic%2Ffunctional.lisp;h=565c40d585e64145292fb07408381b4e5efd59d8;hp=bf38a1219232716d18b90795eec91f89233a3bec;hb=09f07ac9d914a83f9426609f3264f4e66b5a6d97;hpb=39d3fefaebf35a19a211d1ab6552d7ff54faccd2 diff --git a/classic/functional.lisp b/classic/functional.lisp index bf38a12..565c40d 100644 --- a/classic/functional.lisp +++ b/classic/functional.lisp @@ -4,7 +4,6 @@ ;;;; ;;;; Name: functional.lisp ;;;; Purpose: Functional interface -;;;; Programmer: Pierre R. Mai ;;;; ;;;; Copyright (c) 1999-2001 Pierre R. Mai ;;;; @@ -12,30 +11,19 @@ ;;;; ;;;; This file is part of CLSQL. ;;;; -;;;; CLSQL is free software; you can redistribute it and/or modify -;;;; it under the terms of the GNU General Public License (version 2) as -;;;; published by the Free Software Foundation. -;;;; -;;;; CLSQL is distributed in the hope that it will be useful, -;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;;;; GNU General Public License for more details. -;;;; -;;;; You should have received a copy of the GNU General Public License -;;;; along with CLSQL; if not, write to the Free Software Foundation, Inc., -;;;; 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +;;;; CLSQL users are granted the rights to distribute and use this software +;;;; as governed by the terms of the Lisp Lesser GNU Public License +;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. ;;;; ************************************************************************* -(in-package #:clsql-sys) - +(in-package #:clsql-classic) ;;; This file implements the more advanced functions of the ;;; functional SQL interface, which are just nicer layers above the ;;; basic SQL interface. -;;; With the integration of CLSQL-USQL, these functions are no -;;; longer exported by the CLSQL package since they conflict with names -;;; exported by CLSQL-USQL +;;; These functions are no longer exported since they conflict with names +;;; exported by CLSQL (defun insert-records (&key into attributes values av-pairs query (database *default-database*))