Changeset 8617


Ignore:
Timestamp:
02/20/05 19:13:03 (16 years ago)
Author:
piso
Message:

readStructure(): call DEFSTRUCT-DEFAULT-CONSTRUCTOR.

File:
1 edited

Legend:

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

    r8563 r8617  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: Stream.java,v 1.112 2005-02-14 00:49:40 piso Exp $
     5 * $Id: Stream.java,v 1.113 2005-02-20 19:13:03 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    332332            }
    333333            LispObject args = obj.cdr();
    334             Package pkg = checkPackage(structure.getPackage());
    335             Symbol constructor = pkg.intern("MAKE-" + structure.getName());
     334            Symbol DEFSTRUCT_DEFAULT_CONSTRUCTOR =
     335                PACKAGE_SYS.intern("DEFSTRUCT-DEFAULT-CONSTRUCTOR");
     336            LispObject constructor =
     337                DEFSTRUCT_DEFAULT_CONSTRUCTOR.getSymbolFunctionOrDie().execute(structure);
    336338            return funcall(constructor.getSymbolFunctionOrDie(),
    337339                           args.copyToArray(), LispThread.currentThread());
Note: See TracChangeset for help on using the changeset viewer.