Changeset 8736


Ignore:
Timestamp:
03/07/05 03:31:44 (16 years ago)
Author:
piso
Message:

SET-GLOBAL-PROPERTY

File:
1 edited

Legend:

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

    r8711 r8736  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: LispAPI.java,v 1.62 2005-03-05 04:05:41 piso Exp $
     5 * $Id: LispAPI.java,v 1.63 2005-03-07 03:31:44 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    11011101    };
    11021102
    1103     // ### %set-global-property
    1104     private static final Primitive _SET_GLOBAL_PROPERTY =
    1105         new Primitive("%set-global-property", PACKAGE_J, false)
     1103    // ### set-global-property
     1104    private static final Primitive SET_GLOBAL_PROPERTY =
     1105        new Primitive("set-global-property", PACKAGE_J, true, "key value")
    11061106    {
    11071107        public LispObject execute(LispObject first, LispObject second)
     
    11101110            String key = first.getStringValue();
    11111111            final String value;
    1112             if (second instanceof Fixnum)
    1113                 value = String.valueOf(Fixnum.getValue(second));
     1112            if (second == NIL)
     1113                value = null;
     1114            else if (second instanceof Fixnum)
     1115                value = String.valueOf(((Fixnum)second).value);
    11141116            else
    11151117                value = second.getStringValue();
Note: See TracChangeset for help on using the changeset viewer.