r10310: 29 Jan 2005 Kevin Rosenberg <kevin@rosenberg.net>

        * db-postgresql/postgresql-loader.lisp: Add additional
        directories to Fink on darwin [patch from Cyrus Harmon].

diff --git a/ChangeLog b/ChangeLog
index c9e214e906226a3116b6f60335fdf528cba37df1..70ea1dce1daed04e7c41f659fe956f07abc3562c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+29 Jan 2005 Kevin Rosenberg <kevin@rosenberg.net>
+       * db-postgresql/postgresql-loader.lisp: Add additional
+       directories to Fink on darwin [patch from Cyrus Harmon].
+       
 29 Jan 2005 Kevin Rosenberg <kevin@rosenberg.net>
        * Version 3.1.6
        * sql/oodml.lisp: Clear view instance cache when delete-instance-records

diff --git a/db-postgresql/postgresql-loader.lisp b/db-postgresql/postgresql-loader.lisp
index 39f80a2c341f4d8796c5824f419e1b25b63353c1..ffaf53f2b7bd87bf1c955ffdeb9cc41b87697f31 100644 (file)
--- a/db-postgresql/postgresql-loader.lisp
+++ b/db-postgresql/postgresql-loader.lisp
@@ -39,10 +39,10 @@ set to the right path before compiling or loading the system.")
                    #+(or 64bit x86-64) "/usr/lib64/"
                    "/usr/lib/" "/postgresql/lib/"
                    "/usr/local/pgsql/lib/" "/usr/lib/pgsql/"
-                   "/opt/pgsql/lib/pgsql" "/sw/lib/pgsql/")
+                   "/opt/pgsql/lib/pgsql" "/sw/lib/pgsql/" "/sw/lib/")
                  :drive-letters '("C" "D" "E")
                  #+(or macosx darwin ccl-5.0) :types
-                 #+(or macosx darwin ccl-5.0) '("so")
+                 #+(or macosx darwin ccl-5.0) '("so" "dylib")
                  )))
     (if        (uffi:load-foreign-library libpath
                                   :module "postgresql"

diff --git a/tests/test-oodml.lisp b/tests/test-oodml.lisp
index 8bfdd362d6f45ace4f9d47a5f4928ce3846bc180..4add4ad181817f68bafe0379fbf02308f1ffb497 100644 (file)
--- a/tests/test-oodml.lisp
+++ b/tests/test-oodml.lisp
@@ -455,6 +455,14 @@
                 (mapcar #'(lambda (dea) (slot-value (slot-value dea 'address) 'addressid)) dea-list))))
          t t t t (1 1 2 2 2))
        
+       (deftest :oodml/uoj/2
+           (progn
+             (clsql:update-objects-joins (list company1))
+             (mapcar #'(lambda (e)
+                         (slot-value e 'ecompanyid))
+                (company-employees company1)))
+         (1 1 1 1 1 1 1 1 1 1))
+       
        (deftest :oodml/big/1 
            (let ((objs (clsql:select 'big :order-by [i] :flatp t)))
              (values