From mm3 at zepler.net  Sat Feb 17 22:16:48 2007
From: mm3 at zepler.net (Marcin Tustin)
Date: Sat, 17 Feb 2007 22:16:48 +0000
Subject: [bknr-devel] Can't even install bknr
Message-ID: <10e8d7f90702171416q3aba9e91u900a76af83b26f54@mail.gmail.com>

I'm trying to install bknr, but I can't get my lisp (sbcl) to find it.

In brief, I've put bknr-svn in $SBCL_HOME, and I have the file
$SBCL_HOME/bknr-svn/bknr/init.lisp looking as below.

The problem is that once I load the file, (asdf:oos 'asdf:load-op :bknr)
just drops me into the debugger with the message "debugger invoked on a
ASDF:MISSING-COMPONENT in thread #<THREAD "initial thread" {A744531}>:
  component "bknr" not found."

------------------
init.lisp:


(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)
            (POSIX-GETENV "SBCL_HOME"))))
       (logical-pathname-translations "bknr-thirdparty")
      `(("**;*.*.*"
         ,(merge-pathnames
           (make-pathname :directory '(:relative "bknr-svn" "thirdparty"
:wild-inferiors)
                          :name    :wild
                          :type    :wild
                          :version :wild)
            (POSIX-GETENV "SBCL_HOME"))))
       (logical-pathname-translations "eboy")
      `(("**;*.*.*"
         ,(merge-pathnames
           (make-pathname :directory '(:relative "bknr-svn" "eboy"
:wild-inferiors)
                          :name    :wild
                          :type    :wild
                          :version :wild)
            (POSIX-GETENV "SBCL_HOME"))))))

(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*)
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/bknr-devel/attachments/20070217/0769b1c0/attachment.html>

From hans at huebner.org  Sun Feb 18 07:28:54 2007
From: hans at huebner.org (=?ISO-8859-1?Q?Hans_H=FCbner?=)
Date: Sun, 18 Feb 2007 08:28:54 +0100
Subject: [bknr-devel] Can't even install bknr
In-Reply-To: <10e8d7f90702171416q3aba9e91u900a76af83b26f54@mail.gmail.com>
References: <10e8d7f90702171416q3aba9e91u900a76af83b26f54@mail.gmail.com>
Message-ID: <fd2982320702172328v3c460418nd7c059fb6f1c5b8@mail.gmail.com>

Hi,

it is sad that you can't "even" install bknr.  As it seems, your
problem is related to asdf really.  You could try using the
"setup-registry" function from tools/make-core.lisp or manually
symlink bknr's asdf files to your system repository and try again.

I am aware that bknr does not come with a user friendly install
procedure, but I do not have the time to change that presently.

Best regards,
Hans

2007/2/17, Marcin Tustin <mm3 at zepler.net>:
> I'm trying to install bknr, but I can't get my lisp (sbcl) to find it.
>
> In brief, I've put bknr-svn in $SBCL_HOME, and I have the file
> $SBCL_HOME/bknr-svn/bknr/init.lisp looking as below.
>
> The problem is that once I load the file, (asdf:oos 'asdf:load-op :bknr)
> just drops me into the debugger with the message "debugger invoked on a
> ASDF:MISSING-COMPONENT in thread #<THREAD "initial thread" {A744531}>:
>   component "bknr" not found."
>
> ------------------
> init.lisp:
>
>
> (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)
>             (POSIX-GETENV "SBCL_HOME"))))
>        (logical-pathname-translations "bknr-thirdparty")
>       `(("**;*.*.*"
>          ,(merge-pathnames
>            (make-pathname :directory '(:relative "bknr-svn" "thirdparty"
> :wild-inferiors)
>                           :name    :wild
>                           :type    :wild
>                           :version :wild)
>             (POSIX-GETENV "SBCL_HOME"))))
>        (logical-pathname-translations "eboy")
>       `(("**;*.*.*"
>          ,(merge-pathnames
>            (make-pathname :directory '(:relative "bknr-svn" "eboy"
> :wild-inferiors)
>                           :name    :wild
>                           :type    :wild
>                           :version :wild)
>             (POSIX-GETENV "SBCL_HOME"))))))
>
> (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*)
>
>
> _______________________________________________
> bknr-devel mailing list
> bknr-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/bknr-devel
>
>


