Changeset 3598


Ignore:
Timestamp:
09/08/03 01:38:21 (19 years ago)
Author:
piso
Message:

SETF

File:
1 edited

Legend:

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

    r3516 r3598  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: setf.lisp,v 1.22 2003-08-25 18:21:31 piso Exp $
     4;;; $Id: setf.lisp,v 1.23 2003-09-08 01:38:21 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    8080                   `(,expander ,@(cdr place) ,value))
    8181                  ((functionp expander)
    82                    `(funcall ,expander ,@(cdr place) value))
     82                   `(funcall ,expander ,@(cdr place) ,value))
    8383                  (t
    8484                   (error "SETF: unhandled case")))))
Note: See TracChangeset for help on using the changeset viewer.