Changeset 4208

Timestamp:

10/06/03 00:20:09 (20 years ago)

Author:

piso

Message:

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

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.32 2003-10-01 21:46:59 piso Exp $
+;;; $Id: setf.lisp,v 1.33 2003-10-06 00:20:09 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -107 +107 @@
   (setq l (cons (list 'setf (car a) (cadr a)) l)))))))
 
+;;; Redefined in define-modify-macro.lisp.
 (defmacro incf (place &optional (delta 1))
   `(setf ,place (+ ,place ,delta)))
 
+;;; Redefined in define-modify-macro.lisp.
 (defmacro decf (place &optional (delta 1))
   `(setf ,place (- ,place ,delta)))