Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
8f0bd4e8
Commit
8f0bd4e8
authored
Mar 16, 2009
by
rtoy
Browse files
Trac Ticket
#31
: pathname bug with :case :common
Fixed.
parent
3ccd76ad
Changes
2
Hide whitespace changes
Inline
Side-by-side
code/pathname.lisp
View file @
8f0bd4e8
...
...
@@ -4,7 +4,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.8
6
200
8
/0
4/04 15:11:13
rtoy Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.8
7
200
9
/0
3/16 15:52:49
rtoy Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -890,11 +890,20 @@ a host-structure or string."
(
declare
(
type
path-designator
pathname
)
(
type
(
member
:local
:common
)
case
))
(
with-pathname
(
pathname
pathname
)
(
maybe-diddle-case
(
%pathname-directory
pathname
)
(
and
(
eq
case
:common
)
(
eq
(
host-customary-case
(
%pathname-host
pathname
))
:lower
)))))
;; CLHS 19.2.2.1.2.2 says: "should receive and yield strings in
;; component values"
;;
;; We take this to mean it applies to each component of the
;; directory individually. This also matches the example in the
;; entry for PATHNAME-HOST.
(
let
((
diddle-p
(
and
(
eq
case
:common
)
(
eq
(
host-customary-case
(
%pathname-host
pathname
))
:lower
))))
(
mapcar
#'
(
lambda
(
piece
)
(
maybe-diddle-case
piece
diddle-p
))
(
%pathname-directory
pathname
)))))
;;; PATHNAME-NAME -- Interface
;;;
(
defun
pathname-name
(
pathname
&key
(
case
:local
))
...
...
general-info/release-20a.txt
View file @
8f0bd4e8
...
...
@@ -26,6 +26,9 @@ New in this release:
* Bugfixes:
* Trac Tickets:
#31: pathname bug with :case :common
Fixed. The common case is applied to each part of the directory,
not to the directory as a whole.
* Other changes:
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment