Custom Query (1030 matches)

With "Version 1.3-r12839M (LinuxPPC32)" and Ubuntu 7.10, the following

(with-output-to-string

(stream) (ccl:run-program

"sh" `("-c"

,(format

nil "echo ~a | aspell -a --encoding=utf-8 --lang=~a" "dpg" "en"))

:output stream))

works as expected, while

(with-output-to-string

(stream) (ccl:run-program

"sh" `("-c"

,(format

nil "echo ~a | aspell -a --encoding=utf-8 --lang=~a" "сабака" "ru"))

:output stream))

does not (no suggestions are showed). Both worked five years ago on MacOS X, and in shell aspell works correctly. Some investigation showed that the problem is in the encoding RUN-PROGRAM uses for io. CCL is started with

-K utf-8 --eval '(setf *default-file-character-encoding* :utf-8)'

but it seems it's not enough...

(From Pascal Costanza, ​http://clozure.com/pipermail/openmcl-devel/2009-September/010353.html)

Clozure Common Lisp seems to be too eager in its checking of congruency of generic function lambda lists and those of their methods.

Consider the following example:

? (defgeneric foo (a b c))
#<STANDARD-GENERIC-FUNCTION FOO #x30004125B93F>
? (add-method
   #'foo
   (make-instance 'standard-method
     :qualifiers '()
     :specializers (list (find-class 't) (find-class 't) (find-class 't))
     :lambda-list '(a b c)
     :function (lambda (&rest args) (print args))))
> Error: Lambda list of method #<STANDARD-METHOD NIL (T T T)>
>        is incompatible with that of the generic function FOO.
>        Method's lambda-list : (A B C)
>        Generic-function's   : (A B C)

While executing: CCL::CHECK-DEFMETHOD-CONGRUENCY, in process  
listener(1).

Indeed, check-defmethod-congruency uses the method-function to check for congruency, while it should actually use method-lambda-list for that purpose (at least in non-standard cases).

As far as I can tell at the moment, this is the only remaining step so that I can provide compatibility in Closer to MOP of the generic function invocation protocol to the specification in AMOP.

GET-DISPATCH-MACRO-CHARACTER complains about a character not being a dispatch macro character even after that character was just made one by MAKE-DISPATCH-MACRO-CHARACTER.

Test case:

  (flet ((dispatch-macro-char-p (char &optional (rt *readtable*))
           (handler-case
               (prog1 t
                 (get-dispatch-macro-character char #\x rt))
             (error () nil))))
    (let ((*readtable* (copy-readtable nil)))
      (values (dispatch-macro-char-p #\$)
              (make-dispatch-macro-character #\$ nil)
              (dispatch-macro-char-p #\$))))

  Expected: NIL, T, T
  Actual:   NIL, T, NIL

Fix attached.

-T.