Steel Bank Common Lisp

Hi Marcin,

I've not looked at BKNR for a while but when it did, it used ASDF for  
installation. If this is still the case, then you'll want to include  
the paths to the BKNR asd files (the system definitions) in the  
variable asdf:*central-registry*.

I hope this helps; if not, I'm probably misunderstanding the question  
so please ask again!


On Feb 14, 2007, at 10:23 AM, Marcin Tustin wrote:

> I'm trying to install BKNR (a framework, whose load process  
> obviously wants to be configured with the location of the files)  
> with sbcl, into the directory where the contrib stuff is kept, but  
> I can't seem to get SBCL to expose this as a variable. Is there a  
> builtin variable that has this? Also, is there a good resource for  
> such extensions, or should I go grovelling through the code?
> ---------------------------------------------------------------------- 
> ---
> Take Surveys. Earn Cash. Influence the Future of IT
> Join SourceForge.net's Techsay panel and you'll get the chance to  
> share your
> opinions on IT & business topics through brief surveys-and earn cash
> http://www.techsay.com/default.php? 
> page=join.php&p=sourceforge&CID=DEVDEV________________________________ 
> _______________
> Sbcl-help mailing list
> Sbcl-help@...
> https://lists.sourceforge.net/lists/listinfo/sbcl-help

--
Gary Warren King, metabang.com
Cell: (413) 885 9127
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM

On 2/14/07, Gary King <gwking@...> wrote:
>
> Hi Marcin,
> I've not looked at BKNR for a while but when it did, it used ASDF for
> installation. If this is still the case, then you'll want to include the
> paths to the BKNR asd files (the system definitions) in the variable
> asdf:*central-registry*.
>
> I hope this helps; if not, I'm probably misunderstanding the question so
> please ask again!
>

My question isn't really a  BKNR one - I just mentioned that for context. I
want to know if there is a way to programmatically discover where SBCL keeps
contrib code. I want to use this in config files which need to be configured
with install paths.

OK. I think that the answer is still asdf:*central-registry*. For  
example, mine is:

> ("user-home:darcs;asdf-systems;" "/repository/darcs/asdf-systems/"
> "/Users/gwking/.asdf-install-dir/systems/"
> (MERGE-PATHNAMES ".sbcl/systems/" (USER-HOMEDIR-PATHNAME))
> (LET ((ASDF::HOME (POSIX-GETENV "SBCL_HOME")))
>    (WHEN ASDF::HOME (MERGE-PATHNAMES "site-systems/" (TRUENAME  
> ASDF::HOME))))
> *DEFAULT-PATHNAME-DEFAULTS*)

(the contents of the list are evaluated when asdf searches for  
systems which is why some of the items are code that will evaluated  
into a pathname and not pathnames themselves.)

HTH,

On Feb 14, 2007, at 10:38 AM, Marcin Tustin wrote:

>
>
> On 2/14/07, Gary King <gwking@...> wrote:
> Hi Marcin,
>
> I've not looked at BKNR for a while but when it did, it used ASDF  
> for installation. If this is still the case, then you'll want to  
> include the paths to the BKNR asd files (the system definitions) in  
> the variable asdf:*central-registry*.
>
> I hope this helps; if not, I'm probably misunderstanding the  
> question so please ask again!
>
> My question isn't really a  BKNR one - I just mentioned that for  
> context. I want to know if there is a way to programmatically  
> discover where SBCL keeps contrib code. I want to use this in  
> config files which need to be configured with install paths.
>
>
> ---------------------------------------------------------------------- 
> ---
> Take Surveys. Earn Cash. Influence the Future of IT
> Join SourceForge.net's Techsay panel and you'll get the chance to  
> share your
> opinions on IT & business topics through brief surveys-and earn cash
> http://www.techsay.com/default.php? 
> page=join.php&p=sourceforge&CID=DEVDEV________________________________ 
> _______________
> Sbcl-help mailing list
> Sbcl-help@...
> https://lists.sourceforge.net/lists/listinfo/sbcl-help

