Changeset 9147


Ignore:
Timestamp:
Apr 13, 2008, 4:34:42 AM (11 years ago)
Author:
rme
Message:

Change occurrences of MOST-POSITIVE-FIXNUM to
TARGET::TARGET-MOST-POSITIVE-FIXNUM.

When compiling for a 32-bit target on a 64-bit host, we don't want the 64-bit
MOST-POSITIVE-FIXNUM getting in there and causing trouble.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/lib/sequences.lisp

    r6555 r9147  
    542542(defun some-xx-multi (caller at-end predicate first-seq sequences)
    543543  (let* ((sequences (cons first-seq sequences))
    544          (min-vector-length most-positive-fixnum)
     544         (min-vector-length target::target-most-positive-fixnum)
    545545         (arg-slice (make-list (list-length sequences)))
    546546         (cur-slice arg-slice)
     
    904904(defun check-count (c)
    905905  (if c
    906     (min (max (require-type c 'integer) 0) most-positive-fixnum)
    907     most-positive-fixnum))
     906    (min (max (require-type c 'integer) 0) target::target-most-positive-fixnum)
     907    target::target-most-positive-fixnum))
    908908
    909909;;; Delete:
     
    911911(defun list-delete-1 (item list from-end test test-not start end count key
    912912                           &aux (temp list)  revp)
    913   (unless end (setq end most-positive-fixnum))
     913  (unless end (setq end target::target-most-positive-fixnum))
    914914  (when (and from-end count)
    915915    (let ((len (length temp)))
     
    933933(defun list-delete-very-simple (item list start end count)
    934934  (unless start (setq start 0))
    935   (unless end (setq end most-positive-fixnum))
     935  (unless end (setq end target::target-most-positive-fixnum))
    936936  (setq count (check-count count))
    937937  (do* ((handle (cons nil list))
     
    952952(defun list-delete-moderately-complex (item list start end count test test-not key)
    953953  (unless start (setq start 0))
    954   (unless end (setq end most-positive-fixnum))
     954  (unless end (setq end target::target-most-positive-fixnum))
    955955  (setq count (check-count count))
    956956  (do* ((handle (cons nil list))
     
    972972                         end count key
    973973                         &aux (temp list)  revp)
    974   (unless end (setq end most-positive-fixnum))
     974  (unless end (setq end target::target-most-positive-fixnum))
    975975  (when (and from-end count)
    976976    (let ((len (length temp)))
     
    14741474(defun nsubstitute (new old sequence &key from-end (test #'eql) test-not
    14751475                        end
    1476                         (count most-positive-fixnum) (key #'identity) (start 0))
     1476                        (count target::target-most-positive-fixnum) (key #'identity) (start 0))
    14771477  "Return a sequence of the same kind as SEQUENCE with the same elements
    14781478  except that all elements equal to OLD are replaced with NEW. The SEQUENCE
     
    15271527(defun nsubstitute-if (new test sequence &key from-end (start 0)
    15281528                           end 
    1529                            (count most-positive-fixnum) (key #'identity))
     1529                           (count target::target-most-positive-fixnum) (key #'identity))
    15301530  "Return a sequence of the same kind as SEQUENCE with the same elements
    15311531   except that all elements satisfying the PRED are replaced with NEW.
     
    15431543
    15441544(defun nsubstitute-if-not (new test sequence &key from-end (start 0)
    1545                                end (count most-positive-fixnum) (key #'identity))
     1545                               end (count target::target-most-positive-fixnum) (key #'identity))
    15461546  "Return a sequence of the same kind as SEQUENCE with the same elements
    15471547   except that all elements not satisfying the TEST are replaced with NEW.
Note: See TracChangeset for help on using the changeset viewer.