mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-04 11:30:31 -08:00
Code Issues Projects Releases Packages Wiki Activity

Remove some tests which use nonportable features that ECL lacks.

Browse source
This commit is contained in:
jjgarcia 2002-05-10 07:35:32 +00:00
parent a5bc4bf09c
commit 8dca6b0e27
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/ansi-tests/format.lisp
View file

@ -128,7 +128,7 @@
;; AAAAAAA BBBBBB CCCCCCCCCCCC DDDDDDDDDDDDDD EEEE FFFFFFFFF GGGGGGGG HHHHH IIII JKK LLL MMMM NNNNNN OOOOOOOOOO PPPPPPPPPPPPPPP QQQQQQQ RRRRRRRRRRRR S TTTUUUUUUUUU VVVVVVV WWWWWWWWWW XXXXX
")
#-sbcl
#-(or sbcl ecl)
(my-assert
(defun format-blocksatz (stream parts prefix &optional line-length start-p end-p)
(if (null stream)
@ -142,6 +142,7 @@
(loop
;; Hier ist parts /= NIL
(let ((pos (#+CLISP sys::line-position
#+ECL file-position
#+ALLEGRO excl::charpos
#+(OR CMU SBCL) cl::charpos stream))
(parts-now '()))
@ -185,7 +186,7 @@
) ) ) )
FORMAT-BLOCKSATZ)
#-sbcl
#-(or sbcl ecl)
(my-assert
(format-blocksatz nil
(mapcar #'(lambda (x) (format nil " ~A" x))
@ -212,7 +213,7 @@
#-(or CLISP ALLEGRO cmu sbcl) UNKNOWN)
;; 123456789;123456789;123456789;123456789;123456789;123456789;123456789;12
#-sbcl
#-(or sbcl ecl)
(my-assert
(format-blocksatz nil
(mapcar #'(lambda (x) (format nil " ~A" x))