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)