projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.18.6: Win32 get-internal-real-time improved
[sbcl.git]
/
tests
/
compiler.test.sh
diff --git
a/tests/compiler.test.sh
b/tests/compiler.test.sh
index
25c208c
..
daa3fff
100644
(file)
--- a/
tests/compiler.test.sh
+++ b/
tests/compiler.test.sh
@@
-6,7
+6,7
@@
# While most of SBCL is derived from the CMU CL system, the test
# files (like this one) were written from scratch after the fork
# from CMU CL.
# While most of SBCL is derived from the CMU CL system, the test
# files (like this one) were written from scratch after the fork
# from CMU CL.
-#
+#
# This software is in the public domain and is provided with
# absolutely no warranty. See the COPYING and CREDITS files for
# more information.
# This software is in the public domain and is provided with
# absolutely no warranty. See the COPYING and CREDITS files for
# more information.
@@
-39,11
+39,11
@@
expect_failed_compile $tmpfilename
# having the same name.
cat > $tmpfilename <<EOF
(in-package :cl-user)
# having the same name.
cat > $tmpfilename <<EOF
(in-package :cl-user)
- (defun foo (x)
+ (defun foo (x)
(flet ((baz (y) (load y)))
(declare (notinline baz))
(baz x)))
(flet ((baz (y) (load y)))
(declare (notinline baz))
(baz x)))
- (defun bar (x)
+ (defun bar (x)
(flet ((baz (y) (load y)))
(declare (notinline baz))
(baz x)))
(flet ((baz (y) (load y)))
(declare (notinline baz))
(baz x)))
@@
-93,7
+93,7
@@
expect_clean_compile $tmpfilename
cat > $tmpfilename <<EOF
(in-package :cl-user)
(defun foo (x) (list x))
cat > $tmpfilename <<EOF
(in-package :cl-user)
(defun foo (x) (list x))
- (defun bar (x)
+ (defun bar (x)
(declare (notinline foo))
(1+ (foo x)))
EOF
(declare (notinline foo))
(1+ (foo x)))
EOF
@@
-161,13
+161,16
@@
fail_on_compiler_note $tmpfilename
# test case from Rudi for some CLOS WARNINGness that shouldn't have
# been there
cat > $tmpfilename <<EOF
# test case from Rudi for some CLOS WARNINGness that shouldn't have
# been there
cat > $tmpfilename <<EOF
+ #+sb-eval (eval-when (:compile-toplevel)
+ (setf sb-ext:*evaluator-mode* :compile))
+
(eval-when (:compile-toplevel :load-toplevel :execute)
(eval-when (:compile-toplevel :load-toplevel :execute)
- (defstruct buffer-state
+ (defstruct buffer-state
(output-index 0)))
(output-index 0)))
-
+
(defclass buffered-stream-mixin ()
((buffer-state :initform (make-buffer-state))))
(defclass buffered-stream-mixin ()
((buffer-state :initform (make-buffer-state))))
-
+
(defgeneric frob (stream))
(defmethod frob ((stream t))
nil)
(defgeneric frob (stream))
(defmethod frob ((stream t))
nil)
@@
-320,7
+323,7
@@
expect_clean_compile $tmpfilename
cat > $tmpfilename <<EOF
(defun bar ()
(let ((result ""))
cat > $tmpfilename <<EOF
(defun bar ()
(let ((result ""))
- (nreverse result)))
+ (nreverse result)))
EOF
expect_clean_compile $tmpfilename
EOF
expect_clean_compile $tmpfilename
@@
-344,8
+347,16
@@
cat > $tmpfilename <<EOF
EOF
expect_failed_compile $tmpfilename
EOF
expect_failed_compile $tmpfilename
+cat > $tmpfilename <<EOF
+(declaim (optimize (speed 3) (space 0) (safety 0)))
+
+(defun foo (bar)
+ (last bar))
+EOF
+expect_clean_compile $tmpfilename
+
rm $tmpfilename
rm $compiled_tmpfilename
rm $tmpfilename
rm $compiled_tmpfilename
-# success
+# success
exit 104
exit 104