Changeset 5915


Ignore:
Timestamp:
02/24/04 01:46:56 (17 years ago)
Author:
piso
Message:

MAKE-SEQUENCE-OF-TYPE: support SIMPLE-VECTOR.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/sequences.lisp

    r5798 r5915  
    22;;;
    33;;; Copyright (C) 2003-2004 Peter Graves
    4 ;;; $Id: sequences.lisp,v 1.57 2004-02-13 00:27:12 piso Exp $
     4;;; $Id: sequences.lisp,v 1.58 2004-02-24 01:46:56 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2525(defun make-sequence-of-type (type length)
    2626  (case (type-specifier-atom type)
    27     (list (make-list length))
     27    (list
     28     (make-list length))
    2829    ((bit-vector simple-bit-vector)
    2930     (make-array length :element-type 'bit))
    3031    ((simple-string string)
    3132     (make-string length))
    32     (vector (make-array length))
    33     (nil-vector (make-array length :element-type nil))
     33    ((simple-vector vector)
     34     (make-array length))
     35    (nil-vector
     36     (make-array length :element-type nil))
    3437    (t
    3538     (error 'type-error))))
Note: See TracChangeset for help on using the changeset viewer.