Skip to content
Snippets Groups Projects
Commit b22fe47b authored by Kevin Rosenberg's avatar Kevin Rosenberg
Browse files

conditionalize sb-unix function

parent 77e11ebb
No related branches found
No related tags found
No related merge requests found
......@@ -58,7 +58,9 @@ at your own peril.~%" suggested-registry suggested-registry system-name suggeste
(let* ((parent-dir
(parse-namestring
(format nil "/tmp/~A.~A/"
(sb-unix:unix-getpid) (get-internal-run-time))))
#+sbcl (sb-unix:unix-getpid)
#-sbcl (random 1000000)
(get-internal-run-time))))
(system (find-system system))
(sub-dir-name
(format nil "~A_~A"
......
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