[Ecls-list] Using Femlisp with ECL / Bug reports

[Juan Jose Garcia Ripoll]

On Fri, 2005-08-05 at 20:40 +0200, Nicolas Neuss wrote: 
> Let's start with this.  Put the following in a file and do (load
> (compile-file ...)), [C-k] from slime.  Results for me in an error that the
> device "femlisp:" is not known.
> 
> ---------------------------------------------------------------------------
> (in-package :cl-user)
> (defvar *femlisp-pathname* #p"/home/neuss/CL-HOME/femlisp/")
> (let ((directory (pathname-directory *femlisp-pathname*)))
>   (setf (logical-pathname-translations "FEMLISP")
>         `(("**;*.*.*"
>            ,(make-pathname :directory `(, at directory :wild-inferiors)
>                            :name :wild :type :wild :version :wild)))))
> (require 'asdf)
> (pushnew (probe-file #p"femlisp:") asdf::*central-registry* :test #'equalp)
> ---------------------------------------------------------------------------

No real problem here :-/

> (in-package :cl-user)
(defvar *femlisp-pathname* #p"/home/jlr/src/lisp/femlisp/")
(let ((directory (pathname-directory *femlisp-pathname*)))
  (setf (logical-pathname-translations "FEMLISP")
        `(("**;*.*.*"
           ,(make-pathname :directory `(, at directory :wild-inferiors)
                           :name :wild :type :wild :version :wild)))))
(require 'asdf)
(pushnew (probe-file #p"femlisp:") asdf::*central-registry* :test
#'equalp)

#<"COMMON-LISP-USER" package>
> *FEMLISP-PATHNAME*
> ((#P"FEMLISP:**;*.*.*" #P"/home/jlr/src/lisp/femlisp/**/*.*"))
> ;;; Loading #P"/home/jlr/lib/ecl/asdf.fas"
;;; Warning: PRINT-OBJECT is being redefined.
;;; Warning: PRINT-OBJECT is being redefined.
;;; Warning: PRINT-OBJECT is being redefined.
;;; Warning: PRINT-OBJECT is being redefined.
;;; Warning: PRINT-OBJECT is being redefined.
;;; Warning: PRINT-OBJECT is being redefined.
;;; Warning: SHARED-INITIALIZE is being redefined.
("ASDF")
> (#P"/home/jlr/src/lisp/femlisp/" *DEFAULT-PATHNAME-DEFAULTS*)

Juanjo