From 88d1c28806352ee474a2a6f9de5fc91d4fbdb98b Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Sun, 26 Apr 2015 23:06:25 +0300 Subject: [PATCH] Don't report sb-sprof as failing on Windows. It just doesn't work on Windows yet, no reason to treat it as if it's broken. --- contrib/sb-sprof/sb-sprof.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/contrib/sb-sprof/sb-sprof.lisp b/contrib/sb-sprof/sb-sprof.lisp index 6c3ee7cae..3e8480097 100644 --- a/contrib/sb-sprof/sb-sprof.lisp +++ b/contrib/sb-sprof/sb-sprof.lisp @@ -506,7 +506,7 @@ profiling, and :TIME for wallclock profiling.") (not (eq *timer-thread* thread))) (member thread profiled-threads :test #'eq)))) -#+(or x86 x86-64) +#+(and (or x86 x86-64) (not win32)) (progn ;; Ensure that only one thread at a time will be doing profiling stuff. (defvar *profiler-lock* (sb-thread:make-mutex :name "Statistical Profiler")) @@ -750,6 +750,7 @@ The following keyword args are recognized: (defvar *old-alloc-interval* nil) (defvar *old-sample-interval* nil) +#-win32 (defun start-profiling (&key (max-samples *max-samples*) (mode *sampling-mode*) (sample-interval *sample-interval*) -- 2.11.4.GIT