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

Modified Files: io-port.lisp Log Message: Fixed stupid bug in (setf io-port :character), the byte output would be completely wrong.

Date: Wed Mar 2 18:15:43 2005 Author: ffjeld

Index: movitz/losp/muerte/io-port.lisp diff -u movitz/losp/muerte/io-port.lisp:1.12 movitz/losp/muerte/io-port.lisp:1.13 --- movitz/losp/muerte/io-port.lisp:1.12 Wed Sep 22 19:43:35 2004 +++ movitz/losp/muerte/io-port.lisp Wed Mar 2 18:15:43 2005 @@ -1,6 +1,6 @@ ;;;;------------------------------------------------------------------ ;;;; -;;;; Copyright (C) 2001-2004, +;;;; Copyright (C) 2001-2005, ;;;; Department of Computer Science, University of Tromso, Norway. ;;;; ;;;; For distribution policy, see the accompanying file COPYING. @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Wed Mar 21 22:14:08 2001 ;;;; -;;;; $Id: io-port.lisp,v 1.12 2004/09/22 17:43:35 ffjeld Exp $ +;;;; $Id: io-port.lisp,v 1.13 2005/03/02 17:15:43 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -165,7 +165,6 @@ (:load-lexical (:lexical-binding ,value-var) :eax) (:std) (:shrl ,movitz::+movitz-fixnum-shift+ :edx) - (:shrl ,movitz::+movitz-fixnum-shift+ :eax) (:shrl 8 :eax) (:outb :al :dx) (:movl :edi :edx)