Changeset 3517


Ignore:
Timestamp:
08/25/03 18:22:58 (18 years ago)
Author:
piso
Message:

Got rid of exports from SYSTEM package.

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

Legend:

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

    r3510 r3517  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.352 2003-08-25 17:56:59 piso Exp $
     5 * $Id: Primitives.java,v 1.353 2003-08-25 18:20:21 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    571571    // ### fixnump
    572572    private static final Primitive1 FIXNUMP =
    573         new Primitive1("fixnump", PACKAGE_SYS, true) {
     573        new Primitive1("fixnump", PACKAGE_SYS, false) {
    574574        public LispObject execute(LispObject arg) throws LispError
    575575        {
     
    11221122    // %setnth n list new-object => new-object
    11231123    private static final Primitive3 _SETNTH =
    1124         new Primitive3("%setnth", PACKAGE_SYS, true) {
     1124        new Primitive3("%setnth", PACKAGE_SYS, false) {
    11251125        public LispObject execute(LispObject first, LispObject second,
    11261126            LispObject third) throws LispError
     
    41494149    // shrink-vector vector new-size => vector
    41504150    private static final Primitive2 SHRINK_VECTOR =
    4151         new Primitive2("shrink-vector", PACKAGE_SYS, true) {
     4151        new Primitive2("shrink-vector", PACKAGE_SYS, false) {
    41524152        public LispObject execute(LispObject first, LispObject second)
    41534153            throws LispError
     
    41594159
    41604160    private static final Primitive3 VECTOR_SUBSEQ =
    4161         new Primitive3("vector-subseq", PACKAGE_SYS, true) {
     4161        new Primitive3("vector-subseq", PACKAGE_SYS, false) {
    41624162        public LispObject execute(LispObject vector, LispObject start,
    41634163            LispObject end) throws LispError
     
    46464646    };
    46474647
    4648     // ### %compare-elements
    4649     // %compare-elements test key elt1 elt2
    4650     private static final Primitive _COMPARE_ELEMENTS =
    4651         new Primitive("%compare-elements", PACKAGE_SYS, true) {
    4652         public LispObject execute(LispObject args[]) throws Condition
    4653         {
    4654             if (args[1] == NIL) {
    4655                 // No key function.
    4656                 return funcall2(args[0], args[2], args[3],
    4657                                 LispThread.currentThread());
    4658             }
    4659             LispObject key = args[1];
    4660             final LispThread thread = LispThread.currentThread();
    4661             return funcall2(args[0],
    4662                             funcall1(key, args[2], thread),
    4663                             funcall1(key, args[3], thread),
    4664                             thread);
    4665         }
    4666     };
    4667 
    46684648    // ### coerce-to-function
    46694649    private static final Primitive1 COERCE_TO_FUNCTION =
  • trunk/j/src/org/armedbear/lisp/delete-duplicates.lisp

    r2729 r3517  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: delete-duplicates.lisp,v 1.4 2003-07-02 18:32:30 piso Exp $
     4;;; $Id: delete-duplicates.lisp,v 1.5 2003-08-25 18:22:58 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    5959          (jndex jndex (1+ jndex)))
    6060       ((= index length)
    61         (sys:shrink-vector vector jndex)
     61        (shrink-vector vector jndex)
    6262        vector)
    6363       (setf (aref vector jndex) (aref vector index))))
  • trunk/j/src/org/armedbear/lisp/mismatch.lisp

    r2714 r3517  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: mismatch.lisp,v 1.3 2003-07-02 16:42:04 piso Exp $
     4;;; $Id: mismatch.lisp,v 1.4 2003-08-25 18:22:58 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2929
    3030(defun the-end (x y)
    31   (cond ((sys: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 ((sys:fixnump x)
     40  (cond ((sys::fixnump x)
    4141   (unless (>= x 0)
    4242           (bad-seq-limit x))
  • trunk/j/src/org/armedbear/lisp/remove-duplicates.lisp

    r2727 r3517  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: remove-duplicates.lisp,v 1.3 2003-07-02 18:20:29 piso Exp $
     4;;; $Id: remove-duplicates.lisp,v 1.4 2003-08-25 18:22:58 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    8585      (setq index (1+ index))
    8686      (setq jndex (1+ jndex)))
    87     (sys:shrink-vector result jndex)))
     87    (sys::shrink-vector result jndex)))
    8888
    8989
  • trunk/j/src/org/armedbear/lisp/replace.lisp

    r2714 r3517  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: replace.lisp,v 1.2 2003-07-02 16:42:23 piso Exp $
     4;;; $Id: replace.lisp,v 1.3 2003-08-25 18:22:58 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2828
    2929(defun the-end (x y)
    30   (cond ((sys: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 ((sys:fixnump x)
     39  (cond ((sys::fixnump x)
    4040   (unless (>= x 0)
    4141           (bad-seq-limit x))
  • trunk/j/src/org/armedbear/lisp/search.lisp

    r3247 r3517  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: search.lisp,v 1.13 2003-08-06 23:08:20 piso Exp $
     4;;; $Id: search.lisp,v 1.14 2003-08-25 18:22:58 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2222;; From CMUCL.
    2323
    24 ;; (defmacro compare-elements (elt1 elt2)
    25 ;;   `(if test-not
    26 ;;        (if (%compare-elements test-not key ,elt1 ,elt2)
    27 ;;            (return nil)
    28 ;;            t)
    29 ;;        (if (%compare-elements test key ,elt1 ,elt2)
    30 ;;            t
    31 ;;            (return nil))))
    3224(defmacro compare-elements (elt1 elt2)
    3325  `(if test-not
  • trunk/j/src/org/armedbear/lisp/substitute.lisp

    r3242 r3517  
    22;;;
    33;;; Copyright (C) 2003 Peter Graves
    4 ;;; $Id: substitute.lisp,v 1.6 2003-08-06 19:17:17 piso Exp $
     4;;; $Id: substitute.lisp,v 1.7 2003-08-25 18:22:58 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          ((sys: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.