Changeset 8471


Ignore:
Timestamp:
02/05/05 18:31:33 (16 years ago)
Author:
piso
Message:

Moved %DEFINE-SETF-MACRO to setf.lisp.

File:
1 edited

Legend:

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

    r8467 r8471  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: defsetf.lisp,v 1.2 2005-02-05 17:47:23 piso Exp $
     4;;; $Id: defsetf.lisp,v 1.3 2005-02-05 18:31:33 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2424(require '#:collect)
    2525
    26 (defun %define-setf-macro (name expander inverse doc)
    27   (when inverse
    28     (setf (get name 'setf-inverse) inverse))
    29   (when expander
    30     (setf (get name 'setf-expander) expander))
    31   name)
    32 
    3326(defun %defsetf (orig-access-form num-store-vars expander)
    3427  (collect ((subforms) (subform-vars) (subform-exprs) (store-vars))
     
    5144  (cond ((not (listp (car rest)))
    5245   `(eval-when (:load-toplevel :compile-toplevel :execute)
    53       (%define-setf-macro ',access-fn nil ',(car rest)
     46      (%define-setf-macro ',access-fn
     47                                nil
     48                                ',(car rest)
    5449        ,(when (and (car rest) (stringp (cadr rest)))
    5550           `',(cadr rest)))))
Note: See TracChangeset for help on using the changeset viewer.