corrade-nucleus-nucleons – Blame information for rev 20
?pathlinks?
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 20 | office | 1 | (defun prompt-for-cd () |
| 2 | "Prompts |
||
| 3 | for CD" |
||
| 4 | (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)) |
||
| 5 | (prompt-read "Artist" &rest) |
||
| 6 | (or (parse-integer (prompt-read "Rating") :junk-allowed t) 0) |
||
| 7 | (if x (format t "yes") (format t "no" nil) ;and here comment |
||
| 8 | ) 0xFFLL -23ull |
||
| 9 | ;; second line comment |
||
| 10 | '(+ 1 2) |
||
| 11 | (defvar *lines*) ; list of all lines |
||
| 12 | (position-if-not #'sys::whitespacep line :start beg)) |
||
| 13 | (quote (privet 1 2 3)) |
||
| 14 | '(hello world) |
||
| 15 | (* 5 7) |
||
| 16 | (1 2 34 5) |
||
| 17 | (:use "aaaa") |
||
| 18 | (let ((x 10) (y 20)) |
||
| 19 | (print (+ x y)) |
||
| 20 | ) LAmbDa |
||
| 21 | |||
| 22 | "asdad\0eqweqe" |