Ignore:
Timestamp:
02/05/05 18:30:58 (16 years ago)
Author:
piso
Message:

%DEFINE-SETF-MACRO

File:
1 edited

Legend:

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

    r8250 r8470  
    11;;; setf.lisp
    22;;;
    3 ;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: setf.lisp,v 1.47 2004-12-16 15:08:01 piso Exp $
     3;;; Copyright (C) 2003-2005 Peter Graves
     4;;; $Id: setf.lisp,v 1.48 2005-02-05 18:30:58 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    133133      v)))
    134134
     135(defun %define-setf-macro (name expander inverse doc)
     136  (when inverse
     137    (%put name 'setf-inverse inverse))
     138  (when expander
     139    (%put name 'setf-expander expander))
     140  name)
     141
    135142(defmacro defsetf (access-function update-function)
    136143  `(eval-when (:load-toplevel :compile-toplevel :execute)
Note: See TracChangeset for help on using the changeset viewer.