code.consxy.com Git - wolf/blob - resources/unspacedforms.lisp

   1 (in-package #:nothing)
   2
   3 (defun small-guy (a b)
   4  (+ a b))
   5 (defun small-guy-2 (a b)
   6  (+ a b))
   7
   8 (defun hello-world (a b c)
   9  (progn
  10   (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  11    (when
  12     (read-line str)
  13     (format t "This file had some things in int, yay!~%")))))