Changeset 8620


Ignore:
Timestamp:
02/21/05 18:08:55 (16 years ago)
Author:
piso
Message:

%DEFCONSTANT

File:
1 edited

Legend:

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

    r8553 r8620  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Primitives.java,v 1.736 2005-02-12 20:59:43 piso Exp $
     5 * $Id: Primitives.java,v 1.737 2005-02-21 18:08:55 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    16551655    };
    16561656
    1657     // ### %defconstant
     1657    // ### %defconstant name initial-value documentation => name
    16581658    private static final Primitive _DEFCONSTANT =
    16591659        new Primitive("%defconstant", PACKAGE_SYS, false)
     
    16641664        {
    16651665            Symbol symbol = checkSymbol(first);
    1666             if (third instanceof AbstractString)
    1667                 symbol.setVariableDocumentation(third);
    1668             else if (third != NIL)
    1669                 signal(new TypeError(third, "string"));
     1666            if (third != NIL) {
     1667                if (third instanceof AbstractString)
     1668                    symbol.setVariableDocumentation(third);
     1669                else
     1670                    signal(new TypeError(third, Symbol.STRING));
     1671            }
    16701672            symbol.setSymbolValue(second);
    16711673            symbol.setSpecial(true);
Note: See TracChangeset for help on using the changeset viewer.