Ignore:
Timestamp:
08/01/05 12:44:54 (16 years ago)
Author:
piso
Message:

COERCE-LIST-TO-VECTOR: (declare (type index i))

File:
1 edited

Legend:

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

    r8784 r9758  
    22;;;
    33;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: coerce.lisp,v 1.7 2005-03-17 14:59:03 piso Exp $
     4;;; $Id: coerce.lisp,v 1.8 2005-08-01 12:44:54 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2424         (result (make-sequence result-type length)))
    2525    (dotimes (i length)
     26      (declare (type index i))
    2627      (setf (aref result i) (pop list)))
    2728    result))
Note: See TracChangeset for help on using the changeset viewer.