Skip to content
Snippets Groups Projects
Commit ae23e5b1 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

More GCL fixes: don't try overly big random numbers in WITH-TEMPORARY-FILE.

Get backtraces on GCL.
parent 9beaabb5
No related branches found
No related tags found
No related merge requests found
...@@ -122,6 +122,9 @@ This is designed to abstract away the implementation specific quit forms." ...@@ -122,6 +122,9 @@ This is designed to abstract away the implementation specific quit forms."
:collect (list (si::ihs-fun ihs) :collect (list (si::ihs-fun ihs)
(si::ihs-env ihs))))) (si::ihs-env ihs)))))
(dolist (frame (nreverse backtrace)) (writeln frame :stream stream))) (dolist (frame (nreverse backtrace)) (writeln frame :stream stream)))
#+gcl
(let ((*debug-io* stream))
(system::simple-backtrace))
#+lispworks #+lispworks
(let ((dbg::*debugger-stack* (let ((dbg::*debugger-stack*
(dbg::grab-stack nil :how-many (or count most-positive-fixnum))) (dbg::grab-stack nil :how-many (or count most-positive-fixnum)))
......
...@@ -557,7 +557,7 @@ Finally, the file will be deleted, unless the KEEP argument when CALL-FUNCTION'e ...@@ -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") :with prefix = (namestring (ensure-absolute-pathname (or prefix "tmp")
(or directory #'temporary-directory))) (or directory #'temporary-directory)))
:with results = () :with results = ()
:for counter :from (random (expt 36 8)) :for counter :from (random (expt 36 #-gcl 8 #+gcl 6))
:for pathname = (pathname (format nil "~A~36R~@[~A~]~@[.~A~]" prefix counter suffix type)) :for pathname = (pathname (format nil "~A~36R~@[~A~]~@[.~A~]" prefix counter suffix type))
:for okp = nil :do :for okp = nil :do
;; TODO: on Unix, do something about umask ;; TODO: on Unix, do something about umask
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment