r9335: Automated commit for Debian build of clsql upstream-version-2.10.16

[clsql.git] / classic / functional.lisp

diff --git a/classic/functional.lisp b/classic/functional.lisp
index bf38a1219232716d18b90795eec91f89233a3bec..565c40d585e64145292fb07408381b4e5efd59d8 100644 (file)
--- 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*))