From mm3 at zepler.net  Sun Feb 18 14:39:44 2007
From: mm3 at zepler.net (Marcin Tustin)
Date: Sun, 18 Feb 2007 14:39:44 +0000
Subject: [bknr-devel] Can't even install bknr
In-Reply-To: <fd2982320702172328v3c460418nd7c059fb6f1c5b8@mail.gmail.com>
References: <10e8d7f90702171416q3aba9e91u900a76af83b26f54@mail.gmail.com>
	<fd2982320702172328v3c460418nd7c059fb6f1c5b8@mail.gmail.com>
Message-ID: <10e8d7f90702180639k1e8d7987w52d437a4ffd1608f@mail.gmail.com>

On 2/18/07, Hans H?bner <hans at huebner.org> wrote:
>
> Hi,
>
> it is sad that you can't "even" install bknr.  As it seems, your
> problem is related to asdf really.  You could try using the
> "setup-registry" function from tools/make-core.lisp or manually
> symlink bknr's asdf files to your system repository and try again.


What do you mean by "system repository"?
tools/make-core.lisp doesn't load, giving the error message: "
  READER-ERROR at 45 (line 3, column 22) on #<SB-SYS:FD-STREAM for "file
/usr/lib/sbcl/bknr-svn/tools/make-core.lisp" {AE2ABC9}>:
package "EXT" not found
"


I am aware that bknr does not come with a user friendly install
> procedure, but I do not have the time to change that presently.


I'm willing to contribute some sort of script or documentation if I can
actually figure out how to install bknr. However, I will need some help to
install it.

Best regards,
> Hans
>
> 2007/2/17, Marcin Tustin <mm3 at zepler.net>:
> > I'm trying to install bknr, but I can't get my lisp (sbcl) to find it.
> >
> > In brief, I've put bknr-svn in $SBCL_HOME, and I have the file
> > $SBCL_HOME/bknr-svn/bknr/init.lisp looking as below.
> >
> > The problem is that once I load the file, (asdf:oos 'asdf:load-op :bknr)
> > just drops me into the debugger with the message "debugger invoked on a
> > ASDF:MISSING-COMPONENT in thread #<THREAD "initial thread" {A744531}>:
> >   component "bknr" not found."
> >
> > ------------------
> > init.lisp:
> >
> >
> > (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)
> >             (POSIX-GETENV "SBCL_HOME"))))
> >        (logical-pathname-translations "bknr-thirdparty")
> >       `(("**;*.*.*"
> >          ,(merge-pathnames
> >            (make-pathname :directory '(:relative "bknr-svn" "thirdparty"
> > :wild-inferiors)
> >                           :name    :wild
> >                           :type    :wild
> >                           :version :wild)
> >             (POSIX-GETENV "SBCL_HOME"))))
> >        (logical-pathname-translations "eboy")
> >       `(("**;*.*.*"
> >          ,(merge-pathnames
> >            (make-pathname :directory '(:relative "bknr-svn" "eboy"
> > :wild-inferiors)
> >                           :name    :wild
> >                           :type    :wild
> >                           :version :wild)
> >             (POSIX-GETENV "SBCL_HOME"))))))
> >
> > (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*)
> >
> >
> > _______________________________________________
> > bknr-devel mailing list
> > bknr-devel at common-lisp.net
> > http://common-lisp.net/cgi-bin/mailman/listinfo/bknr-devel
> >
> >
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/bknr-devel/attachments/20070218/336f7650/attachment.html>

From hans at huebner.org  Sun Feb 18 15:06:52 2007
From: hans at huebner.org (=?ISO-8859-1?Q?Hans_H=FCbner?=)
Date: Sun, 18 Feb 2007 16:06:52 +0100
Subject: [bknr-devel] Can't even install bknr
In-Reply-To: <10e8d7f90702180639k1e8d7987w52d437a4ffd1608f@mail.gmail.com>
References: <10e8d7f90702171416q3aba9e91u900a76af83b26f54@mail.gmail.com>
	<fd2982320702172328v3c460418nd7c059fb6f1c5b8@mail.gmail.com>
	<10e8d7f90702180639k1e8d7987w52d437a4ffd1608f@mail.gmail.com>
