Ignore:
Timestamp:
02/13/05 16:01:11 (17 years ago)
Author:
piso
Message:

(let ((x (list 1 2))) (incf (the fixnum (car x))))

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/define-modify-macro.lisp

    r8500 r8562  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: define-modify-macro.lisp,v 1.3 2005-02-07 16:24:03 piso Exp $
     4;;; $Id: define-modify-macro.lisp,v 1.4 2005-02-13 16:01:11 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    8686         (let ((res (gensym)))
    8787           `(let ((,res (the ,(second place) (+ ,place ,delta))))
    88               (setq ,(third place) ,res))))
     88              (setf ,(third place) ,res))))
    8989        (t
    9090         `(incf-complex ,place ,delta))))
     
    102102         (let ((res (gensym)))
    103103           `(let ((,res (the ,(second place) (- ,place ,delta))))
    104               (setq ,(third place) ,res))))
     104              (setf ,(third place) ,res))))
    105105        (t
    106106         `(decf-complex ,place ,delta))))
Note: See TracChangeset for help on using the changeset viewer.