Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv13248
Modified Files: debugger.lisp Log Message: fixnum-word is deprecated.
Date: Tue Jul 20 05:40:48 2004 Author: ffjeld
Index: movitz/losp/x86-pc/debugger.lisp diff -u movitz/losp/x86-pc/debugger.lisp:1.16 movitz/losp/x86-pc/debugger.lisp:1.17 --- movitz/losp/x86-pc/debugger.lisp:1.16 Wed Jul 14 17:28:30 2004 +++ movitz/losp/x86-pc/debugger.lisp Tue Jul 20 05:40:48 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Nov 22 10:09:18 2002 ;;;; -;;;; $Id: debugger.lisp,v 1.16 2004/07/15 00:28:30 ffjeld Exp $ +;;;; $Id: debugger.lisp,v 1.17 2004/07/20 12:40:48 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -533,7 +533,3 @@ (t (format t "~&?: ~Z" funobj)))))) (values))
-(defun fixnum-word (fixnum) - (with-inline-assembly (:returns :eax) - (:compile-form (:result-mode :eax) fixnum) - (:shrl #.movitz::+movitz-fixnum-shift+ :eax)))