Changeset 9243


Ignore:
Timestamp:
05/24/05 19:11:11 (16 years ago)
Author:
piso
Message:

PACKAGE-NAME

File:
1 edited

Legend:

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

    r8382 r9243  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: PackageFunctions.java,v 1.29 2005-01-22 11:42:03 piso Exp $
     5 * $Id: PackageFunctions.java,v 1.30 2005-05-24 19:11:11 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4141        public LispObject execute(LispObject arg) throws ConditionThrowable
    4242        {
    43             String name = coerceToPackage(arg).getName();
    44             return name != null ? new SimpleString(name) : NIL;
     43            return coerceToPackage(arg).NAME();
    4544        }
    4645    };
Note: See TracChangeset for help on using the changeset viewer.