Changeset 8669


Ignore:
Timestamp:
02/28/05 20:22:20 (16 years ago)
Author:
piso
Message:

Added &environment argument to SETF.

File:
1 edited

Legend:

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

    r8536 r8669  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: setf.lisp,v 1.50 2005-02-12 02:12:16 piso Exp $
     4;;; $Id: setf.lisp,v 1.51 2005-02-28 20:22:20 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    6060           (expand-or-get-setf-inverse form environment)))))
    6161
    62 (defmacro setf (&rest args)
     62(defmacro setf (&rest args &environment environment)
    6363  (let ((count (length args)))
    6464    (cond
     
    7272                (resolve (car place)))
    7373              (multiple-value-bind (dummies vals store-vars setter getter)
    74                 (get-setf-expansion place)
     74                (get-setf-expansion place environment)
    7575                (let ((inverse (get (car place) 'setf-inverse)))
    7676                  (if (and inverse (eq inverse (car setter)))
Note: See TracChangeset for help on using the changeset viewer.