[movitz-cvs] CVS update: movitz/losp/muerte/more-macros.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv30693

Modified Files:
	more-macros.lisp 
Log Message:
*** empty log message ***
Date: Thu Dec  9 15:20:43 2004
Author: ffjeld

Index: movitz/losp/muerte/more-macros.lisp
diff -u movitz/losp/muerte/more-macros.lisp:1.21 movitz/losp/muerte/more-macros.lisp:1.22
--- movitz/losp/muerte/more-macros.lisp:1.21	Sat Nov 20 18:36:07 2004
+++ movitz/losp/muerte/more-macros.lisp	Thu Dec  9 15:20:43 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Jun  7 15:05:57 2002
 ;;;;                
-;;;; $Id: more-macros.lisp,v 1.21 2004/11/20 17:36:07 ffjeld Exp $
+;;;; $Id: more-macros.lisp,v 1.22 2004/12/09 14:20:43 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -380,7 +380,7 @@
 
 (defmacro without-interrupts (&body body)
   (let ((var (gensym "interrupts-enabled-p-")))
-    `(let ((,var (logbitp ,(position :if +eflags-map+) (eflags))))
+    `(let ((,var (logbitp ,(position :if (symbol-value '+eflags-map+)) (eflags))))
        (unwind-protect (progn (cli) , at body)
 	 (when ,var (sti))))))