RE: ODBC in v2.0?
JP Massar <[email protected]> Mon, 14 Apr 2003 12:03:58 -0700
| Newsgroups | gmane.lisp.corman |
|---|---|
| Message-ID | <[email protected]> |
> > > At least it's a different error..... > > I've also tried the
> commands in >
> ...\Libraries\sql-odbc-0.85\examples\sample-session.lisp > > They don't
> work either - probably because it's not clear to me how to modify > stuff
> like the following to work with Corman Common Lisp: > > (setf
> (logical-pathname-translations "sql") >Â Â Â Â Â Â '(("**;*.*"
> "ccl:projects;sql-odbc 0.85;**;")))
Here is an example of logical pathname translation that I got
to work, based on an example I had from Chris Double.
I don't claim anything about it except that it works...
(And that it might help you get yours to work)
(defparameter *biol-directory*
(make-pathname
:host (pathname-host *load-truename*)
:device (pathname-device *load-truename*)
:directory (pathname-directory *load-truename*)
:name nil
:type nil
:version nil))
#+CORMANLISP
(progn
;; Takes a few seconds, so let user know something is going on.
(format t "~%;; Loading logical pathnames module...~%") (force-output)
(require 'lp))
#+CORMANLISP
(use-package :lp)
#+CORMANLISP
(progn
(setf (lp::physical-host-type (pathname-device *biol-directory*)) :win32)
(let ((dirstring (namestring *biol-directory*)))
(setf (logical-pathname-translations "biol")
`(("*.*.*" ,dirstring)
("**;*.*.*" ,(concatenate 'string dirstring "**\\"))
(";**;*.*.*" ,(concatenate 'string dirstring "**\\"))
))))