Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
9ac11bc2
Commit
9ac11bc2
authored
Nov 09, 1990
by
wlott
Browse files
Export unix-namestring from the extensions package, and allow the second
arg to be defaulted to T.
parent
3972a473
Changes
1
Hide whitespace changes
Inline
Side-by-side
code/filesys.lisp
View file @
9ac11bc2
...
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.
4
1990/11/0
3 00:23:13
wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.
5
1990/11/0
9 23:37:20
wlott Exp $
;;;
;;; Ugly pathname functions for Spice Lisp.
;;; these functions are part of the standard Spice Lisp environment.
...
...
@@ -31,11 +31,12 @@
(
in-package
"EXTENSIONS"
)
(
export
'
(
print-directory
complete-file
ambiguous-files
default-directory
file-writable
))
file-writable
unix-namestring
))
(
in-package
"LISP"
)
;;; Pathname structure
;;; Pathname structure
;;; *Default-Pathname-defaults* has all values unspecified except for the
...
...
@@ -415,7 +416,9 @@
(
declare
(
simple-string
,
var
))
,@
body
))
(
defun
unix-namestring
(
pathname
for-input
)
;;; UNIX-NAMESTRING -- public
;;;
(
defun
unix-namestring
(
pathname
&optional
(
for-input
t
))
"Convert PATHNAME into a string that can be used with UNIX system calls."
(
let*
((
pathname
(
if
(
pathnamep
pathname
)
pathname
(
pathname
pathname
)))
(
device
(
%pathname-device
pathname
)))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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