From: Mike T. <miketh@ParadigmGeo.com> - 2006-06-14 06:09:27
|
Hi Yaroslav/Juho. The following tests based on Yaroslav's bug report now work with 0.9.13 patched per the attached diff. I've included a recursive instance of sbcl itself in the tests. Yaroslav, if you absolutely can't rebuild 0.9.13 yourself with these patches, please let me know and I'll send you a new binary tomorrow (I'm on Australian time). Please let me know how you go, whatever happens. Juho, if no major issues, please apply to CVS. Thanks for your excellent feedback! Cheers Mike Thomas =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D UNDER Win32 command shell =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D * (setf t3p (run-program "notepad" nil :wait t :search t :output "t4")) ; in: LAMBDA NIL ; (SETF T3P (RUN-PROGRAM "notepad" NIL :WAIT T :SEARCH T :OUTPUT "t4")) ; =3D=3D> ; (SETQ T3P (RUN-PROGRAM "notepad" NIL :WAIT T :SEARCH T :OUTPUT "t4")) ; ; caught WARNING: ; undefined variable: T3P ; ; caught WARNING: ; This variable is undefined: ; T3P ; ; compilation unit finished ; caught 2 WARNING conditions #<SB-IMPL::PROCESS :EXITED 0> * (delete-file "t4") T * sb-impl::*active-processes* (#<SB-IMPL::PROCESS :EXITED 0>) * (process-close t3p) #<SB-IMPL::PROCESS :EXITED 0> * sb-impl::*active-processes* NIL * =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D UNDER MSYS sh =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D $ sbcl This is SBCL 0.9.13, an implementation of ANSI Common Lisp. More information about SBCL is available at <http://www.sbcl.org/>. SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. os_map: 3, 0x1000, 02000000, 0x1000. os_map: 3, 0x2000, 05000000, 0x1000. os_map: 3, 0x3000, 09000000, 0x15c8000. This is experimental prerelease support for the Windows platform: use at your own risk. "Your Kitten of Death awaits!" * (run-program "sh.exe" nil :search t) #<SB-IMPL::PROCESS :EXITED 0> * (run-program "sh.exe" nil :search t :output t) #<SB-IMPL::PROCESS :EXITED 0> * (run-program "sh.exe" (list "-c" "ls /") :search t :output t) BUGS local-target-features.lisp-expr COPYING make-config.sh CREDITS make-genesis-2.lisp CVS make-genesis-2.sh INSTALL make-host-1.lisp NEWS make-host-1.sh OPTIMIZATIONS make-host-2.lisp PRINCIPLES make-host-2.sh README make-target-1.sh STYLE make-target-2.lisp SUPPORT make-target-2.sh TLA make-target-contrib.sh TODO make.log base-target-features.lisp-expr make.sh binary-distribution.sh obj build-order.lisp-expr output clean.sh package-data-list.lisp-expr common-lisp-exports.lisp-expr pubring.pgp contrib slam.sh diff.txt source-distribution.sh diff.txt~ src distclean.sh tagify.sh doc tests find-gnumake.sh tools-for-build html-distribution.sh version.lisp-expr install.sh wc.sh #<SB-IMPL::PROCESS :EXITED 0> * (run-program "sh.exe" (list "-c" "ls /") :search t :output #P"test-output") #<SB-IMPL::PROCESS :EXITED 0> * (probe-file "test-output") #P"c:\\development\\src\\sbcl-0.9.13\\test-output" * (with-open-file (f "test-output" ) (file-length f)) 749 * (delete-file "test-output") T * (run-program "sbcl" nil :search t :output t :input t :error t) This is SBCL 0.9.13, an implementation of ANSI Common Lisp. More information about SBCL is available at <http://www.sbcl.org/>. SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. os_map: 7, 0x1000, 02000000, 0x1000. os_map: 7, 0x2000, 05000000, 0x1000. os_map: 7, 0x3000, 09000000, 0x15c8000. This is experimental prerelease support for the Windows platform: use at your own risk. "Your Kitten of Death awaits!" * (+ 1 2) 3 * (quit) #<SB-IMPL::PROCESS :EXITED 0> * (quit) $ =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D |