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"