Commit fb83c88a authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix getcwd on GCL. Also lower the random limit for with-temporary-file on GCL.

parent 54a156ea
......@@ -2,6 +2,7 @@
(defsystem :test-system-pathnames
:pathname "sources/level1"
:source-file nil
:components
((:file "file1")
(:file "file2" :pathname "level2/file2")
......
......@@ -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)
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment