Changeset 4231


Ignore:
Timestamp:
10/06/03 17:15:12 (19 years ago)
Author:
piso
Message:

%DEFCONSTANT: symbol.setSpecial(true).

File:
1 edited

Legend:

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

    r4209 r4231  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.462 2003-10-06 00:25:45 piso Exp $
     5 * $Id: Primitives.java,v 1.463 2003-10-06 17:15:12 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    14321432    // ### %defconstant
    14331433    private static final Primitive3 _DEFCONSTANT =
    1434         new Primitive3("%defconstant", PACKAGE_SYS, false) {
     1434        new Primitive3("%defconstant", PACKAGE_SYS, false)
     1435    {
    14351436        public LispObject execute(LispObject first, LispObject second,
    14361437                                  LispObject third)
     
    14431444                throw new ConditionThrowable(new TypeError(third, "string"));
    14441445            symbol.setSymbolValue(second);
     1446            symbol.setSpecial(true);
    14451447            symbol.setConstant(true);
    14461448            return symbol;
Note: See TracChangeset for help on using the changeset viewer.