Changeset 3036

Show
Ignore:
Timestamp:
04/29/08 23:48:58 (7 months ago)
Author:
hans
Message:

add element-type keyword argument to FILE-CONTENTS

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/bknr/datastore/src/utils/utils.lisp

    r2786 r3036  
    515515 
    516516#-allegro 
    517 (defun file-contents (pathname) 
    518   (with-open-file (s pathname :element-type '(unsigned-byte 8)) 
     517(defun file-contents (pathname &key (element-type '(unsigned-byte 8))) 
     518  (with-open-file (s pathname :element-type element-type) 
    519519    (let ((result 
    520            (make-array (file-length s) :element-type '(unsigned-byte 8)))) 
     520           (make-array (file-length s) :element-type element-type))) 
    521521      (read-sequence result s) 
    522522      result)))