r8863: updates

[clsql.git] / base / database.lisp

diff --git a/base/database.lisp b/base/database.lisp
index 839204f3c57de01fde008441a32a6b1d858cf2f3..78b6faafa2867d7846eeef96675b06e8e0e4d3e1 100644 (file)
--- a/base/database.lisp
+++ b/base/database.lisp
@@ -1,7 +1,16 @@
 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 ;;;; *************************************************************************
 ;;;;
-;;;; $Id: $
+;;;; $Id$
+;;;;
+;;;; Base database functions
+;;;;
+;;;; This file is part of CLSQL.
+;;;;
+;;;; 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-base-sys)
 
@@ -23,7 +32,6 @@
 (defvar *default-database* nil
   "Specifies the default database to be used.")
 
-;;; usql
 (defun find-database (database &key (errorp t) (db-type nil))
   "The function FIND-DATABASE, given a string DATABASE, searches
 amongst the connected databases for one matching the name DATABASE. If