Learn how easy it is to sync an existing GitHub or Google Code repo to a SourceForge project! See Demo

Close

Diff of /src/ansi-tests/section13.lisp [9f94c6] .. [851cd0] Maximize Restore

  Switch to side-by-side view

--- a/src/ansi-tests/section13.lisp
+++ b/src/ansi-tests/section13.lisp
@@ -182,14 +182,14 @@
 
 (my-assert
  (char> #\z #\A)
- #+(or cmu sbcl clisp ecls) T
- #-(or cmu sbcl clisp ecls) fill-this-in)
+ #+(or cmu sbcl clisp ecl) T
+ #-(or cmu sbcl clisp ecl) fill-this-in)
 
 
 (my-assert
  (char> #\Z #\a)
- #+(or cmu sbcl clisp ecls) nil
- #-(or cmu sbcl clisp ecls) fill-this-in)
+ #+(or cmu sbcl clisp ecl) nil
+ #-(or cmu sbcl clisp ecl) fill-this-in)
 
 
 (my-assert
@@ -204,8 +204,8 @@
 
 (my-assert
  (stable-sort (list #\b #\A #\B #\a #\c #\C) #'char<)
- #+(or cmu sbcl clisp ecls) (#\A #\B #\C #\a #\b #\c)
- #-(or cmu sbcl clisp ecls) fill-this-in)
+ #+(or cmu sbcl clisp ecl) (#\A #\B #\C #\a #\b #\c)
+ #-(or cmu sbcl clisp ecl) fill-this-in)
 					;  (#\A #\B #\C #\a #\b #\c) ;Implementation A
 					;  (#\a #\b #\c #\A #\B #\C) ;Implementation B
 					;  (#\a #\A #\b #\B #\c #\C) ;Implementation C
@@ -524,17 +524,17 @@
 
 (my-assert
  (char-name #\a)
- #+(or cmu sbcl ecls) nil
+ #+(or cmu sbcl ecl) nil
  #+clisp "LATIN_SMALL_LETTER_A"
- #-(or cmu sbcl clisp ecls) fill-this-in)
+ #-(or cmu sbcl clisp ecl) fill-this-in)
 ;; NIL OR "LOWERCASE-a" OR  "Small-A" OR  "LA01"
 
 
 (my-assert
  (char-name #\A)
- #+(or cmu sbcl ecls) nil
+ #+(or cmu sbcl ecl) nil
  #+clisp "LATIN_CAPITAL_LETTER_A"
- #-(or cmu sbcl clisp ecls) fill-this-in)
+ #-(or cmu sbcl clisp ecl) fill-this-in)
 ;;  NIL OR "UPPERCASE-A" OR  "Capital-A" OR  "LA02"
 
 ;; Even though its CHAR-NAME can vary, #\A prints as #\A