Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv32642 Modified Files: cpu-id.lisp Log Message: Removed dead debugging statement. Date: Thu Aug 12 08:42:59 2004 Author: ffjeld Index: movitz/losp/muerte/cpu-id.lisp diff -u movitz/losp/muerte/cpu-id.lisp:1.7 movitz/losp/muerte/cpu-id.lisp:1.8 --- movitz/losp/muerte/cpu-id.lisp:1.7 Tue Jul 20 16:51:05 2004 +++ movitz/losp/muerte/cpu-id.lisp Thu Aug 12 08:42:59 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Created at: Mon Apr 15 22:47:13 2002 ;;;; -;;;; $Id: cpu-id.lisp,v 1.7 2004/07/20 23:51:05 ffjeld Exp $ +;;;; $Id: cpu-id.lisp,v 1.8 2004/08/12 15:42:59 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -216,9 +216,9 @@ (define-compiler-macro eflags () `(with-inline-assembly (:returns :register) + ;; XXXXX Breaks stack and register disciplines! (:pushfl) (:popl (:result-register)) - (:movl (:result-register) (#x1000)) (:shll 2 (:result-register)))) (defun eflags ()