Changeset 3547


Ignore:
Timestamp:
09/02/03 05:11:09 (20 years ago)
Author:
piso
Message:

COMPLEX

File:
1 edited

Legend:

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

    r3546 r3547  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.360 2003-09-02 04:36:46 piso Exp $
     5 * $Id: Primitives.java,v 1.361 2003-09-02 05:11:09 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    47224722    };
    47234723
     4724    // ### complex
     4725    private static final Primitive2 COMPLEX = new Primitive2("complex") {
     4726        public LispObject execute(LispObject first, LispObject second)
     4727            throws LispError
     4728        {
     4729            return Complex.getInstance(first, second);
     4730        }
     4731    };
     4732
    47244733    // ### complexp
    47254734    private static final Primitive1 COMPLEXP = new Primitive1("complexp") {
Note: See TracChangeset for help on using the changeset viewer.