Changeset 10362


Ignore:
Timestamp:
11/05/05 01:30:45 (16 years ago)
Author:
piso
Message:

SYS:%SET-STD-SLOT-VALUE => SYS:SET-STD-SLOT-VALUE

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r10332 r10362  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: StandardObject.java,v 1.50 2005-11-03 16:59:56 piso Exp $
     5 * $Id: StandardObject.java,v 1.51 2005-11-05 01:29:20 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    251251            }
    252252            catch (ClassCastException e) {
    253                 return signal(new TypeError(first, Symbol.STANDARD_OBJECT));
     253                return signalTypeError(first, Symbol.STANDARD_OBJECT);
    254254            }
    255255            try {
     
    257257            }
    258258            catch (ClassCastException e) {
    259                 return signal(new TypeError(second, Symbol.STANDARD_OBJECT));
     259                return signalTypeError(second, Symbol.STANDARD_OBJECT);
    260260            }
    261261            LispObject[] temp = obj1.slots;
     
    276276            }
    277277            catch (ClassCastException e) {
    278                 return signal(new TypeError(arg, Symbol.STANDARD_OBJECT));
     278                return signalTypeError(arg, Symbol.STANDARD_OBJECT);
    279279            }
    280280        }
     
    294294            catch (ClassCastException e) {
    295295                if (!(first instanceof StandardObject))
    296                     return signal(new TypeError(first, Symbol.STANDARD_OBJECT));
     296                    return signalTypeError(first, Symbol.STANDARD_OBJECT);
    297297                if (!(second instanceof Layout))
    298                     return signal(new TypeError(second, Symbol.LAYOUT));
     298                    return signalTypeError(second, Symbol.LAYOUT);
    299299                // Not reached.
    300300                return NIL;
     
    313313            }
    314314            catch (ClassCastException e) {
    315                 return signal(new TypeError(arg, Symbol.STANDARD_OBJECT));
     315                return signalTypeError(arg, Symbol.STANDARD_OBJECT);
    316316            }
    317317        }
     
    330330            }
    331331            catch (ClassCastException e) {
    332                 return signal(new TypeError(first, Symbol.STANDARD_OBJECT));
     332                return signalTypeError(first, Symbol.STANDARD_OBJECT);
    333333            }
    334334        }
     
    348348            }
    349349            catch (ClassCastException e) {
    350                 return signal(new TypeError(first, Symbol.STANDARD_OBJECT));
     350                return signalTypeError(first, Symbol.STANDARD_OBJECT);
    351351            }
    352352        }
     
    366366            }
    367367            catch (ClassCastException e) {
    368                 return signal(new TypeError(first, Symbol.STANDARD_OBJECT));
     368                return signalTypeError(first, Symbol.STANDARD_OBJECT);
    369369            }
    370370            Layout layout = instance.layout;
     
    405405        {
    406406            LispObject value = null;
    407             StandardObject instance;
     407            final StandardObject instance;
    408408            try {
    409409                instance = (StandardObject) first;
    410410            }
    411411            catch (ClassCastException e) {
    412                 return signal(new TypeError(first, Symbol.STANDARD_OBJECT));
     412                return signalTypeError(first, Symbol.STANDARD_OBJECT);
    413413            }
    414414            Layout layout = instance.layout;
     
    439439    };
    440440
    441     // ### %set-std-slot-value
    442     private static final Primitive _SET_STD_SLOT_VALUE =
    443         new Primitive("%set-std-slot-value", PACKAGE_SYS, true,
     441    // ### set-std-slot-value
     442    private static final Primitive SET_STD_SLOT_VALUE =
     443        new Primitive("set-std-slot-value", PACKAGE_SYS, true,
    444444                      "instance slot-name new-value")
    445445    {
     
    453453            }
    454454            catch (ClassCastException e) {
    455                 return signal(new TypeError(first, Symbol.STANDARD_OBJECT));
     455                return signalTypeError(first, Symbol.STANDARD_OBJECT);
    456456            }
    457457            Layout layout = instance.layout;
  • trunk/j/src/org/armedbear/lisp/known-functions.lisp

    r10339 r10362  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: known-functions.lisp,v 1.28 2005-11-04 00:27:53 piso Exp $
     4;;; $Id: known-functions.lisp,v 1.29 2005-11-05 01:30:45 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    6262        %set-cddr
    6363        %set-schar
    64         %set-std-slot-value
    6564        %stream-terpri
    6665        %stream-write-char
     
    147146        second
    148147        set
     148        set-std-slot-value
    149149        setf-function-name-p
    150150        seventh
Note: See TracChangeset for help on using the changeset viewer.