Custom Query (1030 matches)

Using &WHOLE in the lambda list for the :ARGUMENTS section of the long form of DEFINE-METHOD-COMBINATION results in an UNBOUND-VARIABLE condition. Here's a simple test case:

CL-USER> (define-method-combination test ()
             ((primary () :required t))
           (:arguments &whole whole)
           (format t "this is it: ~A" whole)
           `(call-method ,(first primary) ,(rest primary)))
;Compiler warnings :
;   In an anonymous lambda form: Undeclared free variable #:ARGS
TEST
CL-USER> (defgeneric foo (x)
           (:method-combination test)
           (:method (x) x))
#<STANDARD-GENERIC-FUNCTION FOO #x30200127BC6F>
CL-USER> (foo 3)

You can see the warning when the method combination is defined, then the call results in:

Unbound variable: #:ARGS
   [Condition of type UNBOUND-VARIABLE]

This is on CCL Version 1.8-dev-r15225M-trunk (DarwinX8664)

On linux:

 (with-output-to-string (out)
        (ccl:run-program
         "/bin/sh"
         '("-c" "echo hello")
         :input nil :output out :wait t))
"hello
"

which is the expected result.

On MS-Windows:

(with-output-to-string (out)
            (ccl:run-program
             "C:/cygwin/bin/sh"
             '("-c" "echo  hello")
             :input nil :output out :wait t))
"
"

which is not expected. Notice that run-program runs successfully:

(ccl:run-program
           "C:/cygwin/bin/sh"
           '("-c" "echo  hello")
           :input nil :output (make-string-output-stream) :wait t)
#<external-process (C:/cygwin/bin/sh -c
                    echo  hello)[nil] (exited : 0) #x2108DC3B8D>

but the output is not collected.

(list (lisp-implementation-type) (lisp-implementation-version)
               (machine-type) (machine-version))
("Clozure Common Lisp" "Version 1.7-r14925M  (Windowsx8664)" "x64" nil)

An extra "." can be printed when *print-circle* is t. A log is below. The version (15230) is the trunk as of two days ago. Not sure how to specify the "component" -- I'd guess it's a source code bug, but I don't know.

Welcome to Clozure Common Lisp Version 1.8-dev-r15230M-trunk  (LinuxX8664)!
? (let* ((*print-circle* t)
	 (atm "hi")
	 (alist `((3 . ,atm) (2 . ,atm))))
    (print alist))

((3 . #1= . "hi") (2 . #1#)) 
((3 . "hi") (2 . "hi"))
? '((3 . #1= . "hi") (2 . #1#))  ; the extra dot ruins readability, of course:

> Error: Reader error on #<CCL::RECORDING-CHARACTER-INPUT-STREAM #x3020006EDE3D>, near position 13:
>        Dot context error in ".".
> While executing: CCL::SIGNAL-READER-ERROR, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :q
? '((3 . #1="hi") (2 . #1#)) ; manual correction
((3 . "hi") (2 . "hi"))
?