[bknr-cvs] hans changed trunk/projects/quickhoney/src/shop.lisp

[BKNR Commits]

Revision: 4045
Author: hans
URL: http://bknr.net/trac/changeset/4045

add ccl support for shop test

U   trunk/projects/quickhoney/src/shop.lisp

Modified: trunk/projects/quickhoney/src/shop.lisp
===================================================================
--- trunk/projects/quickhoney/src/shop.lisp	2008-11-14 08:11:16 UTC (rev 4044)
+++ trunk/projects/quickhoney/src/shop.lisp	2008-11-14 08:14:17 UTC (rev 4045)
@@ -255,6 +255,14 @@
 
 ;;; TESTING
 
+(defun getpid ()
+  #+openmcl
+  (ccl::getpid)
+  #+sbcl
+  (sb-posix:getpid)
+  #+(not (or sbcl openmcl))
+  (random 10000))
+
 (defmacro with-temporary-directory ((pathname) &body body)
   `(let ((,pathname (pathname (format nil "/tmp/store-test-~A/" (sb-posix:getpid)))))
      (asdf:run-shell-command "rm -rf ~A" ,pathname)