[Ecls-list] require/provide extensions

Juan Jose Garcia Ripoll lisp at arrakis.es
Thu Feb 17 04:48:42 UTC 2005


>attached is a patch that replaces the current provide and require
>functions with the one's from SBCL[...]
...and this...

>(defun ecl-module-provider (module)
>   (let ((path (merge-pathnames (make-pathname :name (string module))
>                                #P"SYS:")))
>      (if (probe-file path) (load path))))
>(pushnew 'ecl-module-provider *module-provider-functions*)
>This is untested, but should allow (require :sockets) to work. :)
It all has been committed. Now it works both (require 'sockets) and 
(require 'cmp). I had to change your routine slightly to ensure that 
file names had the right case ;-)

>The symbol *module-provider-functions* should be exported from the EXT
>package, but I do not know where to specify this.
I did it in src/c/symbols_list.h

Thanks again for your excellent contributions!


More information about the ecl-devel mailing list