tests/vector.pure.lisp

   1 ;;;; This software is part of the SBCL system. See the README file for
   2 ;;;; more information.
   3 ;;;;
   4 ;;;; While most of SBCL is derived from the CMU CL system, the test
   5 ;;;; files (like this one) were written from scratch after the fork
   6 ;;;; from CMU CL.
   7 ;;;;
   8 ;;;; This software is in the public domain and is provided with
   9 ;;;; absolutely no warranty. See the COPYING and CREDITS files for
  10 ;;;; more information.
  11
  12 (cl:in-package :cl-user)
  13
  14 (funcall (lambda ()
  15            (let ((simple-t (make-array 35))
  16                  (simple-u32 (make-array 50
  17                                          :element-type '(unsigned-byte 32)))
  18                  (simple-character (make-string 44))
  19                  (complex-t (make-array 35 :fill-pointer 3))
  20                  (complex-u32 (make-array 88
  21                                           :element-type '(unsigned-byte 32)))
  22                  (complex-character (make-array 14
  23                                                 :element-type 'character
  24                                                 :fill-pointer t)))
  25              (assert (= (length simple-t) 35)))))