13 lines
258 B
Plaintext
13 lines
258 B
Plaintext
(print "Argument count:" (length *args*))
|
|
(print "Arguments as a list:" *args*)
|
|
|
|
(print "Iterated:")
|
|
(let
|
|
(index 0 current *args*)
|
|
(while current
|
|
(print index ":" (car current))
|
|
(setq index (+ index 1))
|
|
(setq current (cdr current))
|
|
)
|
|
)
|