Ignore:
Timestamp:
10/08/03 17:49:55 (19 years ago)
Author:
piso
Message:

Use %VSET.

File:
1 edited

Legend:

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

    r2728 r4256  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: delete.lisp,v 1.5 2003-07-02 18:19:42 piso Exp $
     4;;; $Id: delete.lisp,v 1.6 2003-10-08 17:49:55 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3737        ((= index length)
    3838         (shrink-vector sequence jndex))
    39         (setf (aref sequence jndex) (aref sequence index))))
    40      (setf (aref sequence jndex) (aref sequence index))
     39        (%vset sequence jndex (aref sequence index))))
     40     (%vset sequence jndex (aref sequence index))
    4141     (if ,pred
    4242         (setq number-zapped (1+ number-zapped))
     
    5858           ((= index length)
    5959            (shrink-vector sequence jndex))
    60            (setf (aref sequence jndex) (aref sequence index))))
    61         (setf (aref sequence jndex) (aref sequence index))
     60           (%vset sequence jndex (aref sequence index))))
     61        (%vset sequence jndex (aref sequence index))
    6262        (if (= index (car losers))
    6363            (pop losers)
Note: See TracChangeset for help on using the changeset viewer.