Changeset View
Changeset View
Standalone View
Standalone View
swh/web/tests/resources/contents/code/extensions/test.lisp
- This file was added.
#!/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)) | |||||
) | |||||
No newline at end of file |