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