From e36d3aa23e939335dcc5bf531aa4bf6555bf84de Mon Sep 17 00:00:00 2001
From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Wed, 29 Oct 2008 13:15:15 +0200
Subject: [PATCH] don't save CPU count in core: the core may run elsewhere.

---
 cpu-affinity.lisp | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/cpu-affinity.lisp b/cpu-affinity.lisp
index 457bf33..f2a0ea9 100644
--- a/cpu-affinity.lisp
+++ b/cpu-affinity.lisp
@@ -39,6 +39,11 @@ from sched.h.")
 
 (defvar *cpu-count* nil)
 
+(defun forget-cpu-count ()
+  (setf *cpu-count* nil))
+
+(pushnew 'forget-cpu-count sb-ext:*save-hooks*)
+
 (defun cpu-count ()
   "Number of CPUs available in the system. Based on /proc/cpuinfo."
   (or *cpu-count*
-- 
2.11.4.GIT