--
Gary Warren King, metabang.com
Cell: (413) 885 9127
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM

Thanks, I'll try that. I still want to know if anyone knows if there's a
good reference for what the builtin variables for things like this is, or if
I should grovel the code/process the docstrings in the packages in some way.

On 2/14/07, Gary King <gwking@...> wrote:
>
> OK. I think that the answer is still asdf:*central-registry*. For example,
> mine is:
>
> ("user-home:darcs;asdf-systems;" "/repository/darcs/asdf-systems/"
> "/Users/gwking/.asdf-install-dir/systems/"
> (MERGE-PATHNAMES ".sbcl/systems/" (USER-HOMEDIR-PATHNAME))
> (LET ((ASDF::HOME (POSIX-GETENV "SBCL_HOME")))
>    (WHEN ASDF::HOME (MERGE-PATHNAMES "site-systems/" (TRUENAME
> ASDF::HOME))))
> *DEFAULT-PATHNAME-DEFAULTS*)
>
>
> (the contents of the list are evaluated when asdf searches for systems
> which is why some of the items are code that will evaluated into a pathname
> and not pathnames themselves.)
>
> HTH,
>
> On Feb 14, 2007, at 10:38 AM, Marcin Tustin wrote:
>
>
>
> On 2/14/07, Gary King <gwking@...> wrote:
> >
> > Hi Marcin,
> > I've not looked at BKNR for a while but when it did, it used ASDF for
> > installation. If this is still the case, then you'll want to include the
> > paths to the BKNR asd files (the system definitions) in the variable
> > asdf:*central-registry*.
> >
> > I hope this helps; if not, I'm probably misunderstanding the question so
> > please ask again!
> >
>
> My question isn't really a  BKNR one - I just mentioned that for context.
> I want to know if there is a way to programmatically discover where SBCL
> keeps contrib code. I want to use this in config files which need to be
> configured with install paths.
>
>
> -------------------------------------------------------------------------
> Take Surveys. Earn Cash. Influence the Future of IT
> Join SourceForge.net's Techsay panel and you'll get the chance to share
> your
> opinions on IT & business topics through brief surveys-and earn cash
>
> http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV_______________________________________________
> Sbcl-help mailing list
> Sbcl-help@...
> https://lists.sourceforge.net/lists/listinfo/sbcl-help
>
>
> --
> Gary Warren King, metabang.com
> Cell: (413) 885 9127
> Fax: (206) 338-4052
> gwkkwg on Skype * garethsan on AIM
>
>
>
>
>

This hasn't helped at all. I don't even have any idea why. I've always
avoided using asdf-based software because I find it very confusing.

