projects
/
wolf
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add exception for strings
[wolf]
/
resources
/
good.lisp
diff --git
a/resources/good.lisp
b/resources/good.lisp
index adb5e3797718e50a07ec79a6c1d168429c14583f..10a6091be89ee51e56da7cd6edc3e4fcd263d4e1 100644
(file)
--- a/
resources/good.lisp
+++ b/
resources/good.lisp
@@
-3,12
+3,19
@@
(defun small-guy (a b) (+ a b))
(defun small-guy-2 (a b) (+ a b))
(defun small-guy (a b) (+ a b))
(defun small-guy-2 (a b) (+ a b))
+; This comment is awesome
(defun hello-world (a b c)
(progn
(let
(defun hello-world (a b c)
(progn
(let
- ((x y)
- (z 9))
+ ((x y)
; Ok, this comment is also great
+ (z 9))
; so is this one!
(with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
(when
(read-line str)
(with-open-file (str "increasinglylongfilenamesfailme.dat" :direction :input :if-does-not-exist :create)
(when
(read-line str)
- (format t "This file had some things in int, yay!~%")))))
+ (format t "This file had some things in int, yay!~%"))))))
+
+(defvar *x* "hello world
+ this is a multiline string
+ with \" some escaped things
+ and some (_) and whatnot
+ ")