[elephant-cvs] CVS elephant/src/memutil

[ieslick]

Update of /project/elephant/cvsroot/elephant/src/memutil
In directory clnet:/tmp/cvs-serv14802/src/memutil

Modified Files:
	memutil.lisp 
Log Message:
Berkeley DB Backend upgrade & compact API fn, bug fixes

--- /project/elephant/cvsroot/elephant/src/memutil/memutil.lisp	2006/07/03 00:36:37	1.8
+++ /project/elephant/cvsroot/elephant/src/memutil/memutil.lisp	2006/09/04 00:09:16	1.9
@@ -321,11 +321,12 @@
   "Return the number of bytes of the internal representation
 of a string."
   #+(and allegro ics)
-  ;; old: `(let ((l (length ,s))) (+ l l))
+  ;; old: 
+  ;; `(let ((l (length ,s))) (+ l l))
   `(etypecase ,s
-     (base-string ;; (excl:native-string-sizeof ,s :external-format :unicode))
-		  (length ,s)) ;; fast 0.6.1  
+     (base-string (length ,s)) ;; fast 0.6.1 
      (string (excl:native-string-sizeof ,s :external-format :unicode)))
+  ;; (excl:native-string-sizeof ,s :external-format :unicode))
   #+(or (and sbcl sb-unicode) lispworks)
   `(etypecase ,s 
     (base-string (length ,s))