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

Modified Files: segments.lisp Log Message: "segment-register-name" was a bad idea.

Date: Thu Apr 14 08:14:49 2005 Author: ffjeld

Index: movitz/losp/muerte/segments.lisp diff -u movitz/losp/muerte/segments.lisp:1.7 movitz/losp/muerte/segments.lisp:1.8 --- movitz/losp/muerte/segments.lisp:1.7 Wed Apr 13 08:57:01 2005 +++ movitz/losp/muerte/segments.lisp Thu Apr 14 08:14:49 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Thu May 8 14:25:06 2003 ;;;; -;;;; $Id: segments.lisp,v 1.7 2005/04/13 06:57:01 ffjeld Exp $ +;;;; $Id: segments.lisp,v 1.8 2005/04/14 06:14:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -18,7 +18,7 @@

(in-package muerte)

-(defun segment-register-name (segment-register-name) +(defun segment-register (segment-register-name) "Return the value of an x86 segment register, such as :cs or :ds." (macrolet ((sreg (reg) `(with-inline-assembly (:returns :untagged-fixnum-ecx) @@ -32,7 +32,7 @@ (:fs (sreg :fs)) (:gs (sreg :gs)))))

-(defun (setf segment-register-name) (value segment-register-name) +(defun (setf segment-register) (value segment-register-name) "This function indiscriminately sets a segment register, which is a great way to crash the machine. So know what you're doing." (check-type value (unsigned-byte 16))