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))