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
f1666b8a
Commit
f1666b8a
authored
Dec 18, 1991
by
wlott
Browse files
Fixed merge-pathnames to actually merge in the defaults.
parent
443413ba
Changes
1
Hide whitespace changes
Inline
Side-by-side
code/pathname.lisp
View file @
f1666b8a
...
@@ -6,7 +6,7 @@
...
@@ -6,7 +6,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
;;;
(
ext:file-comment
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.
1
1991/12/1
6
1
0:29:04
wlott Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.
2
1991/12/1
8
1
1:40:52
wlott Exp $"
)
;;;
;;;
;;; **********************************************************************
;;; **********************************************************************
;;;
;;;
...
@@ -351,8 +351,8 @@
...
@@ -351,8 +351,8 @@
(
defaults
*default-pathname-defaults*
)
(
defaults
*default-pathname-defaults*
)
(
default-version
:newest
))
(
default-version
:newest
))
(
with-pathname
(
defaults
defaults
)
(
with-pathname
(
defaults
defaults
)
(
with-pathname
(
pathname
(
let
((
*default-pathname-defaults*
defaults
))
(
let
(
(
pathname
(
let
((
*default-pathname-defaults*
defaults
))
pathname
))
(
pathname
pathname
))
))
(
let*
((
default-host
(
%pathname-host
defaults
))
(
let*
((
default-host
(
%pathname-host
defaults
))
(
pathname-host
(
%pathname-host
pathname
))
(
pathname-host
(
%pathname-host
pathname
))
(
diddle-case
(
diddle-case
...
...
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