Changeset 4414


Ignore:
Timestamp:
10/16/03 19:40:49 (18 years ago)
Author:
piso
Message:

Minor cleanup.

File:
1 edited

Legend:

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

    r4400 r4414  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.476 2003-10-16 00:32:26 piso Exp $
     5 * $Id: Primitives.java,v 1.477 2003-10-16 19:40:49 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    31753175    };
    31763176
    3177     // ### multiple-value-seq
     3177    // ### multiple-value-setq
    31783178    // multiple-value-setq vars form => result
    31793179    // Result is the primary value returned by the form.
    31803180    // Should be a macro.
    31813181    private static final SpecialOperator MULTIPLE_VALUE_SETQ =
    3182         new SpecialOperator("multiple-value-setq") {
     3182        new SpecialOperator("multiple-value-setq")
     3183    {
    31833184        public LispObject execute(LispObject args, Environment env)
    31843185            throws ConditionThrowable
     
    32313232    // ### multiple-value-prog1
    32323233    private static final SpecialOperator MULTIPLE_VALUE_PROG1 =
    3233         new SpecialOperator("multiple-value-prog1") {
     3234        new SpecialOperator("multiple-value-prog1")
     3235    {
    32343236        public LispObject execute(LispObject args, Environment env)
    32353237            throws ConditionThrowable
     
    32493251    // ### multiple-value-call
    32503252    private static final SpecialOperator MULTIPLE_VALUE_CALL =
    3251         new SpecialOperator("multiple-value-call") {
     3253        new SpecialOperator("multiple-value-call")
     3254    {
    32523255        public LispObject execute(LispObject args, Environment env)
    32533256            throws ConditionThrowable
Note: See TracChangeset for help on using the changeset viewer.