Changeset 8666


Ignore:
Timestamp:
02/28/05 17:21:25 (16 years ago)
Author:
piso
Message:

Minor cleanup.

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

Legend:

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

    r8656 r8666  
    22 * Environment.java
    33 *
    4  * Copyright (C) 2002-2004 Peter Graves
    5  * $Id: Environment.java,v 1.20 2005-02-28 00:58:44 piso Exp $
     4 * Copyright (C) 2002-2005 Peter Graves
     5 * $Id: Environment.java,v 1.21 2005-02-28 17:21:25 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    234234            }
    235235            catch (ClassCastException e) {
    236                 return signal(new TypeError(arg.writeToString() +
    237                                             " is not an environment."));
     236                return signal(new TypeError(arg, Symbol.ENVIRONMENT));
    238237            }
    239238        }
     
    255254            }
    256255            catch (ClassCastException e) {
    257                 return signal(new TypeError(arg.writeToString() +
    258                                             " is not an environment."));
     256                return signal(new TypeError(arg, Symbol.ENVIRONMENT));
    259257            }
    260258        }
  • trunk/j/src/org/armedbear/lisp/SpecialOperators.java

    r8660 r8666  
    22 * SpecialOperators.java
    33 *
    4  * Copyright (C) 2003-2004 Peter Graves
    5  * $Id: SpecialOperators.java,v 1.34 2005-02-28 02:50:04 piso Exp $
     4 * Copyright (C) 2003-2005 Peter Graves
     5 * $Id: SpecialOperators.java,v 1.35 2005-02-28 17:20:00 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2727{
    2828    // ### quote
    29     private static final SpecialOperator QUOTE = new SpecialOperator("quote", "thing") {
     29    private static final SpecialOperator QUOTE =
     30        new SpecialOperator("quote", "thing")
     31    {
    3032        public LispObject execute(LispObject args, Environment env)
    3133            throws ConditionThrowable
     
    3638
    3739    // ### if
    38     private static final SpecialOperator IF = new SpecialOperator("if", "test then &optional else") {
     40    private static final SpecialOperator IF =
     41        new SpecialOperator("if", "test then &optional else")
     42    {
    3943        public LispObject execute(LispObject args, Environment env)
    4044            throws ConditionThrowable
     
    5963
    6064    // ### let
    61     private static final SpecialOperator LET = new SpecialOperator("let", "bindings &body body")
     65    private static final SpecialOperator LET =
     66        new SpecialOperator("let", "bindings &body body")
    6267    {
    6368        public LispObject execute(LispObject args, Environment env)
     
    6974
    7075    // ### let*
    71     private static final SpecialOperator LETX = new SpecialOperator("let*", "bindings &body body")
     76    private static final SpecialOperator LETX =
     77        new SpecialOperator("let*", "bindings &body body")
    7278    {
    7379        public LispObject execute(LispObject args, Environment env)
Note: See TracChangeset for help on using the changeset viewer.