+
+
+(defmacro when-bind ((var expr) &body body)
+ `(let ((,var ,expr))
+ (when ,var
+ ,@body)))
+
+
+(defmacro assoc-ref (key alist &key (test #'eq))
+ `(cdr (assoc ,key ,alist :test ,test)))
+
+
+(defmacro assoc-lref (key alist &key (test #'eq))
+ `(cadr (assoc ,key ,alist :test ,test)))
+
+
+(defun assoc-rem (key alist &key (test #'eq))
+ (remove-if #'(lambda (element) (funcall test key (car element))) alist))
+
+
+(defun assoc-delete (key alist &key (test #'eq))
+ (delete-if #'(lambda (element) (funcall test key (car element))) alist))