Changeset 3598

Timestamp:

09/08/03 01:38:21 (19 years ago)

Author:

piso

Message:

SETF

File:

• trunk/j/src/org/armedbear/lisp/setf.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/setf.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: setf.lisp,v 1.22 2003-08-25 18:21:31 piso Exp $
+;;; $Id: setf.lisp,v 1.23 2003-09-08 01:38:21 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -80 +80 @@
                    `(,expander ,@(cdr place) ,value))
                   ((functionp expander)
-                   `(funcall ,expander ,@(cdr place) value))
+                   `(funcall ,expander ,@(cdr place) ,value))
                   (t
                    (error "SETF: unhandled case")))))