r8936: merged classic-tests into tests

[clsql.git] / sql / table.lisp

diff --git a/sql/table.lisp b/sql/table.lisp
index 715cef0199c619a84da3b566fb4e4efd5fbea4fc..fbff1755f37a443a846e00399e6686d1446df30e 100644 (file)
--- a/sql/table.lisp
+++ b/sql/table.lisp
@@ -1,20 +1,21 @@
 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
-;;;; ======================================================================
-;;;; File:    table.lisp
-;;;; Updated: <04/04/2004 12:05:03 marcusp>
-;;;; ======================================================================
+;;;; *************************************************************************
 ;;;;
-;;;; Description ==========================================================
-;;;; ======================================================================
+;;;; $Id$
 ;;;;
-;;;; The CLSQL-USQL Functional Data Definition Language (FDDL)
+;;;; The CLSQL Functional Data Definition Language (FDDL)
 ;;;; including functions for schema manipulation. Currently supported
 ;;;; SQL objects include tables, views, indexes, attributes and
 ;;;; sequences.
 ;;;;
-;;;; ======================================================================
+;;;; 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-usql-sys)
+(in-package #:clsql-sys)
 
 
 ;; Utilities
@@ -317,4 +318,4 @@ POSITION."
 
 (defun sequence-last (name &key (database *default-database*))
   "Return the last value of the sequence NAME in DATABASE."
-  (database-sequence-last (database-identifier name) database))
\ No newline at end of file
+  (database-sequence-last (database-identifier name) database))