diff options
Diffstat (limited to 'test/syntax/code/lisp')
-rw-r--r-- | test/syntax/code/lisp | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/test/syntax/code/lisp b/test/syntax/code/lisp new file mode 100644 index 00000000..2b622087 --- /dev/null +++ b/test/syntax/code/lisp @@ -0,0 +1,22 @@ +#!/usr/bin/env csi + +(defun prompt-for-cd () + "Prompts + for CD" + (prompt-read "Title" 1.53 1 2/4 1.7 1.7e0 2.9E-4 +42 -7 #b001 #b001/100 #o777 #O777 #xabc55 #c(0 -5.6)) + (prompt-read "Artist" &rest) + (or (parse-integer (prompt-read "Rating") :junk-allowed t) 0) + (if x (format t "yes") (format t "no" nil) ;and here comment + ) + ;; second line comment + '(+ 1 2) + (defvar *lines*) ; list of all lines + (position-if-not #'sys::whitespacep line :start beg)) + (quote (privet 1 2 3)) + '(hello world) + (* 5 7) + (1 2 34 5) + (:use "aaaa") + (let ((x 10) (y 20)) + (print (+ x y)) + ) |