Custom Query (1030 matches)

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.

Virgin new trunk by: svn co ​http://svn.clozure.com/publicsvn/openmcl/trunk/darwinx86/ccl downloads revision 16504.

Running ./dx86cl64 --no-init brings up Clozure Common Lisp Version 1.10-dev-r16089M-trunk (DarwinX8664)

(rebuild-ccl :full t :force T) crashes at Building lisp-kernel

transcript attached

I believe there is a typo in the (define-character-encoding :utf-32 ...) form in l1-unicode.lisp. Within it you find:

  :stream-encode-function
  #+ucs-4-stream-encode   <=== should be #' not #+
  :stream-decode-function
  #'ucs-4-stream-decode
  :vector-encode-function

I suspect there aren't many files in utf-32 format.