Custom Query (1030 matches)

Dear CCL developers,

can you upgrade ASDF to 3.1.5 ? In addition to many minor features and bug fixes, it should be a notable improvement for Windows users.

Alternatively, if you agree to it, I'll like to write and offer a patch for CCL to provide UIOP separately from ASDF, as do MKCL and SBCL, so you may (require "uiop") without loading the rest of ASDF.

(format nil "~_{2f" 0.1) should return "10.0", but we get "0.1".}

(format nil "~,,2f" 0.1)  --> "0.1"         ; bad
(format nil "~8,,2f" 0.1) --> "    10.0"    ; ok
(format nil "~,8,2f" 0.1) --> "10.00000000" ; ok

In write-perverted-string in l1-io.lisp, there's a bug in computing the length of outbuf (assuming the code in its body does what it should do), when escape is not nil:

(block bug
  (let ((string  (string '|\\; \".1|)))
    (handler-bind
        ((error (lambda (err) (princ err) (terpri) (return-from bug))))
      (ccl::write-perverted-string string *standard-output* (length string)
                                   :downcase #\")
      (values))))
"\\; \".1"
; No value


(block bug
  (let ((string  (string '|\\; \".1|)))
    (handler-bind
        ((error (lambda (err) (princ err) (terpri) (return-from bug))))
      (ccl::write-perverted-string string *standard-output* (length string)
                                   :downcase nil)
      (values))))
Array index 6 out of bounds for "\\\\; \"." .
nil

Using the following formula should correct it:

         (outbuf (make-string (+ end
                                 (if escape 2 0)
                                 (count-if (lambda (c)
                                             (or (eql c escape)
                                                 (eql c #\\)))
                                           string :end end))))

Note: it might be a good idea to rename the parameter escape to quote.