source: branches/ia32/level-0/X86/X8632/x8632-array.lisp @ 7332

Last change on this file since 7332 was 7332, checked in by rme, 13 years ago

New files

File size: 531 bytes
Line 
1(in-package "CCL")
2
3(eval-when (:compile-toplevel :execute)
4  (require "X8632-ARCH")
5  (require "X86-LAPMACROS"))
6
7;;; placeholders for future specialized versions
8
9(defun %aref2 (array i j)
10  (declare (notinline aref))            ;fend off compiler macro
11  (aref array i j))
12
13(defun %aref3 (array i j k)
14  (declare (notinline aref))
15  (aref array i j k))
16
17(defun %aset2 (array i j newval)
18  (declare (notinline aset))
19  (aset array i j newval))
20
21(defun %aset3 (array i j k newval)
22  (declare (notinline aset))
23  (aset array i j k newval))
24
Note: See TracBrowser for help on using the repository browser.