Changeset 5312


Ignore:
Timestamp:
01/01/04 19:39:24 (18 years ago)
Author:
piso
Message:

SYS::%WRITE-TO-STRING

File:
1 edited

Legend:

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

    r5298 r5312  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.547 2004-01-01 01:34:29 piso Exp $
     5 * $Id: Primitives.java,v 1.548 2004-01-01 19:39:24 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    650650            outSynonymOf(second).writeString(String.valueOf(first));
    651651            return first;
     652        }
     653    };
     654
     655    // ### %write-to-string
     656    // %write-to-string object => string
     657    private static final Primitive1 _WRITE_TO_STRING =
     658        new Primitive1("%write-to-string", PACKAGE_SYS, false)
     659    {
     660        public LispObject execute(LispObject arg) throws ConditionThrowable
     661        {
     662            return new LispString(String.valueOf(arg));
    652663        }
    653664    };
Note: See TracChangeset for help on using the changeset viewer.