common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Editing error.

Browse source
This commit is contained in:
Stas Boukarev 2023-01-23 17:34:20 +03:00
parent dff581094b
commit 057188b1f8
1 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
tests/external-format.pure.lisp
View file

@ -1092,14 +1092,14 @@
(format stream "(defvar s \"what? ~A\"~%)" (name-char "GRINNING_FACE"))
(format stream "(sb-ext:exit :code
(if (and (string= (subseq s 0 6) \"what? \") (char= (char s 6) #\\grinning_face)) 0 1))~%"))
(let ((code
(process-exit-code
(run-program
sb-ext:*runtime-pathname*
(list "--core" sb-int:*core-string*
"--noinform" "--no-sysinit" "--no-userinit" "--noprint"
"--disable-debugger"
"--eval" "(setq *default-external-format* :utf16le)"
"--load" script)
:error t))))
(assert (zerop code)))))
(let ((process (run-program
sb-ext:*runtime-pathname*
(list "--core" sb-int:*core-string*
"--noinform" "--no-sysinit" "--no-userinit" "--noprint"
"--disable-debugger"
"--eval" "(setq *default-external-format* :utf16le)"
"--load" script)
:error t)))
#+win32
(process-close process)
(assert (zerop (process-exit-code process))))))