[Gcl-devel] Re: system, load-time-value

[Debian User]

        >       > When I tried to load common-lisp-controller.lisp,
        >       > I found out that LOAD-TIME-VALUE doesn't work in the
        > 
        >       Yes, I have a near-complete implementation based on
        >       ADDRESS and NANI as yet uncommitted pending our release
        >       of the stable branch as 2.6.2.  We need this to fix a
        >       literal object copying ansi error in 'compile.
        > 
        > Great!  It'll be needed for common-lisp-controller to work.
        > 

        So this is required for this functionality?

Apparantly!  I looked at the one place it is used, but could
not figure out why it is needed.

(defun load-time-value (obj) obj)
(load "common-lisp-controller.lisp") ; or ~.o instead of ~.lisp

from top-level seems to work both from source code and compiled
code.  Of course that is just a plain ugly hack :-) With some
fboundp checking in the top-level is should be enough...

$ apt-get install common-lisp-controller # if you haven't already...
$ grep -C 2 load-time-value 
/usr/share/common-lisp/source/common-lisp-controller/common-lisp-controller.lisp

(defvar *fasl-type*
  (load-time-value
   (pathname-type
    (compile-file-pathname "foo.lisp")))

Obviously it has to do with compile-file-pathname, but I still
don't see the cause behind it.

I may have some time the forthcoming weekend to implement and
test it.

Yours,

Dennis Decker Jensen