-;; "List of library flags needed to be passed to ld to load the
-;;Oracle client library succesfully. If this differs at your site,
-;;set *oracle-so-libraries* to the right path before compiling or
-;;loading the system.")
-
-#+oracle-9i
-(defun oracle-libraries ()
- `(,(concatenate 'string
- "-L" *oracle-home* "/lib")
- "-lagent9"
- "-lagtsh"
-;; "-locijdbc8"
- "-lclntsh"
- "-lclntst9"
- "-lclient9"
- "-lvsn9"
- "-lcommon9"
- "-lskgxp9"
- "-lmm"
- "-lnls9"
- "-lcore9"
- "-lgeneric9"
- "-ltrace9"
- "-ldl"
- #+redhat-linux "-L/usr/lib/gcc-lib/i386-redhat-linux/2.96"
- "-lgcc"
- "-lm"))
-
-(defmethod database-type-load-foreign ((database-type (eql :oracle)))
- (progv '(sys::*dso-linker*)
- '("/usr/bin/ld")
- (ext:load-foreign (make-oracle-load-path)
- :libraries (oracle-libraries))))
-
-
-(database-type-load-foreign :oracle)