Message-ID: <fd2982320702180706g34366a55pe23d437704754093@mail.gmail.com>

Hi Martin,

as I wrote, I don't currently use BKNR with sbcl, so I can't really
comment on the problems you have.  It should not be too hard to get
going, though.  A proper SBCL port would be nice, but if you want to
do this, please make sure that cmucl compilation is not broken
afterwards and that you don't put in any new functionality.

Last time I have tried the problem with SBCL was that the thirdparty
releases included in the bknr Subversion repository don't play nice
with SBCL and the other way round.  You may want to try checking out
svn://common-lisp.net/project/bknr/svn/branches/grin-neu which has the
SBCL related patches I did a few weeks ago.

-Hans

2007/2/18, Marcin Tustin <mm3 at zepler.net>:
> On 2/18/07, Hans H?bner <hans at huebner.org> wrote:
> > Hi,
> >
> > it is sad that you can't "even" install bknr.  As it seems, your
> > problem is related to asdf really.  You could try using the
> > "setup-registry" function from tools/make-core.lisp or manually
> > symlink bknr's asdf files to your system repository and try again.
>
> What do you mean by "system repository"?
> tools/make-core.lisp doesn't load, giving the error message: "
>   READER-ERROR at 45 (line 3, column 22) on #<SB-SYS:FD-STREAM for "file
> /usr/lib/sbcl/bknr-svn/tools/make-core.lisp" {AE2ABC9}>:
> package "EXT" not found
> "
>
>
> > I am aware that bknr does not come with a user friendly install
> > procedure, but I do not have the time to change that presently.
>
> I'm willing to contribute some sort of script or documentation if I can
> actually figure out how to install bknr. However, I will need some help to
> install it.
>
> > Best regards,
> > Hans
> >
> > 2007/2/17, Marcin Tustin < mm3 at zepler.net>:
> > > I'm trying to install bknr, but I can't get my lisp (sbcl) to find it.
> > >
> > > In brief, I've put bknr-svn in $SBCL_HOME, and I have the file
> > > $SBCL_HOME/bknr-svn/bknr/init.lisp looking as below.
> > >
> > > The problem is that once I load the file, (asdf:oos 'asdf:load-op :bknr)
> > > just drops me into the debugger with the message "debugger invoked on a
> > > ASDF:MISSING-COMPONENT in thread #<THREAD "initial thread" {A744531}>:
> > >   component "bknr" not found."
> > >
> > > ------------------
> > > init.lisp:
> > >
> > >
> > > (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)
> > >             (POSIX-GETENV "SBCL_HOME"))))
> > >        (logical-pathname-translations
> "bknr-thirdparty")
> > >       `(("**;*.*.*"
> > >          ,(merge-pathnames
> > >            (make-pathname :directory '(:relative "bknr-svn" "thirdparty"
> > > :wild-inferiors)
> > >                           :name    :wild
> > >                           :type    :wild
> > >                           :version :wild)
> > >             (POSIX-GETENV "SBCL_HOME"))))
> > >        (logical-pathname-translations "eboy")
> > >       `(("**;*.*.*"
> > >          ,(merge-pathnames
> > >            (make-pathname :directory '(:relative "bknr-svn" "eboy"
> > > :wild-inferiors)
> > >                           :name    :wild
> > >                           :type    :wild
> > >                           :version :wild)
> > >             (POSIX-GETENV "SBCL_HOME"))))))
> > >
> > > (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*)
> > >
> > >
> > > _______________________________________________
> > > bknr-devel mailing list
> > > bknr-devel at common-lisp.net
> > >
> http://common-lisp.net/cgi-bin/mailman/listinfo/bknr-devel
> > >
> > >
> >
>
>


From troussan at gmail.com  Mon Feb 19 04:36:59 2007
From: troussan at gmail.com (Tchavdar Roussanov)
Date: Sun, 18 Feb 2007 22:36:59 -0600
Subject: [bknr-devel] Can't even install bknr
In-Reply-To: <10e8d7f90702171416q3aba9e91u900a76af83b26f54@mail.gmail.com>
References: <10e8d7f90702171416q3aba9e91u900a76af83b26f54@mail.gmail.com>
Message-ID: <168eba220702182036p702b56f0t3976a43973a7a1da@mail.gmail.com>

