Custom Query (1030 matches)

When using user-defined format functions and ~:*, CCL fails to interpret the format string correctly:

(defun cl-user::x (stream value a b)
  (declare (ignore a b))
  (format stream "[~A]" value))

(defun x ()
  (format nil "~/X/~:*~/X/" 1))

yields, while compiling:

;   In X: Target position for ~* out of bounds in format string:
;   "~:*~/X/~%"
;      ^

and generates a runtime error.

Hi,

a user of Hunchentoot has reported problems with Clozure CL and MD5, and I was able to track this down to a problem in CCL (tested with 1.8 on Linux):

Welcome to Clozure Common Lisp Version 1.8-r15286M  (LinuxX8632)!
? (defun foo ()
  (let ((block (make-array 16)))
    (loop for index of-type (integer 0 16) from 0 below 16
          do (print index)
             (setf (aref block index) #x00000000))))
FOO
? (foo)

0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
> Error: Array index 16 out of bounds for #<SIMPLE-VECTOR 16> .
> While executing: FOO, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.

If the type declaration in the loop is omitted, the problem does not occur.

(defun f () (setf (symbol-function 'f) (lambda () 1)) (f))

Such a function will cause an infinite loop when it is call at first time but when interupting and calling (f) again, it has been modified to (lambda () 1) I have tried several CL implementation and they all behave correctly, they return 1 and do not cause an infinite loop.