Custom Query (1030 matches)

Welcome to Clozure Common Lisp Version 1.1-r7809 (DarwinPPC32)!

? (let ((x '(1 2 3)))

(sort x #'<) x)

(1 2 3) ? (let ((x '(1 3 2)))

(sort x #'<) x)

(1 2 3) ? (let ((x '(2 1 3)))

(sort x #'<) x)

(2 3) ? (let ((x '(2 3 1)))

(sort x #'<) x)

(2 3) ? (let ((x '(3 1 2)))

(sort x #'<) x)

(3) ? (let ((x '(3 2 1)))

(sort x #'<) x)

(3)

I know that 'sort' is a "destructive" operation, but I think this goes too far.

Note that the problem does not arise when the argument is a vector rather than a list:

? (let ((x '#(3 2 1)))

(sort x #'<) x)

#(1 2 3)

Also, 'stable-sort' exhibits the same behavior.

It should.

(See also ticket:87)

Even though arrays/vectors with element-type FIXNUM have existed in OpenMCL for over a year, neither COMPILE-FILE nor the fasl loader have any support for dumping/loading them when they appear as constants. The big ETYPECASE in FASL-DUMP-DISPATCH misses them and falls into a clause which tries to dump them as GVECTORs; whether that "works" or not depends on how the bits in the vector are (mis)interpreted as tagged objects, as in the example below.

(defconstant *matrix*
  (let ((matrix (make-array '(80) :element-type 'fixnum)))
    (dotimes (i 80 matrix)
      (setf (aref matrix i) (random 1000)))))

 (defun problem81 ()
  (let ((j 50))
    ;;(aref *matrix* 50) ; no problem
    (aref *matrix* j)   ; bad
    ))