Changeset 8558


Ignore:
Timestamp:
02/13/05 04:12:44 (16 years ago)
Author:
piso
Message:

%SIMPLE-BIT-VECTOR-BIT-NOT

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Autoload.java

    r8557 r8558  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: Autoload.java,v 1.215 2005-02-13 04:04:17 piso Exp $
     5 * $Id: Autoload.java,v 1.216 2005-02-13 04:12:44 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    469469        autoload(PACKAGE_SYS, "%simple-bit-vector-bit-nand", "SimpleBitVector");
    470470        autoload(PACKAGE_SYS, "%simple-bit-vector-bit-nor", "SimpleBitVector");
     471        autoload(PACKAGE_SYS, "%simple-bit-vector-bit-not", "SimpleBitVector");
    471472        autoload(PACKAGE_SYS, "%simple-bit-vector-bit-orc1", "SimpleBitVector");
    472473        autoload(PACKAGE_SYS, "%simple-bit-vector-bit-orc2", "SimpleBitVector");
  • trunk/j/src/org/armedbear/lisp/SimpleBitVector.java

    r8555 r8558  
    33 *
    44 * Copyright (C) 2004-2005 Peter Graves
    5  * $Id: SimpleBitVector.java,v 1.12 2005-02-13 04:02:22 piso Exp $
     5 * $Id: SimpleBitVector.java,v 1.13 2005-02-13 04:12:17 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    453453        }
    454454    };
     455
     456    // ### %simple-bit-vector-bit-not
     457    private static final Primitive _SIMPLE_BIT_VECTOR_BIT_NOT =
     458        new Primitive("%simple-bit-vector-bit-not", PACKAGE_SYS, false,
     459                      "bit-vector result-bit-vector")
     460    {
     461        public LispObject execute(LispObject first, LispObject second)
     462            throws ConditionThrowable
     463        {
     464            SimpleBitVector v = (SimpleBitVector) first;
     465            SimpleBitVector result = (SimpleBitVector) second;
     466            for (int i = v.bits.length; i-- > 0;)
     467                result.bits[i] = ~v.bits[i];
     468            return result;
     469        }
     470    };
    455471}
Note: See TracChangeset for help on using the changeset viewer.