[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: MCL 2.0b1 (pathname-directory ...) bug?
- To: firstname.lastname@example.org (Richard Lynch)
- Subject: Re: MCL 2.0b1 (pathname-directory ...) bug?
- From: moon (David A. Moon)
- Date: Wed, 29 May 91 16:48:24
- Cc: email@example.com, firstname.lastname@example.org, email@example.com
> Date: Wed, 29 May 91 14:40:27 CDT
> From: firstname.lastname@example.org (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
> ;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))
> :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.