~shunter/mstrings

7a94c070141c7cd03bbd3648b17724c3bf143393 — Samuel Hunter 1 year, 7 months ago 80d6819 master v0.1.1
Fix #> test fail on CCL-1.2 or later

The original test tried to skip reading the #> shorthand macro via:

    #-CCL-1.2 #>"blablabla..."

This did not work, as Clozure wouldn't then know how to skip the string
macro. To work around this, the M-string is now wrapped around a
with-input-from-string, eval'd at readtime.
1 files changed, 7 insertions(+), 4 deletions(-)

M test.lisp
M test.lisp => test.lisp +7 -4
@@ 112,7 112,10 @@ Mode"

  (t:skip-on (ccl-1.2) "#> macro claimed by Clozure CL 1.2 and later"
    (t:is string= "Folding-block Mode"
          #-CCL-1.2
          #>"Folding-block Mode"
          #+CCL-1.2
          nil)))
          ;; Wrap in read from string so that Clozure doesn't signal
          ;; reader-error. Even if CCL reads #-ccl-1.2 #>"...", it
          ;; wouldn't then know how to skip the M-string.
          #-ccl-1.2
          #.(with-input-from-string (in "#>\"Folding-block Mode\"")
              (read in))
          #+ccl-1.2 nil)))