[elephant-cvs] CVS elephant

[ieslick]

Update of /project/elephant/cvsroot/elephant
In directory clnet:/tmp/cvs-serv22309

Modified Files:
	ele-clsql.asd 
Log Message:
Removed legacy path computations for clsql

--- /project/elephant/cvsroot/elephant/ele-clsql.asd	2007/02/07 22:54:12	1.9
+++ /project/elephant/cvsroot/elephant/ele-clsql.asd	2007/03/23 16:31:52	1.10
@@ -27,18 +27,18 @@
 ;;    (clsql:push-library-path *elephant-lib-path*)
 ;; )
 
-(defparameter *clsql-foreign-lib-path* #p"/usr/lib")
-(defparameter *elephant-lib-path* #p"/usr/local/share/common-lisp/elephant/")
+;;(defparameter *clsql-foreign-lib-path* #p"/usr/lib")
+;;(defparameter *elephant-lib-path* #p"/usr/local/share/common-lisp/elephant/")
 
-(defmethod asdf:perform :after ((o asdf:load-op) 
-				(c (eql (asdf:find-system 'clsql))))
-  (let ((plp (find-symbol (symbol-name '#:push-library-path)
-			(find-package 'clsql))))
-  (funcall plp
-	   *clsql-foreign-lib-path*)
-  (funcall plp
-	   *elephant-lib-path*)
-))
+;;(defmethod asdf:perform :after ((o asdf:load-op) 
+;				(c (eql (asdf:find-system 'clsql))))
+;;  (let ((plp (find-symbol (symbol-name '#:push-library-path)
+;;			  (find-package 'clsql))))
+;;  (funcall plp
+;;	   *clsql-foreign-lib-path*)
+;;  (funcall plp
+;;	   *elephant-lib-path*)
+;;))
 
 (defsystem ele-clsql
   :name "elephant"