Path: utzoo!attcan!uunet!lll-winken!lll-tis!helios.ee.lbl.gov!pasteur!ucbvax!ucsfcgl!yee
From: yee@cgl.ucsf.edu (dave yee)
Newsgroups: comp.lang.lisp
Subject: Kyoto Common LISP bug (SORT function)
Keywords: bugs, bugs, bugs
Message-ID: <10988@cgl.ucsf.EDU>
Date: 10 Jun 88 18:31:54 GMT
Organization: UCSF Computer Graphics Lab
Lines: 32


I think i've found a bug in KCL (Kyoto Common LISP).  I'd like to know if
(1) anyone has also seen/experienced this bug and
(2) if there is a fix.  Should a fix exist, could you direct me to it?

We are running KCL on a SUN 3/280

The problem is with sort and stable-sort.  Suppose
i have a structure of the following form:

     (defstruct box
	(item-code nil)
     )

now, given a list of boxes, i would like to sort them by item-code number.
for example,

     (setq sorted-boxes (sort unsorted-boxes #'< :key'box-item-code))

well, the function returns the correct value, BUT the original
list is not sorted, furthermore *elements of the list are missing*!!!

Now, i'm still a beginner, but if this is a feature of KCL i would
appreciate an explanation as to why.  Oh, and i should add that i've
tested this using SUN Common LISP and the problem does *not* exist.

Any suggestions?

-- 
-dave: 
      ARPA:   yee@cgl.ucsf.edu         "Language is a 
           UUCP:   ucbvax!ucsfcgl!yee          Virus from
                Bitnet: yee@ucsfcgl.BITNET          Outer Space"