Changeset 10214


Ignore:
Timestamp:
10/24/05 21:12:06 (16 years ago)
Author:
piso
Message:

Minor cleanup.

File:
1 edited

Legend:

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

    r10206 r10214  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Primitives.java,v 1.842 2005-10-23 17:38:10 piso Exp $
     5 * $Id: Primitives.java,v 1.843 2005-10-24 21:12:06 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    6161        public LispObject execute() throws ConditionThrowable
    6262        {
    63             signal(new WrongNumberOfArgumentsException(this));
    64             return NIL;
     63            return signal(new WrongNumberOfArgumentsException(this));
    6564        }
    6665        public LispObject execute(LispObject arg) throws ConditionThrowable
     
    8887        public LispObject execute() throws ConditionThrowable
    8988        {
    90             signal(new WrongNumberOfArgumentsException(this));
    91             return NIL;
     89            return signal(new WrongNumberOfArgumentsException(this));
    9290        }
    9391        public LispObject execute(LispObject arg) throws ConditionThrowable
     
    121119        public LispObject execute() throws ConditionThrowable
    122120        {
    123             signal(new WrongNumberOfArgumentsException(this));
    124             return NIL;
     121            return signal(new WrongNumberOfArgumentsException(this));
    125122        }
    126123        public LispObject execute(LispObject arg) throws ConditionThrowable
     
    669666        {
    670667            if (args == NIL)
    671                 signal(new WrongNumberOfArgumentsException(this));
     668                return signal(new WrongNumberOfArgumentsException(this));
    672669            final LispThread thread = LispThread.currentThread();
    673670            if (eval(args.car(), env, thread) != NIL) {
     
    679676                }
    680677                return result;
    681             } else
    682                 return thread.setValues(NIL);
     678            }
     679            return thread.setValues(NIL);
    683680        }
    684681    };
     
    692689        {
    693690            if (args == NIL)
    694                 signal(new WrongNumberOfArgumentsException(this));
     691                return signal(new WrongNumberOfArgumentsException(this));
    695692            final LispThread thread = LispThread.currentThread();
    696693            if (eval(args.car(), env, thread) == NIL) {
     
    702699                }
    703700                return result;
    704             } else
    705                 return thread.setValues(NIL);
     701            }
     702            return thread.setValues(NIL);
    706703        }
    707704    };
     
    13651362        {
    13661363            if (args.length < 1) {
    1367                 signal(new WrongNumberOfArgumentsException(this));
    1368                 return NIL;
     1364                return signal(new WrongNumberOfArgumentsException(this));
    13691365            }
    13701366            LispObject datum = args[0];
     
    14731469        {
    14741470            if (args.length < 2)
    1475                 signal(new WrongNumberOfArgumentsException(this));
     1471                return signal(new WrongNumberOfArgumentsException(this));
    14761472            LispObject destination = args[0];
    14771473            // Copy remaining arguments.
     
    20182014        {
    20192015            if (args.length < 1)
    2020                 signal(new WrongNumberOfArgumentsException(this));
     2016                return signal(new WrongNumberOfArgumentsException(this));
    20212017            final AbstractArray array;
    20222018            try {
     
    26232619            final int numArgs = args.length;
    26242620            if (numArgs < 2)
    2625                 signal(new WrongNumberOfArgumentsException(this));
     2621                return signal(new WrongNumberOfArgumentsException(this));
    26262622            int commonLength = -1;
    26272623            for (int i = 1; i < numArgs; i++) {
     
    26952691            final int numArgs = args.length;
    26962692            if (numArgs < 2)
    2697                 signal(new WrongNumberOfArgumentsException(this));
     2693                return signal(new WrongNumberOfArgumentsException(this));
    26982694            int commonLength = -1;
    26992695            for (int i = 1; i < numArgs; i++) {
     
    28412837        {
    28422838            if (args.length == 0 || args.length > 2)
    2843                 signal(new WrongNumberOfArgumentsException(this));
     2839                return signal(new WrongNumberOfArgumentsException(this));
    28442840            Symbol symbol = checkSymbol(args[0]);
    28452841            Package pkg;
     
    29812977        {
    29822978            if (args.length < 1 || args.length > 2)
    2983                 signal(new WrongNumberOfArgumentsException(this));
     2979                return signal(new WrongNumberOfArgumentsException(this));
    29842980            Package pkg;
    29852981            if (args.length == 2)
     
    33453341        {
    33463342            if (args.length() != 1)
    3347                 signal(new WrongNumberOfArgumentsException(this));
     3343                return signal(new WrongNumberOfArgumentsException(this));
    33483344            Binding binding = env.getTagBinding(args.car());
    33493345            if (binding == null)
     
    33633359        {
    33643360            if (args == NIL)
    3365                 signal(new WrongNumberOfArgumentsException(this));
     3361                return signal(new WrongNumberOfArgumentsException(this));
    33663362            LispObject tag;
    33673363            try {
     
    34043400            final int length = args.length();
    34053401            if (length < 1 || length > 2)
    3406                 signal(new WrongNumberOfArgumentsException(this));
     3402                return signal(new WrongNumberOfArgumentsException(this));
    34073403            Symbol symbol;
    34083404            try {
     
    34363432        {
    34373433            if (args.length() < 1)
    3438                 signal(new WrongNumberOfArgumentsException(this));
     3434                return signal(new WrongNumberOfArgumentsException(this));
    34393435            final LispThread thread = LispThread.currentThread();
    34403436            LispObject tag = eval(args.car(), env, thread);
     
    34743470        {
    34753471            if (args.length() != 2)
    3476                 signal(new WrongNumberOfArgumentsException(this));
     3472                return signal(new WrongNumberOfArgumentsException(this));
    34773473            final LispThread thread = LispThread.currentThread();
    34783474            thread.throwToTag(eval(args.car(), env, thread),
     
    36253621        {
    36263622            if (args.length() == 0)
    3627                 signal(new WrongNumberOfArgumentsException(this));
     3623                return signal(new WrongNumberOfArgumentsException(this));
    36283624            final LispThread thread = LispThread.currentThread();
    36293625            LispObject result = eval(args.car(), env, thread);
     
    36473643        {
    36483644            if (args.length() == 0)
    3649                 signal(new WrongNumberOfArgumentsException(this));
     3645                return signal(new WrongNumberOfArgumentsException(this));
    36503646            final LispThread thread = LispThread.currentThread();
    36513647            LispObject function;
     
    38823878        {
    38833879            if (args.length > 1)
    3884                 signal(new WrongNumberOfArgumentsException(this));
     3880                return signal(new WrongNumberOfArgumentsException(this));
    38853881            final Stream in;
    38863882            if (args.length == 0)
     
    39603956        {
    39613957            if (args.length() != 1)
    3962                 signal(new WrongNumberOfArgumentsException(this));
     3958                return signal(new WrongNumberOfArgumentsException(this));
    39633959            final LispThread thread = LispThread.currentThread();
    39643960            LispObject result = eval(args.car(), env, thread);
     
    39853981        {
    39863982            if (args.length() != 2)
    3987                 signal(new WrongNumberOfArgumentsException(this));
     3983                return signal(new WrongNumberOfArgumentsException(this));
    39883984            final LispThread thread = LispThread.currentThread();
    39893985            int n = Fixnum.getValue(eval(args.car(), env, thread));
     
    40634059            int length = args.length;
    40644060            if (length < 1 || length > 3)
    4065                 signal(new WrongNumberOfArgumentsException(this));
     4061                return signal(new WrongNumberOfArgumentsException(this));
    40664062            final Stream in = checkBinaryInputStream(args[0]);
    40674063            boolean eofError = length > 1 ? (args[1] != NIL) : true;
     
    42714267            int length = args.length;
    42724268            if (length > 4)
    4273                 signal(new WrongNumberOfArgumentsException(this));
     4269                return signal(new WrongNumberOfArgumentsException(this));
    42744270            Stream stream =
    42754271                length > 0 ? inSynonymOf(args[0]) : getStandardInput();
     
    45124508        public LispObject execute() throws ConditionThrowable
    45134509        {
    4514             signal(new WrongNumberOfArgumentsException(this));
    4515             return NIL;
     4510            return signal(new WrongNumberOfArgumentsException(this));
    45164511        }
    45174512        public LispObject execute(LispObject arg) throws ConditionThrowable
Note: See TracChangeset for help on using the changeset viewer.