Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv8880 Modified Files: integers.lisp Log Message: Changed representation of bytespecs to be cons-cells. Date: Sun Sep 18 17:09:22 2005 Author: ffjeld Index: movitz/losp/muerte/integers.lisp diff -u movitz/losp/muerte/integers.lisp:1.117 movitz/losp/muerte/integers.lisp:1.118 --- movitz/losp/muerte/integers.lisp:1.117 Sun Sep 18 16:42:21 2005 +++ movitz/losp/muerte/integers.lisp Sun Sep 18 17:09:22 2005 @@ -9,7 +9,7 @@ ;;;; Created at: Wed Nov 8 18:44:57 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: integers.lisp,v 1.117 2005/09/18 14:42:21 ffjeld Exp $ +;;;; $Id: integers.lisp,v 1.118 2005/09/18 15:09:22 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1396,14 +1396,13 @@ ;;; bytes (defun byte (size position) - (check-type position (integer 0 #x3ff)) - (+ (* size #x400) position)) + (cons size position)) (defun byte-size (bytespec) - (values (truncate bytespec #x400))) + (car bytespec)) (defun byte-position (bytespec) - (rem bytespec #x400)) + (cdr bytespec)) (defun logbitp (index integer) (check-type index positive-fixnum) @@ -2082,7 +2081,6 @@ (:jnz 'count-loop))) (positive-bignum (bignum-logcount integer)))) - (defun dpb (newbyte bytespec integer) (logior (if (= 0 newbyte)