diff options
Diffstat (limited to 'src/interp/bits.lisp')
-rw-r--r-- | src/interp/bits.lisp | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/src/interp/bits.lisp b/src/interp/bits.lisp index 4ae37adf..5b20b3e7 100644 --- a/src/interp/bits.lisp +++ b/src/interp/bits.lisp @@ -1,6 +1,6 @@ ;; Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd. ;; All rights reserved. -;; Copyright (C) 2007, Gabriel Dos Reis. +;; Copyright (C) 2007-2011, Gabriel Dos Reis. ;; All rights reserved. ;; ;; Redistribution and use in source and binary forms, with or without @@ -55,20 +55,10 @@ (defmacro bvec-elt (bv i) `(sbit ,bv ,i)) (defmacro bvec-setelt (bv i x) `(setf (sbit ,bv ,i) ,x)) -(defmacro bvec-size (bv) `(size ,bv)) -(defun bvec-copy (bv) (copy-seq bv)) -(defun bvec-concat (bv1 bv2) (concatenate '(vector bit) bv1 bv2)) -(defun bvec-equal (bv1 bv2) (equal bv1 bv2)) (defun bvec-greater (bv1 bv2) (let ((pos (mismatch bv1 bv2))) (cond ((or (null pos) (>= pos (length bv1))) nil) ((< pos (length bv2)) (> (bit bv1 pos) (bit bv2 pos))) ((find 1 bv1 :start pos) t) (t nil)))) -(defun bvec-and (bv1 bv2) (bit-and bv1 bv2)) -(defun bvec-or (bv1 bv2) (bit-ior bv1 bv2)) -(defun bvec-xor (bv1 bv2) (bit-xor bv1 bv2)) -(defun bvec-nand (bv1 bv2) (bit-nand bv1 bv2)) -(defun bvec-nor (bv1 bv2) (bit-nor bv1 bv2)) -(defun bvec-not (bv) (bit-not bv)) |