Changeset 11854


Ignore:
Timestamp:
Mar 28, 2009, 2:05:59 AM (11 years ago)
Author:
gz
Message:

Add a couple loop tests

File:
1 edited

Legend:

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

    r11848 r11854  
    623623
    624624
    625 #+not-yet
    626625(deftest ccl.50130
    627626    ;; The compiler policy hack is just to have a predicatable way to catch the bug.
     
    813812      (error () :error))
    814813  :no-error)
     814
     815(deftest ccl.loop-array
     816    (let ((x nil))
     817      (declare (optimize (safety 3) (speed 1)))
     818      (setq x nil)
     819      (handler-case
     820          (loop for a across x collect a)
     821        (type-error () :error)))
     822  :error)
     823
     824(deftest ccl.loop-on
     825    (locally (declare (optimize (safety 3) (speed 1)))
     826      (loop for (head . tail) on '(a . b) when head collect tail))
     827  (b))
     828
    815829
    816830;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note: See TracChangeset for help on using the changeset viewer.