Changeset 2714


Ignore:
Timestamp:
07/02/03 16:44:45 (18 years ago)
Author:
piso
Message:

FIXNUMP => SYS:FIXNUMP

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

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/delete.lisp

    r2575 r2714  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: delete.lisp,v 1.3 2003-06-24 18:32:16 piso Exp $
     4;;; $Id: delete.lisp,v 1.4 2003-07-02 16:43:55 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2424(defmacro real-count (count)
    2525  `(cond ((null ,count) most-positive-fixnum)
    26          ((fixnump ,count) (if (minusp ,count) 0 ,count))
     26         ((sys:fixnump ,count) (if (minusp ,count) 0 ,count))
    2727         ((integerp ,count) (if (minusp ,count) 0 most-positive-fixnum))
    2828         (t ,count)))
  • trunk/j/src/org/armedbear/lisp/mismatch.lisp

    r2271 r2714  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: mismatch.lisp,v 1.2 2003-06-10 18:57:28 piso Exp $
     4;;; $Id: mismatch.lisp,v 1.3 2003-07-02 16:42:04 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2929
    3030(defun the-end (x y)
    31   (cond ((fixnump x)
     31  (cond ((sys:fixnump x)
    3232   (unless (<= x (length y))
    3333     (bad-seq-limit x))
     
    3838
    3939(defun the-start (x)
    40   (cond ((fixnump x)
     40  (cond ((sys:fixnump x)
    4141   (unless (>= x 0)
    4242           (bad-seq-limit x))
  • trunk/j/src/org/armedbear/lisp/nsubstitute.lisp

    r2242 r2714  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: nsubstitute.lisp,v 1.2 2003-06-10 15:23:03 piso Exp $
     4;;; $Id: nsubstitute.lisp,v 1.3 2003-07-02 16:44:45 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2727(defmacro real-count (count)
    2828  `(cond ((null ,count) most-positive-fixnum)
    29          ((fixnump ,count) (if (minusp ,count) 0 ,count))
     29         ((sys:fixnump ,count) (if (minusp ,count) 0 ,count))
    3030         ((integerp ,count) (if (minusp ,count) 0 most-positive-fixnum))
    3131         (t ,count)))
  • trunk/j/src/org/armedbear/lisp/remove.lisp

    r2243 r2714  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: remove.lisp,v 1.1 2003-06-10 15:26:57 piso Exp $
     4;;; $Id: remove.lisp,v 1.2 2003-07-02 16:44:14 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2020(in-package "COMMON-LISP")
    2121
    22 (export '(remove remove-if remove-if-not))
    23 
    2422;;; From CMUCL.
    2523
    2624(defmacro real-count (count)
    2725  `(cond ((null ,count) most-positive-fixnum)
    28          ((fixnump ,count) (if (minusp ,count) 0 ,count))
     26         ((sys:fixnump ,count) (if (minusp ,count) 0 ,count))
    2927         ((integerp ,count) (if (minusp ,count) 0 most-positive-fixnum))
    3028         (t ,count)))
  • trunk/j/src/org/armedbear/lisp/replace.lisp

    r2270 r2714  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: replace.lisp,v 1.1 2003-06-10 18:56:36 piso Exp $
     4;;; $Id: replace.lisp,v 1.2 2003-07-02 16:42:23 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2828
    2929(defun the-end (x y)
    30   (cond ((fixnump x)
     30  (cond ((sys:fixnump x)
    3131   (unless (<= x (length y))
    3232     (bad-seq-limit x))
     
    3737
    3838(defun the-start (x)
    39   (cond ((fixnump x)
     39  (cond ((sys:fixnump x)
    4040   (unless (>= x 0)
    4141           (bad-seq-limit x))
  • trunk/j/src/org/armedbear/lisp/substitute.lisp

    r2242 r2714  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: substitute.lisp,v 1.2 2003-06-10 15:23:51 piso Exp $
     4;;; $Id: substitute.lisp,v 1.3 2003-07-02 16:44:29 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2727(defmacro real-count (count)
    2828  `(cond ((null ,count) most-positive-fixnum)
    29          ((fixnump ,count) (if (minusp ,count) 0 ,count))
     29         ((sys:fixnump ,count) (if (minusp ,count) 0 ,count))
    3030         ((integerp ,count) (if (minusp ,count) 0 most-positive-fixnum))
    3131         (t ,count)))
Note: See TracChangeset for help on using the changeset viewer.