Changeset 4208


Ignore:
Timestamp:
10/06/03 00:20:09 (19 years ago)
Author:
piso
Message:

INCF and DECF are redefined in define-modify-macro.lisp.

File:
1 edited

Legend:

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

    r4164 r4208  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: setf.lisp,v 1.32 2003-10-01 21:46:59 piso Exp $
     4;;; $Id: setf.lisp,v 1.33 2003-10-06 00:20:09 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    107107  (setq l (cons (list 'setf (car a) (cadr a)) l)))))))
    108108
     109;;; Redefined in define-modify-macro.lisp.
    109110(defmacro incf (place &optional (delta 1))
    110111  `(setf ,place (+ ,place ,delta)))
    111112
     113;;; Redefined in define-modify-macro.lisp.
    112114(defmacro decf (place &optional (delta 1))
    113115  `(setf ,place (- ,place ,delta)))
Note: See TracChangeset for help on using the changeset viewer.