Changeset 11017


Ignore:
Timestamp:
03/16/06 11:32:38 (15 years ago)
Author:
piso
Message:

_flet(): use isValidSetfFunctionName().

File:
1 edited

Legend:

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

    r11015 r11017  
    33 *
    44 * Copyright (C) 2003-2006 Peter Graves
    5  * $Id: SpecialOperators.java,v 1.53 2006-03-16 11:13:08 piso Exp $
     5 * $Id: SpecialOperators.java,v 1.54 2006-03-16 11:32:38 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    442442                  }
    443443              }
    444             else if (name instanceof Cons && name.car() == Symbol.SETF)
    445               {
    446                 symbol = checkSymbol(name.cadr());
    447               }
     444            else if (isValidSetfFunctionName(name))
     445              symbol = checkSymbol(name.cadr());
    448446            else
    449447              return signalTypeError(name, FUNCTION_NAME);
Note: See TracChangeset for help on using the changeset viewer.