mirror of
https://github.com/filebrowser/filebrowser.git
synced 2025-05-09 11:42:57 +00:00
0afb9e732c
Former-commit-id: bdede6ed1b6f578f2ef046c338caf02d0b29d453 [formerly 7187de361b53e9c8ec121df379b762f2db736ea2] Former-commit-id: 447d58460fbbfd05ffe08428a1288e392637561d
22 lines
632 B
Common Lisp
22 lines
632 B
Common Lisp
(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" |