Custom Query (1030 matches)

;;; -*- coding: latin-1-unix -*-

causes Unknown character encoding: :LATIN-1. That's because it expects LATIN1, but I'd also say that it shouldn't throw an error even if it's not recognized, just a warning.

When escape is nil, there could still be #
in the string that are processed (duplicated) in the output. Therefore it might be good to count the #
in that case too:

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

without this patch, I get errors while printing foreign-library objects:

cl-user> (defvar *libobjc* (cffi:load-foreign-library "libobjc.so.4"))
*libobjc*
cl-user> (inspect *libobjc*)
[0]     #<foreign-library #<error printing symbol #x30200248220E> "libobjc\\.so.4">
[1]     Class: #<standard-class cffi:foreign-library>
[2]     Wrapper: #<ccl::class-wrapper cffi:foreign-library #x3020020D1A9D>
        Instance slots
[3]     cffi::name: #:LIBOBJC\\.SO.4-8904
[4]     type: :system
[5]     cffi::spec: ((t "libobjc.so.4"))
[6]     cffi::options: (:convention :cdecl)
[7]     cffi::handle: #<shlib libobjc.so.4 #x30200243817D>
[8]     pathname: #P"libobjc\\.so.4"
Inspect> 

{{{(let ((a 10))

(let ((b a)

(c (incf a)))

(format t "~A ~A ~A~%" a b c)))}}}

The following code should give 11 10 11, however openmcl produces 11 11 11.