mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-01 23:30:40 -08:00
Incorporate valid results for ECLS.
This commit is contained in:
jjgarcia
parent
9c09789e75
commit
d07c84e512
1 changed files with 32 additions and 32 deletions
|
|
@ -68,8 +68,8 @@
|
|||
(my-assert
|
||||
(format nil "~12<~S~;~^~S~;~^~S~>" 'foo 'bar 'baz)
|
||||
#+(or CLISP ALLEGRO) "foo bar baz"
|
||||
#+(OR CMU SBCL) "foo bar baz"
|
||||
#-(or CLISP ALLEGRO cmu sbcl) UNKNOWN)
|
||||
#+(OR CMU SBCL ECLS) "foo bar baz"
|
||||
#-(or CLISP ALLEGRO cmu sbcl ECLS) UNKNOWN)
|
||||
|
||||
(my-assert
|
||||
(progn
|
||||
|
|
@ -344,9 +344,9 @@ but it makes more sense to print non-numeric arguments properly alighned")
|
|||
(my-assert
|
||||
(foo 1100.0L0)
|
||||
#+XCL " 1.10D+3| 11.00$+02|+.001D+06| 1.10D+3"
|
||||
#+(or CLISP AKCL) " 1.10L+3| 11.00$+02|+.001L+06| 1.10L+3"
|
||||
#+(or CLISP AKCL ECLS) " 1.10L+3| 11.00$+02|+.001L+06| 1.10L+3"
|
||||
#+(or ALLEGRO cmu sbcl) " 1.10d+3| 11.00$+02|+.001d+06| 1.10d+3"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl) UNKNOWN)
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ECLS) UNKNOWN)
|
||||
|
||||
(my-assert
|
||||
(foo 1.1E13)
|
||||
|
|
@ -419,9 +419,9 @@ Scale factor -5: | 0.000003E+06|"))
|
|||
(my-assert
|
||||
(foo 3141.59L0)
|
||||
#+XCL " 3.14D+3|314.2$+01|0.314D+04| 3.14D+3"
|
||||
#+(or CLISP AKCL) " 3.14L+3|314.2$+01|0.314L+04| 3.14L+3"
|
||||
#+(or CLISP AKCL ecls) " 3.14L+3|314.2$+01|0.314L+04| 3.14L+3"
|
||||
#+(or ALLEGRO cmu sbcl) " 3.14d+3|314.2$+01|0.314d+04| 3.14d+3"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl) UNKNOWN)
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
|
||||
|
||||
(my-assert
|
||||
(foo 3.14E12)
|
||||
|
|
@ -502,68 +502,68 @@ Scale factor -5: | 0.000003E+06|"))
|
|||
(my-assert
|
||||
(FORMAT NIL "format-s:--~s--ende-*" (QUOTE AB\c))
|
||||
#+XCL "format-s:--AB\\c--ende-*"
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl) "format-s:--|ABc|--ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl) UNKNOWN)
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:--|ABc|--ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
|
||||
|
||||
(my-assert
|
||||
(FORMAT NIL "format-s:--~5s--ende-*" (QUOTE AB\c))
|
||||
#+XCL "format-s:--AB\\c --ende-*"
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl) "format-s:--|ABc|--ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl) UNKNOWN)
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:--|ABc|--ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
|
||||
|
||||
(my-assert
|
||||
(FORMAT NIL "format-s:--~5,2s--ende-*" (QUOTE AB\c))
|
||||
#+XCL "format-s:--AB\\c --ende-*"
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl) "format-s:--|ABc|--ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl) UNKNOWN)
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:--|ABc|--ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
|
||||
|
||||
(my-assert
|
||||
(FORMAT NIL "format-s:--~5,2,3s--ende-*" (QUOTE AB\c))
|
||||
#+XCL "format-s:--AB\\c --ende-*"
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl) "format-s:--|ABc| --ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl) UNKNOWN)
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:--|ABc| --ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
|
||||
|
||||
(my-assert
|
||||
(FORMAT NIL "format-s:--~5,2,3,'*s--ende-*" (QUOTE AB\c))
|
||||
#+XCL "format-s:--AB\\c***--ende-*"
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl) "format-s:--|ABc|***--ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl) UNKNOWN)
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:--|ABc|***--ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
|
||||
|
||||
(my-assert
|
||||
(FORMAT NIL "format-s:--~@s--ende-*" (QUOTE AB\c))
|
||||
#+XCL "format-s:--AB\\c--ende-*"
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl) "format-s:--|ABc|--ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl) UNKNOWN)
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:--|ABc|--ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
|
||||
|
||||
(my-assert
|
||||
(FORMAT NIL "format-s:--~5@s--ende-*" (QUOTE AB\c))
|
||||
#+XCL "format-s:-- AB\\c--ende-*"
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl) "format-s:--|ABc|--ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl) UNKNOWN)
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:--|ABc|--ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
|
||||
|
||||
(my-assert
|
||||
(FORMAT NIL "format-s:--~5,2@s--ende-*" (QUOTE AB\c))
|
||||
#+XCL "format-s:-- AB\\c--ende-*"
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl) "format-s:--|ABc|--ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl) UNKNOWN)
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:--|ABc|--ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
|
||||
|
||||
(my-assert
|
||||
(FORMAT NIL "format-s:--~5,2,3@s--ende-*" (QUOTE AB\c))
|
||||
#+XCL "format-s:-- AB\\c--ende-*"
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl) "format-s:-- |ABc|--ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl) UNKNOWN)
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:-- |ABc|--ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
|
||||
|
||||
(my-assert
|
||||
(FORMAT NIL "format-s:--~5,2,3,'*@s--ende-*" (QUOTE AB\c))
|
||||
#+XCL "format-s:--***AB\\c--ende-*"
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl) "format-s:--***|ABc|--ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl) UNKNOWN)
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:--***|ABc|--ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
|
||||
|
||||
(my-assert
|
||||
(FORMAT NIL "format-s:--~:s--ende-*" (QUOTE (AB\c NIL XYZ)))
|
||||
#+XCL "format-s:--(AB\\c NIL XYZ)--ende-*"
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl) "format-s:--(|ABc| NIL XYZ)--ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl) UNKNOWN)
|
||||
#+(or CLISP AKCL ALLEGRO cmu sbcl ecls) "format-s:--(|ABc| NIL XYZ)--ende-*"
|
||||
#-(or XCL CLISP AKCL ALLEGRO cmu sbcl ecls) UNKNOWN)
|
||||
|
||||
(my-assert
|
||||
(SETQ X 5)
|
||||
|
|
@ -971,13 +971,13 @@ freshline:
|
|||
#+(or XCL cmu sbcl CLISP) "char normal: , as
|
||||
# would read:
|
||||
#\\Space, human read:Space-*"
|
||||
#+(or AKCL LUCID) "char normal:Space, as
|
||||
#+(or AKCL LUCID ecls) "char normal:Space, as
|
||||
# would read:
|
||||
#\\Space, human read:Space-*"
|
||||
#+ALLEGRO "char normal: , as
|
||||
# would read:
|
||||
#\\space, human read:space-*"
|
||||
#-(or XCL cmu sbcl CLISP AKCL LUCID ALLEGRO) UNKNOWN)
|
||||
#-(or XCL cmu sbcl CLISP AKCL LUCID ALLEGRO ecls) UNKNOWN)
|
||||
|
||||
(my-assert
|
||||
(FORMAT NIL
|
||||
|
|
@ -1216,8 +1216,8 @@ but it was called with an argument of type SHORT-FLOAT.-*")
|
|||
(my-assert
|
||||
(FORMAT NIL "**~c**" #\SPACE)
|
||||
#+(or XCL cmu sbcl CLISP ALLEGRO) "** **"
|
||||
#+(or AKCL LUCID) "**Space**"
|
||||
#-(or XCL cmu sbcl CLISP AKCL LUCID ALLEGRO) UNKNOWN)
|
||||
#+(or AKCL LUCID ecls) "**Space**"
|
||||
#-(or XCL cmu sbcl CLISP AKCL LUCID ALLEGRO ecls) UNKNOWN)
|
||||
|
||||
(my-assert
|
||||
(FORMAT NIL "**~:c**" #\SPACE)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue