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