cohost

Unofficial Common Lisp client library for Cohost
git clone https://todayiwilllaunchmyinfantsonintoorbit.com/cohost.git
Log | Files | Refs | LICENSE

file.lisp (201B)

      1 (in-package #:cohost.file)
      2 
      3 (defun filesize (pathname)
      4   (with-open-file (s pathname
      5                      :direction :input
      6                      :element-type '(unsigned-byte 8))
      7     (file-length s)))