X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=base%2Floop-extension.lisp;fp=base%2Floop-extension.lisp;h=52144885982b56372fab1fe0451e25845b40d355;hb=c4da3cfcbb955395d8a556e1f89aadad696302b7;hp=76010e41bcb98e0813b92163ab1a0451d8d7b8e4;hpb=afa1e8481ca62ee15952c695fd04c8601b65b218;p=clsql.git

diff --git a/base/loop-extension.lisp b/base/loop-extension.lisp
index 76010e4..5214488 100644
--- 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))