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

   1 (in-package #:nothing)
   2
   3 (defun small-guy (a b) (+ a b))
   4 (defun small-guy-2 (a b) (+ a b))
   5
   6 ; This comment is awesome
   7 (defun hello-world (a b c)
   8  (progn
   9   (let
  10    ((x y)                            ; Ok, this comment is also great
  11     (z 9))                           ; so is this one!
  12    (with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
  13     (when
  14      (read-line str)
  15      (format t "This file had some things in int, yay!~%"))))))
  16
  17 (defvar *x* "hello world
  18  this is a multiline string
  19  with \" some escaped things
  20  and some (_) and whatnot
  21  ")