diff --git a/cclan.lisp b/cclan.lisp index 5937518c3962edcc679cbdc01881f39effb09734..7d083078975b2d4a56b262c4176d90a130cedab4 100644 --- a/cclan.lisp +++ b/cclan.lisp @@ -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"