Changeset 4370


Ignore:
Timestamp:
10/14/03 16:04:01 (18 years ago)
Author:
piso
Message:

Minor cleanup.

File:
1 edited

Legend:

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

    r4345 r4370  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.473 2003-10-13 13:10:03 piso Exp $
     5 * $Id: Primitives.java,v 1.474 2003-10-14 16:04:01 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    10281028    // assoc item alist &key key test test-not => entry
    10291029    // This is the bootstrap version (needed for %set-documentation).
    1030     // Redefined properly in list.lisp.
    1031     private static final Primitive ASSOC = new Primitive("assoc") {
     1030    // Redefined properly in assoc.lisp.
     1031    private static final Primitive ASSOC = new Primitive("assoc")
     1032    {
    10321033        public LispObject execute(LispObject[] args) throws ConditionThrowable
    10331034        {
     
    10511052    // ### nth
    10521053    // nth n list => object
    1053     private static final Primitive2 NTH = new Primitive2("nth") {
     1054    private static final Primitive2 NTH = new Primitive2("nth")
     1055    {
    10541056        public LispObject execute(LispObject first, LispObject second)
    10551057            throws ConditionThrowable
Note: See TracChangeset for help on using the changeset viewer.