X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fpackage.lisp;h=98bfd2d404267d5ac61916e394624a12c577a26e;hb=f469a630aeb903c0574dea5b1ac478bed182d072;hp=952825ee099ae2288e528346cd14cde31dbc616f;hpb=7e20a5285824bbbd2aa6fae61da73465ed2e8557;p=clsql.git

diff --git a/sql/package.lisp b/sql/package.lisp
index 952825e..98bfd2d 100644
--- a/sql/package.lisp
+++ b/sql/package.lisp
@@ -29,7 +29,7 @@
 
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (defpackage #:clsql-sys
+  (defpackage #:clsql
     (:use #:common-lisp #:clsql-base
 	  #+clsql-sbcl-mop #:sb-mop
 	  #+clsql-cmucl-mop #:mop
@@ -350,6 +350,8 @@
        #:locally-enable-sql-reader-syntax  ; syntax     xx
        #:restore-sql-reader-syntax-state   ; syntax     xx
 
+       #:*update-records-on-make-instance* 
+       
        ;;------------------------------------------------
        ;; Miscellaneous Extensions
        ;;------------------------------------------------
@@ -435,15 +437,9 @@
 (setf *packages-for-warn-on-redefinition* 
       (delete "SQL" *packages-for-warn-on-redefinition* :test 'string=))
 
-(defpackage #:clsql
-  (:use #:common-lisp)
-  (:import-from #:clsql-sys . #2#)
-  (:export . #2#)
-  (:documentation "This is the SQL-Interface package of CLSQL."))
-
 (defpackage #:clsql-user
   (:use #:common-lisp)
-  (:import-from #:clsql-sys . #2#)
+  (:import-from #:clsql . #2#)
   (:export . #2#)
   (:documentation "This is the user package with CLSQL symbols."))