corrade-nucleus-nucleons
| /script-kiddie/002_script_kiddie/script-kiddie/node_modules/ace-builds/demo/kitchen-sink/docs/lisp.lisp |
|---|
| @@ -0,0 +1,22 @@ |
| (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 |
| ) 0xFFLL -23ull |
| ;; 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)) |
| ) LAmbDa |
| "asdad\0eqweqe" |