2009-05-04 Duane Rettig <duane@franz.com>

* defsystem.cl: bug18431: Fix compiler-switch for 8.2 *******************************************************************************
franzinc · May 5, 2009 · cea0bb8 · cea0bb8
1 parent 686b542
commit cea0bb8
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 5 deletions.
diff --git a/ChangeLog b/ChangeLog
@@ -4,6 +4,11 @@
 <standard changelog date stamp>
 	* <changes go here...>
 
+*******************************************************************************
+2009-05-04  Duane Rettig  <duane@franz.com>
+
+	* defsystem.cl: bug18431: Fix compiler-switch for 8.2
+
 *******************************************************************************
 merge from acl81 to master, changes from
 	2007-09-07  Duane Rettig  <duane@franz.com>

diff --git a/defsystem.cl b/defsystem.cl
@@ -150,12 +150,12 @@
 ;; prepared for possible deadlock, since no interrupts will be recognized
 ;; while reading from the X socket if the scheduler is not running.
 ;;
-#+excl
+;; [bug18431]:
 (setq compiler::generate-interrupt-checks-switch
-      (compile nil
-	       '(lambda (safety size speed &optional debug)
-		  (declare (ignore size debug))
-		  (or (< speed 3) (> safety 0)))))
+  (compile nil
+	   '(lambda (safety size speed &optional debug compilation-speed)
+	     (declare (ignore size debug compilation-speed))
+	     (or (< speed 3) (> safety 0)))))
 
 
 ;;; Allegro