From 158b76b5e78149ab852afccbd479aa26ff76dc33 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 29 Jan 2005 07:50:14 +0000 Subject: [PATCH] r10310: 29 Jan 2005 Kevin Rosenberg * db-postgresql/postgresql-loader.lisp: Add additional directories to Fink on darwin [patch from Cyrus Harmon]. --- ChangeLog | 4 ++++ db-postgresql/postgresql-loader.lisp | 4 ++-- tests/test-oodml.lisp | 8 ++++++++ 3 files changed, 14 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index c9e214e..70ea1dc 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +29 Jan 2005 Kevin Rosenberg + * db-postgresql/postgresql-loader.lisp: Add additional + directories to Fink on darwin [patch from Cyrus Harmon]. + 29 Jan 2005 Kevin Rosenberg * 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 39f80a2..ffaf53f 100644 --- 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 8bfdd36..4add4ad 100644 --- 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 -- 2.34.1