Changeset 14781 for trunk/tests


Ignore:
Timestamp:
May 3, 2011, 5:42:34 PM (8 years ago)
Author:
rme
Message:

Simple test for _SPaset3.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r14704 r14781  
    17971797  :win)
    17981798
     1799(deftest ccl.aset3
     1800  (let ((m (make-array '(3 4 5) :initial-element 0)))
     1801    (setf (aref m 2 3 4) 111)
     1802    (eql 111 (aref m 2 3 4)))
     1803  t)
Note: See TracChangeset for help on using the changeset viewer.