Changeset 3731

Timestamp:

09/13/03 18:48:02 (20 years ago)

Author:

piso

Message:

MY-AREF, MY-ROW-MAJOR-AREF

File:

• trunk/j/src/org/armedbear/lisp/rt.lisp (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/rt.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: rt.lisp,v 1.129 2003-09-13 17:35:27 piso Exp $
+;;; $Id: rt.lisp,v 1.130 2003-09-13 18:48:02 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -32 +32 @@
 (in-package :rt)
 
-(export '(deftest))
+(export '(deftest my-aref))
 
 (defvar *prefix* "/home/peter/gcl/ansi-tests/")
@@ -40 +40 @@
 (defvar *passed* 0)
 (defvar *failed* 0)
+
+(defun my-aref (a &rest args)
+  (apply #'aref a args))
+
+(defun my-row-major-aref (a index)
+  (row-major-aref a index))
 
 (defun equalp-with-case (x y)