Here's what happens: I edit my bknr/init.lisp so that the sbcl sections look
like:

  (setf (logical-pathname-translations "bknr")
      `(("**;*.*.*"
         ,(merge-pathnames
           (make-pathname :directory '(:relative "bknr-svn" "bknr"
:wild-inferiors)
                          :name    :wild
                          :type    :wild
                          :version :wild)
            asdf:*central-registry*)))

Then, sbcl chokes on that because apparently a single pathname must appear
in the position of asdf:*central-registry*. By contrast, if I replace
asdf:*central-registry* with (POSIX-GETENV "SBCL_HOME"), then the file loads
just fine, but when I do (asdf:oos 'asdf:load-op :bknr), sbcl drops into the
debugger with the message "debugger invoked on a ASDF:MISSING-COMPONENT in
thread #<THREAD "initial thread" {A744531}>:
  component "bknr" not found"

Why? What should I do to make asdf know about bknr? Bknr is currently
installed in $SBCL_HOME/bknr-svn, with the various bknr etc. directories
below that.

On 2/14/07, Gary King <gwking@...> wrote:
>
> OK. I think that the answer is still asdf:*central-registry*. For example,
> mine is:
>
> ("user-home:darcs;asdf-systems;" "/repository/darcs/asdf-systems/"
> "/Users/gwking/.asdf-install-dir/systems/"
> (MERGE-PATHNAMES ".sbcl/systems/" (USER-HOMEDIR-PATHNAME))
> (LET ((ASDF::HOME (POSIX-GETENV "SBCL_HOME")))
>    (WHEN ASDF::HOME (MERGE-PATHNAMES "site-systems/" (TRUENAME
> ASDF::HOME))))
> *DEFAULT-PATHNAME-DEFAULTS*)
>
>
> (the contents of the list are evaluated when asdf searches for systems
> which is why some of the items are code that will evaluated into a pathname
> and not pathnames themselves.)
>
> HTH,
>
> On Feb 14, 2007, at 10:38 AM, Marcin Tustin wrote:
>
>
>
> On 2/14/07, Gary King <gwking@...> wrote:
> >
> > Hi Marcin,
> > I've not looked at BKNR for a while but when it did, it used ASDF for
> > installation. If this is still the case, then you'll want to include the
> > paths to the BKNR asd files (the system definitions) in the variable
> > asdf:*central-registry*.
> >
> > I hope this helps; if not, I'm probably misunderstanding the question so
> > please ask again!
> >
>
> My question isn't really a  BKNR one - I just mentioned that for context.
> I want to know if there is a way to programmatically discover where SBCL
> keeps contrib code. I want to use this in config files which need to be
> configured with install paths.
>
>
> -------------------------------------------------------------------------
> Take Surveys. Earn Cash. Influence the Future of IT
> Join SourceForge.net's Techsay panel and you'll get the chance to share
> your
> opinions on IT & business topics through brief surveys-and earn cash
>
> http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV_______________________________________________
> Sbcl-help mailing list
> Sbcl-help@...
> https://lists.sourceforge.net/lists/listinfo/sbcl-help
>
>
> --
> Gary Warren King, metabang.com
> Cell: (413) 885 9127
> Fax: (206) 338-4052
> gwkkwg on Skype * garethsan on AIM
>
>
>
>
>

I should probably show my whole bknr/init.lisp for reference:
(in-package :cl-user)
(require :asdf)

;;;;;;;;;;;;;
;; Tweak this
(eval-when (:execute :compile-toplevel :load-toplevel)
  #+allegro
  (setf (logical-pathname-translations "bknr")
    `(("**;*.*.*" "bknr/**/"))
    (logical-pathname-translations "bknr-thirdparty")
    `(("**;*.*.*" "thirdparty/**/"))
    (logical-pathname-translations "eboy")
    `(("**;*.*.*" "eboy/**/")))

  #+cmu
  (setf (logical-pathname-translations "bknr")
    `(("**;*.*.*" "home:bknr-sputnik/bknr/**/"))
    (logical-pathname-translations "bknr-thirdparty")
    `(("**;*.*.*" "home:bknr-sputnik/thirdparty/**/"))
    (logical-pathname-translations "eboy")
    `(("**;*.*.*" "home:bknr-sputnik/eboy/**/")))

  #+sbcl
  (setf (logical-pathname-translations "bknr")
      `(("**;*.*.*"
         ,(merge-pathnames
           (make-pathname :directory '(:relative "bknr-svn" "bknr"
:wild-inferiors)
                          :name    :wild
                          :type    :wild
                          :version :wild)
            asdf:*central-registry*)))
       (logical-pathname-translations "bknr-thirdparty")
      `(("**;*.*.*"
         ,(merge-pathnames
           (make-pathname :directory '(:relative "bknr-svn" "thirdparty"
:wild-inferiors)
                          :name    :wild
                          :type    :wild
                          :version :wild)
            asdf:*central-registry*)))
       (logical-pathname-translations "eboy")
      `(("**;*.*.*"
         ,(merge-pathnames
           (make-pathname :directory '(:relative "bknr-svn" "eboy"
:wild-inferiors)
                          :name    :wild
                          :type    :wild
                          :version :wild)
            asdf:*central-registry*)))))

