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

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 @@ ...@@ -2,6 +2,11 @@
*.out *.out
*.dat *.dat
*.fas *.fas
*.fasl
*.lx64fsl
*.lx32fsl
*.bc
sandbox/
ansi-aux-macros.fas ansi-aux-macros.fas
ansi-aux.fas ansi-aux.fas
array-aux.fas array-aux.fas
......
...@@ -39,7 +39,7 @@ please contact me and I will add code to do so. ...@@ -39,7 +39,7 @@ please contact me and I will add code to do so.
NOTE!!! NOTE!!!
This test suite is not intended to rank Common Lisp implementations. 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 relative frequency of different CL features. Implementations may
even have extended the CL standard (arguably a good thing) in even have extended the CL standard (arguably a good thing) in
a way that causes certain tests to fail. a way that causes certain tests to fail.
......
...@@ -6,13 +6,18 @@ ...@@ -6,13 +6,18 @@
#+allegro (setq *enclose-printer-errors* nil) #+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 ;;; Remove compiled files
(let* ((fn (compile-file-pathname "doit.lsp")) (let* ((fn (compile-file-pathname "doit.lsp"))
(type (pathname-type fn)) (type (pathname-type fn))
(dir-pathname (make-pathname :name :wild :type type)) (dir-pathname (make-pathname :name :wild :type type))
(subdir-pathname (make-pathname :directory '(:relative :wild) (subdir-pathname (make-pathname :directory '(:relative :wild)
:name :wild :type type)) :name :wild :type type))
(format-pathname (make-pathname :directory '(:relative "printer/format") (format-pathname (make-pathname :directory '(:relative "printer" "format")
:name :wild :type type)) :name :wild :type type))
(files (append (directory dir-pathname) (files (append (directory dir-pathname)
(directory subdir-pathname) (directory subdir-pathname)
......
...@@ -15,12 +15,12 @@ ...@@ -15,12 +15,12 @@
#+clisp (setq custom::*warn-on-floating-point-contagion* nil) #+clisp (setq custom::*warn-on-floating-point-contagion* nil)
;;; Configure logical pathnames ;;; Configure logical pathnames
(setf (logical-pathname-translations "ansi-tests") (setf (logical-pathname-translations "ANSI-TESTS")
`(("aux;*.*" ,(merge-pathnames `(("AUX;*.*.*"
"auxiliary/" ,(merge-pathnames "auxiliary/"
(make-pathname (make-pathname
:directory :directory
(pathname-directory *load-truename*)))))) (pathname-directory *load-truename*))))))
(let (*load-verbose* *load-print* *compile-verbose* *compile-print*) (let (*load-verbose* *load-print* *compile-verbose* *compile-print*)
(load "compile-and-load.lsp")) (load "compile-and-load.lsp"))
......
...@@ -27,7 +27,8 @@ ...@@ -27,7 +27,8 @@
(def-read-suppress-test read-suppress.12 "(...)") (def-read-suppress-test read-suppress.12 "(...)")
(defparameter *non-macro-chars* (defparameter *non-macro-chars*
"1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-=+_~!@$%^&*{}[]<>/?.") (coerce "1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-=+_~!@$%^&*{}[]<>/?."
'simple-base-string))
(declaim (type simple-base-string *non-macro-chars*)) (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