[bknr-devel] Can't even install bknr

[Marcin Tustin]

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>