Changeset 4254

Timestamp:

10/08/03 17:34:19 (19 years ago)

Author:

piso

Message:

VECTOR-COPY-SEQ: use %VSET.

File:

• trunk/j/src/org/armedbear/lisp/copy-seq.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/copy-seq.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: copy-seq.lisp,v 1.3 2003-10-08 13:52:22 piso Exp $
+;;; $Id: copy-seq.lisp,v 1.4 2003-10-08 17:34:19 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -27 +27 @@
     (copy (make-sequence-of-type ,type length)))
        ((= index length) copy)
-       (setf (aref copy index) (aref ,sequence index)))))
+       (%vset copy index (aref ,sequence index)))))
 
 (defmacro list-copy-seq (list)