[Ecls-list] require/provide extensions

[Marco Antoniotti]

On Feb 16, 2005, at 5:02 PM, Julian Stecklina wrote:

> On Wed, 16 Feb 2005 16:23:25 -0500
> Marco Antoniotti <marcoxa at cs.nyu.edu> wrote:
>
>> This is good.   I'll add support for MK:DEFSYSTEM and ECL ASAP.
>
> The latter would be something like:
>
> (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. :)

Assumed the logical pathname "SYS:" is where you want to keep things, 
it should work fine.

Cheers

marco

--
Marco Antoniotti					http://bioinformatics.nyu.edu
NYU Courant Bioinformatics Group		tel. +1 - 212 - 998 3488
715 Broadway 10th FL				fax. +1 - 212 - 998 3484
New York, NY, 10003, U.S.A.