Commit 8cdbbad8 authored by Daniel Kochmański's avatar Daniel Kochmański

Merge branch 'attila' into 'master'

some fixes needed to make it work on SBCL and CCL.

i couldn't test other implementations.

See merge request !4
parents 6121cc21 0a737c5a
;;; Directory Local Variables
;;; For more information see (info "(emacs) Directory Variables")
((nil
(indent-tabs-mode . nil) ; Make sure to disable smart-tabs-mode if you're using it.
(whitespace-action . nil)
(whitespace-style . '(face trailing empty tabs))
))
......@@ -2,6 +2,11 @@
*.out
*.dat
*.fas
*.fasl
*.lx64fsl
*.lx32fsl
*.bc
sandbox/
ansi-aux-macros.fas
ansi-aux.fas
array-aux.fas
......
......@@ -39,7 +39,7 @@ please contact me and I will add code to do so.
NOTE!!!
This test suite is not intended to rank Common Lisp implementations.
The tests have not be selected to reflect the importance or
The tests have not been selected to reflect the importance or
relative frequency of different CL features. Implementations may
even have extended the CL standard (arguably a good thing) in
a way that causes certain tests to fail.
......
......@@ -6,13 +6,18 @@
#+allegro (setq *enclose-printer-errors* nil)
(let ((wd (or *compile-file-pathname* *load-pathname*)))
(when wd
(setf *default-pathname-defaults*
(make-pathname :name nil :type nil :version nil :defaults wd))))
;;; Remove compiled files
(let* ((fn (compile-file-pathname "doit.lsp"))
(type (pathname-type fn))
(dir-pathname (make-pathname :name :wild :type type))
(subdir-pathname (make-pathname :directory '(:relative :wild)
:name :wild :type type))
(format-pathname (make-pathname :directory '(:relative "printer/format")
(format-pathname (make-pathname :directory '(:relative "printer" "format")
:name :wild :type type))
(files (append (directory dir-pathname)
(directory subdir-pathname)
......
......@@ -15,12 +15,12 @@
#+clisp (setq custom::*warn-on-floating-point-contagion* nil)
;;; Configure logical pathnames
(setf (logical-pathname-translations "ansi-tests")
`(("aux;*.*" ,(merge-pathnames
"auxiliary/"
(make-pathname
:directory
(pathname-directory *load-truename*))))))
(setf (logical-pathname-translations "ANSI-TESTS")
`(("AUX;*.*.*"
,(merge-pathnames "auxiliary/"
(make-pathname
:directory
(pathname-directory *load-truename*))))))
(let (*load-verbose* *load-print* *compile-verbose* *compile-print*)
(load "compile-and-load.lsp"))
......
......@@ -27,7 +27,8 @@
(def-read-suppress-test read-suppress.12 "(...)")
(defparameter *non-macro-chars*
"1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-=+_~!@$%^&*{}[]<>/?.")
(coerce "1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-=+_~!@$%^&*{}[]<>/?."
'simple-base-string))
(declaim (type simple-base-string *non-macro-chars*))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment