Changeset 4251

Timestamp:

10/08/03 13:52:22 (19 years ago)

Author:

piso

Message:

Refactoring.

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.2 2003-07-02 17:55:16 piso Exp $
+;;; $Id: copy-seq.lisp,v 1.3 2003-10-08 13:52:22 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -39 +39 @@
             result)))))
 
-(defun list-copy-seq* (sequence)
-  (list-copy-seq sequence))
-
-(defun vector-copy-seq* (sequence)
-  (vector-copy-seq sequence (type-of sequence)))
-
 (defun copy-seq (sequence)
   (if (listp sequence)
-      (list-copy-seq* sequence)
-      (vector-copy-seq* sequence)))
+      (list-copy-seq sequence)
+      (vector-copy-seq sequence (type-of sequence))))