Custom Query (1030 matches)

1.8-prerelease-r15247M (DarwinX8664)

In teh Search Files dialog, mis-queueing an In Folder choice, then searching, can require aborting a big silly search. Perhaps the search button could be converted into an Abort button. Meanwhile closing the dialog/search window causes this output in the AltConsole, Re-starting the Search Files dialog, changing the In Folder and leaves the Search button inoperable until the Find field is changed.

Error: #<STRING-OUTPUT-STREAM :CLOSED #x302000F57E2D> is closed While executing: CCL::STREAM-IS-CLOSED, in process Monitor thread for external process (grep -i -r -I -s -c -e defclass --include *.lisp /Users/user/)(15).

;;; ;;; #<PROCESS Monitor thread for external process (grep -i -r -I -s -c -e defclass --include *.lisp /Users/user/)(15) [Active] #x302000F573CD> requires access to Shared Terminal Input ;;; Type (:y 15) to yield control to this thread. ;;;

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"))
?

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)