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 "**\\"))
         ))))