r8926: add database-create database-destroy database-probe

[clsql.git] / base / loop-extension.lisp

diff --git a/base/loop-extension.lisp b/base/loop-extension.lisp
index 76010e41bcb98e0813b92163ab1a0451d8d7b8e4..52144885982b56372fab1fe0451e25845b40d355 100644 (file)
--- a/base/loop-extension.lisp
+++ b/base/loop-extension.lisp
@@ -34,21 +34,14 @@
                  #:*epilogue*)))
 
 #+allegro
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (unless (find-package '#:ansi-loop)
-    (let ((excl::*enable-package-locked-errors* nil))
-      (rename-package '#:excl '#:excl
-                     (cons '#:ansi-loop
-                           (package-nicknames (find-package '#:excl)))))))
-
-#+lispworks
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (unless (find-package '#:ansi-loop)
-    (rename-package '#:loop '#:loop
-                   (cons '#:ansi-loop
-                         (package-nicknames (find-package '#:loop))))))
+(defpackage #:ansi-loop 
+  (:import-from #:excl 
+               #:loop-error
+               #:*loop-epilogue*
+               #:*loop-ansi-universe* 
+               #:add-loop-path))
 
-#+(or sbcl lispworks)
+#+sbcl
 (defun ansi-loop::loop-gentemp (&optional (pref 'loopva-))
   (gensym (string pref)))
 
@@ -135,6 +128,10 @@
 
 #+lispworks (in-package loop)
 
+#+lispworks
+(defun loop::loop-gentemp (&optional (pref 'loopva-))
+  (gensym (string pref)))
+
 #+lispworks
 (cl-user::define-loop-method (record records tuple tuples) ansi-loop::clsql-loop-method (in of from))