small changes to utils
Sun Jun 22 11:23:38 PDT 2008 Ryszard Szopa <ryszard.szopa@gmail.com>
* small changes to utils
diff -rN -u old-cl-couch/client/utils.lisp new-cl-couch/client/utils.lisp
--- old-cl-couch/client/utils.lisp 2014-07-23 07:00:06.000000000 -0700
+++ new-cl-couch/client/utils.lisp 2014-07-23 07:00:06.000000000 -0700
@@ -32,7 +32,7 @@
(defmethod (setf aget) (value key (alist list))
(if (null (assoc key alist))
(progn
- (rplacd alist (cons (car alist) (cdr alist)))
+ (rplacd alist (copy-alist alist))
(rplaca alist (cons key value))
value)
(cdr (rplacd (assoc key alist) value))))
@@ -67,6 +67,8 @@
x
(list x)))
+(proclaim '(inline ensure-list))
+
;;; The following functions have been stolen from Nick Allen's utils
(defmacro .do-array ((var array &optional return) &body body)