Changeset 4255

Timestamp:

10/08/03 17:48:47 (19 years ago)

Author:

piso

Message:

MUMBLE-REMOVE-MACRO: use %VSET.

File:

• trunk/j/src/org/armedbear/lisp/remove.lisp (modified) (4 diffs)

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

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: remove.lisp,v 1.4 2003-07-02 18:24:27 piso Exp $
+;;; $Id: remove.lisp,v 1.5 2003-10-08 17:48:47 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -20 +20 @@
 (in-package "SYSTEM")
 
+(resolve 'delete) ; MUMBLE-DELETE-FROM-END
+
 ;;; From CMUCL.
 
@@ -34 +36 @@
               (result (make-sequence-like sequence length)))
            ((= index ,begin) result)
-           (setf (aref result index) (aref sequence index))))
+           (%vset result index (aref sequence index))))
         (new-index ,begin)
         (number-zapped 0)
@@ -42 +44 @@
            (new-index new-index (,bump new-index)))
         ((= index ,right) (shrink-vector result new-index))
-        (setf (aref result new-index) (aref sequence index))))
+        (%vset result new-index (aref sequence index))))
      (setq this-element (aref sequence index))
      (cond (,pred (setq number-zapped (1+ number-zapped)))
-           (t (setf (aref result new-index) this-element)
+           (t (%vset result new-index this-element)
               (setq new-index (,bump new-index))))))