Changeset 4255
- Timestamp:
- 10/08/03 17:48:47 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/remove.lisp
r2728 r4255 2 2 ;;; 3 3 ;;; 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 $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 20 20 (in-package "SYSTEM") 21 21 22 (resolve 'delete) ; MUMBLE-DELETE-FROM-END 23 22 24 ;;; From CMUCL. 23 25 … … 34 36 (result (make-sequence-like sequence length))) 35 37 ((= index ,begin) result) 36 ( setf (aref result index)(aref sequence index))))38 (%vset result index (aref sequence index)))) 37 39 (new-index ,begin) 38 40 (number-zapped 0) … … 42 44 (new-index new-index (,bump new-index))) 43 45 ((= index ,right) (shrink-vector result new-index)) 44 ( setf (aref result new-index)(aref sequence index))))46 (%vset result new-index (aref sequence index)))) 45 47 (setq this-element (aref sequence index)) 46 48 (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) 48 50 (setq new-index (,bump new-index)))))) 49 51
Note: See TracChangeset
for help on using the changeset viewer.