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)