From b22fe47b77055461146749daabd0875402749207 Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg <> Date: Fri, 18 Jul 2003 05:32:53 +0000 Subject: [PATCH] conditionalize sb-unix function --- cclan.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/cclan.lisp b/cclan.lisp index 5937518c..7d083078 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" -- GitLab