Changeset 8610


Ignore:
Timestamp:
02/20/05 14:13:55 (16 years ago)
Author:
piso
Message:

STRUCTURE-OBJECT-P

File:
1 edited

Legend:

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

    r8606 r8610  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: StructureObject.java,v 1.44 2005-02-18 18:20:47 piso Exp $
     5 * $Id: StructureObject.java,v 1.45 2005-02-20 14:13:55 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    206206    }
    207207
     208    // ### structure-object-p object => generalized-boolean
     209    private static final Primitive STRUCTURE_OBJECT_P =
     210        new Primitive("structure-object-p", PACKAGE_SYS, true, "object")
     211    {
     212        public LispObject execute(LispObject arg)
     213        {
     214            return (arg instanceof StructureObject) ? T : NIL;
     215        }
     216    };
     217
    208218    // ### structure-length instance => length
    209219    private static final Primitive STRUCTURE_LENGTH =
    210220        new Primitive("structure-length", PACKAGE_SYS, true, "instance")
    211221    {
    212         public LispObject execute(LispObject arg)
    213             throws ConditionThrowable
     222        public LispObject execute(LispObject arg) throws ConditionThrowable
    214223        {
    215224            try {
Note: See TracChangeset for help on using the changeset viewer.