[ < ] | [ > ] | [ << ] | [ Up ] | [ >> ] | [Top] | [Contents] | [Index] | [ ? ] |
(loop with (foo . bar) = '(a b c) ...) |
(loop for x in l as i fixnum = (car x) and j fixnum = (cadr x) and k fixnum = (cddr x) ...) |
(loop for (i j . k) (fixnum fixnum . fixnum) in l ...) |
(loop for (i j . k) fixnum in l ...) |
(loop with (a b c) and (i j k) fixnum ...) |
(defun map-over-properties (fn symbol) (loop for (propname propval) on (plist symbol) by 'cddr do (funcall fn symbol propname propval))) |
[ << ] | [ >> ] | [Top] | [Contents] | [Index] | [ ? ] |