[movitz-cvs] CVS update: movitz/losp/muerte/integers.lisp

[Frode Vatvedt Fjeld]

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)