[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: MCL 2.0b1 (pathname-directory ...) bug?

> Date: Wed, 29 May 91 14:40:27 CDT
> From: lynch@aristotle.ils.nwu.edu (Richard Lynch)
> (pathname-directory ...) doesn't return a pathname.
> It returns a list structure (call it a pathlist) that starts with a keyword

That's what CLtL says it should do.
> ;This let will add the path of this window to *module-search-path* so that
> anything
> ;in the same folder will be found when a require is done.
> (let ((win (front-window :class 'fred-window)))
>   (when win
>     (pushnew (pathname-directory (window-filename win))
>              *module-search-path*
>              :test #'equalp

The idiom you're looking for is (I didn't check if CLtL suggests this):

  (make-pathname :defaults (window-filename win)
                 :name nil :type nil :version nil)

This is standard Common Lisp, not specific to MCL.