search

liutanyu / mcl

Automatically exported from code.google.com/p/mcl
Other
0 stars 0 forks source link

pathname-name can return :unspecific #2

Closed GoogleCodeExporter closed 8 years ago

GoogleCodeExporter commented 8 years ago 
pathname-name can return :unspecific which, without "(eq  
name :unspecific)" creates an error when trying to compute the length  
of a symbol.

;; l1-files.lisp
(in-package :ccl)
(defun directory-pathname-p (path)
  (let ((name (pathname-name path))(type (pathname-type path)))
    (and (or (null name) (eq name :unspecific) (%izerop (length name)))
              (or (null type) (eq type :unspecific)))))

Original issue reported on code.google.com by terje.norderhaug on 17 Sep 2009 at 8:55

GoogleCodeExporter commented 8 years ago 
The problem might be provoked for instance by using #'ensure-directories-exist, 
which creates a pathname 
with :unspecific components.

Original comment by terje.norderhaug on 6 Oct 2009 at 11:22

GoogleCodeExporter commented 8 years ago 
Uploaded the provided fix to Patches as directory-pathname-p-patch.lisp.

Original comment by terje.norderhaug on 1 Nov 2009 at 5:56