- (let* ((arg (ensure-list keyarg))
- (init-form (cadr arg))
- var
- keyword-name)
- (if (listp (car arg))
- (setq var (cadr (car arg))
- keyword-name (car (car arg)))
- (setq var (car arg)
- keyword-name (intern (symbol-name (car arg)) "KEYWORD")))
- `((,keyword-name ,var) ,init-form))))
- (mapcar #'canonalize (lambda-list-section '&key lambda-list))))
-
-(defun lambda-list-keyword-arguments (lambda-list)
+ (let ((arg (ensure-list keyarg)))
+ (cons (if (listp (car arg))
+ (car arg)
+ (list (intern (symbol-name (car arg)) "KEYWORD") (car arg)))
+ (cdr arg)))))
+ (mapcar #'canonicalize (ll-section '&key ll))))
+
+(defun ll-keyword-arguments (ll)