Changeset 4256

Timestamp:

10/08/03 17:49:55 (19 years ago)

Author:

piso

Message:

Use %VSET.

File:

• trunk/j/src/org/armedbear/lisp/delete.lisp (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/delete.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: delete.lisp,v 1.5 2003-07-02 18:19:42 piso Exp $
+;;; $Id: delete.lisp,v 1.6 2003-10-08 17:49:55 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -37 +37 @@
         ((= index length)
          (shrink-vector sequence jndex))
-        (setf (aref sequence jndex) (aref sequence index))))
-     (setf (aref sequence jndex) (aref sequence index))
+        (%vset sequence jndex (aref sequence index))))
+     (%vset sequence jndex (aref sequence index))
      (if ,pred
          (setq number-zapped (1+ number-zapped))
@@ -58 +58 @@
            ((= index length)
             (shrink-vector sequence jndex))
-           (setf (aref sequence jndex) (aref sequence index))))
-        (setf (aref sequence jndex) (aref sequence index))
+           (%vset sequence jndex (aref sequence index))))
+        (%vset sequence jndex (aref sequence index))
         (if (= index (car losers))
             (pop losers)