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
Eric Timmons
asdf
Commits
fb83c88a
Commit
fb83c88a
authored
Nov 16, 2013
by
Francois-Rene Rideau
Browse files
Fix getcwd on GCL. Also lower the random limit for with-temporary-file on GCL.
parent
54a156ea
Changes
3
Hide whitespace changes
Inline
Side-by-side
test/test-system-pathnames.script
View file @
fb83c88a
...
...
@@ -2,6 +2,7 @@
(defsystem :test-system-pathnames
:pathname "sources/level1"
:source-file nil
:components
((:file "file1")
(:file "file2" :pathname "level2/file2")
...
...
uiop/os.lisp
View file @
fb83c88a
...
...
@@ -255,8 +255,7 @@ suitable for use as a directory name to segregate Lisp FASLs, C dynamic librarie
(
strcat
(
nth-value
1
(
unix:unix-current-directory
))
"/"
))
#+
cormanlisp
(
pathname
(
pl::get-current-directory
))
;; Q: what type does it return?
#+
ecl
(
ext:getcwd
)
#+
gcl
(
parse-namestring
;; this is a joke. Isn't there a better way?
(
first
(
symbol-call
:uiop
:run-program
'
(
"/bin/pwd"
)
:output
:lines
)))
#+
gcl
(
let
((
*default-pathname-defaults*
#p""
))
(
truename
#p""
))
#+
genera
*default-pathname-defaults*
;; on a Lisp OS, it *is* canonical!
#+
lispworks
(
system:current-directory
)
#+
mkcl
(
mk-ext:getcwd
)
...
...
uiop/stream.lisp
View file @
fb83c88a
...
...
@@ -557,7 +557,7 @@ Finally, the file will be deleted, unless the KEEP argument when CALL-FUNCTION'e
:with
prefix
=
(
namestring
(
ensure-absolute-pathname
(
or
prefix
"tmp"
)
(
or
directory
#'
temporary-directory
)))
:with
results
=
()
:for
counter
:from
(
random
(
expt
36
#-
gcl
8
#+
gcl
6
))
:for
counter
:from
(
random
(
expt
36
#-
gcl
8
#+
gcl
5
))
:for
pathname
=
(
pathname
(
format
nil
"~A~36R~@[~A~]~@[.~A~]"
prefix
counter
suffix
type
))
:for
okp
=
nil
:do
;; TODO: on Unix, do something about umask
...
...
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