fork download
copy 
  1. (with-open-file (stream *load-pathname*)
  2.   (format t "~A: ~A~%"
  3.           (truename *load-pathname*)
  4.           (file-length stream)))
  5.  
Success #stdin #stdout 0s 25284KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
/home/UyVlt0/prog.fasl: 1812
https://ideone.com/idfFJM
language:
Common Lisp (sbcl 1.4.16)
created:
5 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!