Changeset 4065


Ignore:
Timestamp:
09/26/03 00:44:30 (19 years ago)
Author:
piso
Message:

+ (when (macro-function (car place))
+ (setq place (macroexpand place)))

File:
1 edited

Legend:

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

    r4044 r4065  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: setf.lisp,v 1.25 2003-09-24 22:55:00 piso Exp $
     4;;; $Id: setf.lisp,v 1.26 2003-09-26 00:44:30 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    7474          `(setq ,place ,value))
    7575         ((consp place)
     76          (when (macro-function (car place))
     77            (setq place (macroexpand place)))
    7678          (let ((expander (get (car place) *setf-expander*)))
    7779            (cond ((null expander)
Note: See TracChangeset for help on using the changeset viewer.