Hi Marcin,

I think that the value of your $SBCL_HOME  ends with 'sbcl' without '/'.  In
this case  merge-pathnames will consider sbcl as a regular file name and
will remove it. Check the value of asdf:*central-registry* after loading the
init.lisp file. It should contain paths to all directories with *.asd files.

Also you will need the latest versions of all thirdparty libraries in order
to compile with SBCL.

-Tchavdar

On 2/17/07, Marcin Tustin <mm3 at zepler.net> wrote:
>
> I'm trying to install bknr, but I can't get my lisp (sbcl) to find it.
>
> In brief, I've put bknr-svn in $SBCL_HOME, and I have the file
> $SBCL_HOME/bknr-svn/bknr/init.lisp looking as below.
>
> The problem is that once I load the file, (asdf:oos 'asdf:load-op :bknr)
> just drops me into the debugger with the message "debugger invoked on a
> ASDF:MISSING-COMPONENT in thread #<THREAD "initial thread" {A744531}>:
>   component "bknr" not found."
>
> ------------------
> init.lisp:
>
>
> (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)
>             (POSIX-GETENV "SBCL_HOME"))))
>        (logical-pathname-translations "bknr-thirdparty")
>       `(("**;*.*.*"
>          ,(merge-pathnames
>            (make-pathname :directory '(:relative "bknr-svn" "thirdparty"
> :wild-inferiors)
>                           :name    :wild
>                           :type    :wild
>                           :version :wild)
>             (POSIX-GETENV "SBCL_HOME"))))
>        (logical-pathname-translations "eboy")
>       `(("**;*.*.*"
>          ,(merge-pathnames
>            (make-pathname :directory '(:relative "bknr-svn" "eboy"
> :wild-inferiors)
>                           :name    :wild
>                           :type    :wild
>                           :version :wild)
>             (POSIX-GETENV "SBCL_HOME"))))))
>
> (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*)
>
>
> _______________________________________________
> bknr-devel mailing list
> bknr-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/bknr-devel
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/bknr-devel/attachments/20070218/4656262b/attachment.html>

From kamen at cybuild.com  Fri Feb 23 13:47:14 2007
From: kamen at cybuild.com (Kamen TOMOV)
Date: Fri, 23 Feb 2007 15:47:14 +0200
Subject: [bknr-devel] Re: Security issue
In-Reply-To: <200702231257.14457.Stoyan.Dimov@exceliora.com> (Stoyan Dimov's
	message of "Fri\, 23 Feb 2007 12\:57\:13 +0200")
References: <200702231049.45783.Stoyan.Dimov@exceliora.com>
	<uirdtywoi.fsf@cybuild.com>
	<200702231257.14457.Stoyan.Dimov@exceliora.com>
Message-ID: <uzm75x9y5.fsf@cybuild.com>

On ?????, ???????? 23 2007, Stoyan Dimov wrote:

> ???? ?????? ? ?????????, ?????? ?????? ???????????? ?????? ??
> ???.???? ???? ?? ?????????? ?? ??????? ?? ????????? ????? (?????
> ???? ?????? ?? ??????) ?? ????? ??????? ???????????. ????????? ????
> ??? ????? ?? ??????????. ?????? ?? ????????? ? IP-???? ?? ???? ??
> ?????????.

?????, ?? ?? ???? ?????? ?? ????? ????? ???? ?? ???? ?? ?? ?? ?????
Firewall?

-- 
?????

From kamen at cybuild.com  Fri Feb 23 14:08:22 2007
From: kamen at cybuild.com (Kamen TOMOV)
Date: Fri, 23 Feb 2007 16:08:22 +0200
Subject: [bknr-devel] Re: Security issue
In-Reply-To: <uzm75x9y5.fsf@cybuild.com> (Kamen TOMOV's message of "Fri\,
	23 Feb 2007 15\:47\:14 +0200")
References: <200702231049.45783.Stoyan.Dimov@exceliora.com>
	<uirdtywoi.fsf@cybuild.com>
	<200702231257.14457.Stoyan.Dimov@exceliora.com>
	<uzm75x9y5.fsf@cybuild.com>
Message-ID: <uslcxx8yx.fsf@cybuild.com>

Sorry for the last message - it was a mistake. At least it proves I'm
alive ;-)