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

MUMBLE-REMOVE-MACRO: use %VSET.

File:
1 edited

Legend:

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

    r2728 r4255  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: remove.lisp,v 1.4 2003-07-02 18:24:27 piso Exp $
     4;;; $Id: remove.lisp,v 1.5 2003-10-08 17:48:47 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2020(in-package "SYSTEM")
    2121
     22(resolve 'delete) ; MUMBLE-DELETE-FROM-END
     23
    2224;;; From CMUCL.
    2325
     
    3436              (result (make-sequence-like sequence length)))
    3537           ((= index ,begin) result)
    36            (setf (aref result index) (aref sequence index))))
     38           (%vset result index (aref sequence index))))
    3739        (new-index ,begin)
    3840        (number-zapped 0)
     
    4244           (new-index new-index (,bump new-index)))
    4345        ((= index ,right) (shrink-vector result new-index))
    44         (setf (aref result new-index) (aref sequence index))))
     46        (%vset result new-index (aref sequence index))))
    4547     (setq this-element (aref sequence index))
    4648     (cond (,pred (setq number-zapped (1+ number-zapped)))
    47            (t (setf (aref result new-index) this-element)
     49           (t (%vset result new-index this-element)
    4850              (setq new-index (,bump new-index))))))
    4951
Note: See TracChangeset for help on using the changeset viewer.