Changeset 2730
- Timestamp:
- 07/02/03 18:43:25 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/nsubstitute.lisp
r2723 r2730 2 2 ;;; 3 3 ;;; Copyright (C) 2003 Peter Graves 4 ;;; $Id: nsubstitute.lisp,v 1. 4 2003-07-02 17:59:03piso Exp $4 ;;; $Id: nsubstitute.lisp,v 1.5 2003-07-02 18:43:25 piso Exp $ 5 5 ;;; 6 6 ;;; This program is free software; you can redistribute it and/or … … 19 19 ;;; NSUBSTITUTE (from CMUCL) 20 20 21 (in-package " COMMON-LISP")21 (in-package "SYSTEM") 22 22 23 23 ;;; From CMUCL. … … 25 25 (defmacro real-count (count) 26 26 `(cond ((null ,count) most-positive-fixnum) 27 (( sys:fixnump ,count) (if (minusp ,count) 0 ,count))27 ((fixnump ,count) (if (minusp ,count) 0 ,count)) 28 28 ((integerp ,count) (if (minusp ,count) 0 most-positive-fixnum)) 29 29 (t ,count))) … … 34 34 ((or (= index end) (null list) (= count 0)) sequence) 35 35 (when (if test-not 36 (not (funcall test-not old ( sys::apply-key key (car list))))37 (funcall test old ( sys::apply-key key (car list))))36 (not (funcall test-not old (apply-key key (car list)))) 37 (funcall test old (apply-key key (car list)))) 38 38 (rplaca list new) 39 39 (setq count (1- count))))) … … 44 44 ((or (= index end) (= count 0)) sequence) 45 45 (when (if test-not 46 (not (funcall test-not old ( sys::apply-key key (aref sequence index))))47 (funcall test old ( sys::apply-key key (aref sequence index))))46 (not (funcall test-not old (apply-key key (aref sequence index)))) 47 (funcall test old (apply-key key (aref sequence index)))) 48 48 (setf (aref sequence index) new) 49 49 (setq count (1- count))))) … … 72 72 (index start (1+ index))) 73 73 ((or (= index end) (null list) (= count 0)) sequence) 74 (when (funcall test ( sys::apply-key key (car list)))74 (when (funcall test (apply-key key (car list))) 75 75 (rplaca list new) 76 76 (setq count (1- count))))) … … 80 80 (do ((index start (+ index incrementer))) 81 81 ((or (= index end) (= count 0)) sequence) 82 (when (funcall test ( sys::apply-key key (aref sequence index)))82 (when (funcall test (apply-key key (aref sequence index))) 83 83 (setf (aref sequence index) new) 84 84 (setq count (1- count))))) … … 106 106 (index start (1+ index))) 107 107 ((or (= index end) (null list) (= count 0)) sequence) 108 (when (not (funcall test ( sys::apply-key key (car list))))108 (when (not (funcall test (apply-key key (car list)))) 109 109 (rplaca list new) 110 110 (setq count (1- count))))) … … 114 114 (do ((index start (+ index incrementer))) 115 115 ((or (= index end) (= count 0)) sequence) 116 (when (not (funcall test ( sys::apply-key key (aref sequence index))))116 (when (not (funcall test (apply-key key (aref sequence index)))) 117 117 (setf (aref sequence index) new) 118 118 (setq count (1- count)))))
Note: See TracChangeset
for help on using the changeset viewer.