[rucksack-devel] Re: rucksack-devel Digest, Vol 9, Issue 13

[Ken Tilton]

rucksack-devel-request at common-lisp.net wrote:

>Send rucksack-devel mailing list submissions to
>	rucksack-devel at common-lisp.net
>
>To subscribe or unsubscribe via the World Wide Web, visit
>	http://common-lisp.net/cgi-bin/mailman/listinfo/rucksack-devel
>or, via email, send a message with subject or body 'help' to
>	rucksack-devel-request at common-lisp.net
>
>You can reach the person managing the list at
>	rucksack-devel-owner at common-lisp.net
>
>When replying, please edit your Subject line so it is more specific
>than "Re: Contents of rucksack-devel digest..."
>
>
>Today's Topics:
>
>   1. Re: PATCH: b-tree binary search (Cyrus Harmon)
>   2. Export ( Levente M?sz?ros )
>   3. Some other things ( Levente M?sz?ros )
>
>
>----------------------------------------------------------------------
>
>Message: 1
>Date: Sun, 14 Jan 2007 15:15:55 -0800
>From: Cyrus Harmon <ch-rucksack at bobobeach.com>
>Subject: Re: [rucksack-devel] PATCH: b-tree binary search
>To: Arthur Lemmens <alemmens at xs4all.nl>
>Cc: Rucksack CL persistence library <rucksack-devel at common-lisp.net>
>Message-ID: <7DFDD717-8FE3-4035-A209-9470C6423774 at bobobeach.com>
>Content-Type: text/plain; charset=US-ASCII; delsp=yes; format=flowed
>
>
>On Jan 14, 2007, at 3:10 PM, Cyrus Harmon wrote:
>  
>
>>On Jan 14, 2007, at 3:02 PM, Arthur Lemmens wrote:
>>    
>>
>>>Cyrus Harmon wrote:
>>>
>>>
>>>      
>>>
>>>>+                     (if (not (funcall btree-key< (binding-key  
>>>>mid-binding) key))
>>>>+                         (binary-search start mid)
>>>>+                         (binary-search mid end))))))
>>>>        
>>>>
>>>Same here.
>>>      
>>>
>>ditto
>>    
>>
>
>hmm... should that be (binary-search (1+ mid) end) ?
>  
>
Not if it is traditionally Lispy:

(let ((s "abc123")
      (m 3))
  (list (subseq s 0 m)(subseq s m))) -> "abc123"

kt

-------------- next part --------------
A non-text attachment was scrubbed...
Name: kentilton.vcf
Type: text/x-vcard
Size: 171 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/rucksack-devel/attachments/20070115/0d2c21cd/attachment.vcf>