Changeset 13974


Ignore:
Timestamp:
06/17/12 12:55:18 (9 years ago)
Author:
rschlatte
Message:

Fix return value of (setf class-name)

  • fixes ansi test setf-class-name.2
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r13973 r13974  
    27702770;;; AMOP pg. 230
    27712771(redefine-class-forwarder (setf class-name) name
    2772    ((standard-class . (reinitialize-instance class :name new-value))
    2773     (funcallable-standard-class . (reinitialize-instance class :name new-value))))
     2772   ((standard-class . (progn (reinitialize-instance class :name new-value) new-value))
     2773    (funcallable-standard-class . (progn (reinitialize-instance class :name new-value) new-value))))
    27742774(redefine-class-forwarder class-slots slots)
    27752775(redefine-class-forwarder (setf class-slots) slots)
Note: See TracChangeset for help on using the changeset viewer.