Ignore:
Timestamp:
03/03/10 21:05:41 (11 years ago)
Author:
astalla
Message:

Support for user-extensible sequences, adapted from SBCL.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/copy-seq.lisp

    r11391 r12516  
    3030;;; exception statement from your version.
    3131
     32(require "EXTENSIBLE-SEQUENCES-BASE")
     33
    3234(in-package "SYSTEM")
    3335
     
    5254
    5355(defun copy-seq (sequence)
    54   (if (listp sequence)
    55       (list-copy-seq sequence)
    56       (vector-copy-seq sequence (type-of sequence))))
     56  "Return a copy of SEQUENCE which is EQUAL to SEQUENCE but not EQ."
     57  (sequence::seq-dispatch sequence
     58    (list-copy-seq sequence)
     59    (vector-copy-seq sequence (type-of sequence))
     60    (sequence:copy-seq sequence)))
Note: See TracChangeset for help on using the changeset viewer.