Re: A portable DIRECTORY-P. Re: Here we go again. More CMUCL/ACL pathname differences.

Subject: Re: A portable DIRECTORY-P. Re: Here we go again. More CMUCL/ACL pathname differences.
From: Erik Naggum <erik@naggum.no>
Date: 1999/01/12
Newsgroups: comp.lang.lisp
Message-ID: <3125142331394422@naggum.no>

* cbarry@2xtreme.net (Christopher R. Barry)
| I'd like to have a LOGICAL-PATHNAME-P so that I could know that the
| argument I pass to TRANSLATE-LOGICAL-PATHNAME won't give an error.
| Anyone got a flash of insight as to how to implement this?

(defun logical-pathname-p (pathname)
  (typep pathname 'logical-pathname))

  chances are the function already exists if PATHNAME and LOGICAL-PATHNAME
  are both structures defined with DEFSTRUCT, and you just need APROPOS to
  find it.  there's nothing inherently evil in using non-exported functions
  or functions not in the COMMON-LISP package.  you just need to know what
  you are doing.  that's never a bad thing.

#:Erik