(eval-when (:execute :compile-toplevel :load-toplevel)
  #-sbcl
  (load #p"bknr-thirdparty:asdf;asdf")
  #+sbcl
  (require :asdf))

(pushnew (translate-logical-pathname #p"bknr:src;") asdf:*central-registry*
:test #'equal)
(pushnew (translate-logical-pathname #p"eboy:src;") asdf:*central-registry*
:test #'equal)

(defparameter *patch-directory* "bknr:patches;")

(defun load-patches (&optional (directory *patch-directory*))
  (dolist (file (directory (merge-pathnames directory #p"patch-*.lisp")))
    (warn "; Loading patch from file ~A~%" file)
    (load file)))

(defun fix-dpd ()
  #+cmu
  ;; Die Sache mit dem aktuellen Verzeichnis hat CMUCL noch immer nicht im
  ;; Griff.  Nachbessern!
  (setf *default-pathname-defaults*
        (pathname
         (concatenate 'string
                      (nth-value 1 (unix:unix-current-directory))
                      "/"))))

(defun make-wild-pathname (type directory)
  (merge-pathnames (make-pathname :type type
                  :name :wild
                  :directory '(:relative :wild-inferiors))
           directory))

(defun setup-registry ()
  (mapc #'(lambda (asd-pathname)
        (pushnew (make-pathname :directory (pathname-directory
asd-pathname))
             asdf:*central-registry*
             :test #'equal))
    (append (directory #p"bknr-thirdparty:**;*.asd")
        (directory #p"bknr:**;*.asd"))))

(defun clean-registry (&optional (dirs asdf:*central-registry*))
  (let ((files (mapcan #'directory
               (mapcan #'(lambda (dir)
                   (when (pathnamep dir)
                     (list (make-wild-pathname "fas" dir)
                       (make-wild-pathname "lib" dir)
                       (make-wild-pathname "x86f" dir)
                       (make-wild-pathname "fasl" dir))))
                   dirs))))
    (dolist (file files)
      (when (probe-file file)
    (format t "Deleting binary file ~S~%" file)
    (delete-file file)))))

#+cmu
(load-patches)

(setup-registry)
(fix-dpd)

(pushnew :cl-gd-gif *features*)

"Marcin Tustin" <mm3@...> writes:

> Here's what happens: I edit my bknr/init.lisp so that the sbcl
> sections look like:
>
>   (setf (logical-pathname-translations "bknr")
>       `(("**;*.*.*"
>          ,(merge-pathnames
>            (make-pathname :directory '(:relative "bknr-svn" "bknr"  :wild-inferiors)
>                           :name    :wild
>                           :type    :wild
>                           :version :wild)
>             asdf:*central-registry*)))

asdf:*central-registry* is typically not a pathname, but a list of
objects (forms, variables) that to evaluate to pathnames that each
denote a directory; so merging against the value of
asdf:*central-registry* is unlikely to work.

You should probably test out your logical pathname translations
independently of the asdf operations that compile or load the bknr
systems.  Check, for example, whether (translate-logical-pathname
"bknr:foo;bar.lisp") returns a physical pathname that denotes a
reasonable filename (after setting the translations, of course).

> Why? What should I do to make asdf know about bknr? Bknr is
> currently installed in $SBCL_HOME/ bknr-svn, with the various bknr
> etc. directories below that.

In general, the way to do this is to place symbolic links pointing to
the various .asd files in the bknr-svn source tree in one of the
directories in your asdf:*central-registry* (i.e., a directory denoted
by one of the pathnames in the return value of (mapcar 'eval
asdf:*central-registry*).

Alternatively, you could add an object that evaluates to a pathname
that denotes the directories containing bknr-svn's .asd files to your
asdf:*central-registry*, but if bkrn-svn has many .asd files in
different directories, that the first option may be more convenient.

Finally, you can change asdf's effective system search procedure by
adding to or rebinding asdf:*system-definition-search-function* (which
must be a list of functions that take the system name, and return
either a pathname denoting the .asd file or nil.  Read asdf.lisp or
maybe its documentation for more information about this.

Good luck,
RmK