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
2c511516
Commit
2c511516
authored
Dec 22, 1991
by
ram
Browse files
Changed WITH-PATHNAME to call PARSE-NAMESTRING on the result of FILE-NAME.
parent
5de258e4
Changes
1
Hide whitespace changes
Inline
Side-by-side
code/pathname.lisp
View file @
2c511516
...
...
@@ -6,7 +6,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.
4
1991/12/2
0
0
2:07
:1
2
ram Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pathname.lisp,v 1.
5
1991/12/2
2
0
1:44
:1
4
ram Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -198,7 +198,7 @@
(
etypecase
,
var
(
pathname
,
var
)
(
string
(
parse-namestring
,
var
))
(
stream
(
file-name
,
var
))))))
(
stream
(
parse-namestring
(
file-name
,
var
))))))
)
,@
body
))
(
defun
%print-namestring-parse-error
(
condition
stream
)
...
...
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