Changeset 6078


Ignore:
Timestamp:
03/04/04 11:35:59 (17 years ago)
Author:
piso
Message:

LIST-REMOVE-DUPLICATES* => LIST-REMOVE-DUPLICATES
VECTOR-REMOVE-DUPLICATES* => VECTOR-REMOVE-DUPLICATES

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r3517 r6078  
    11;;; remove-duplicates.lisp
    22;;;
    3 ;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: remove-duplicates.lisp,v 1.4 2003-08-25 18:22:58 piso Exp $
     3;;; Copyright (C) 2003-2004 Peter Graves
     4;;; $Id: remove-duplicates.lisp,v 1.5 2004-03-04 11:35:34 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2222;;; From CMUCL.
    2323
    24 (defun list-remove-duplicates* (list test test-not start end key from-end)
     24(defun list-remove-duplicates (list test test-not start end key from-end)
    2525  (let* ((result (list ()))
    2626   (splice result)
     
    5858
    5959
    60 (defun vector-remove-duplicates* (vector test test-not start end key from-end
    61           &optional (length (length vector)))
     60(defun vector-remove-duplicates (vector test test-not start end key from-end
     61                                        &optional (length (length vector)))
    6262  (when (null end) (setf end (length vector)))
    6363  (let ((result (make-sequence-like vector length))
     
    9292  (if (listp sequence)
    9393      (if sequence
    94           (list-remove-duplicates* sequence test test-not
    95                                    start end key from-end))
    96       (vector-remove-duplicates* sequence test test-not
    97                                  start end key from-end)))
     94          (list-remove-duplicates sequence test test-not
     95                                  start end key from-end))
     96      (vector-remove-duplicates sequence test test-not
     97                                start end key from-end)))
  • trunk/j/src/org/armedbear/lisp/rt.lisp

    r6002 r6078  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: rt.lisp,v 1.152 2004-02-27 02:44:03 piso Exp $
     4;;; $Id: rt.lisp,v 1.153 2004-03-04 11:35:59 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    501501#+armedbear
    502502(when (and (fboundp 'jvm::jvm-compile) (not (autoloadp 'jvm::jvm-compile)))
    503   (mapcar #'jvm::jvm-compile '(sys::list-remove-duplicates*
    504                                sys::vector-remove-duplicates*
     503  (mapcar #'jvm::jvm-compile '(sys::list-remove-duplicates
     504                               sys::vector-remove-duplicates
    505505                               remove-duplicates
    506506                               union
Note: See TracChangeset for help on using the changeset viewer.