[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: MCL 2.0b1 (pathname-directory ...) bug?
- To: lynch@aristotle.ils.nwu.edu (Richard Lynch)
- Subject: Re: MCL 2.0b1 (pathname-directory ...) bug?
- From: moon (David A. Moon)
- Date: Wed, 29 May 91 16:48:24
- Cc: info-macl@cambridge.apple.com, engber@aristotle.ils.nwu.edu, lynch@aristotle.ils.nwu.edu
> 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.