Commit bf5c1052 authored by Karsten Poeck's avatar Karsten Poeck
Browse files

Fixed deprecation conditions for clasp

parent 7dc69ba8
...@@ -17,7 +17,8 @@ ...@@ -17,7 +17,8 @@
(check-deprecation ,condition ,name ,body) (check-deprecation ,condition ,name ,body)
(nest #+(or abcl (and ecl ecl-bytecmp) mkcl) (does-not-signal condition) (nest #+(or abcl (and ecl ecl-bytecmp) mkcl) (does-not-signal condition)
#+ccl (signals ccl::compiler-warning) #+ccl (signals ccl::compiler-warning)
#-(or abcl ccl (and ecl ecl-bytecmp) mkcl) #+clasp (signals CLEAVIR-CST-TO-AST:COMPILER-MACRO-EXPANSION-STYLE-WARNING)
#-(or abcl clasp ccl (and ecl ecl-bytecmp) mkcl)
(check-deprecation ,condition ,name) (check-deprecation ,condition ,name)
(compile () '(lambda () ,body))))) (compile () '(lambda () ,body)))))
...@@ -26,9 +27,10 @@ ...@@ -26,9 +27,10 @@
(check-deprecation ,condition ,name ,body) (check-deprecation ,condition ,name ,body)
(nest #+allegro (signals style-warning) (nest #+allegro (signals style-warning)
#+(or cmucl (and ecl (not ecl-bytecmp))) (signals c::compiler-error) #+(or cmucl (and ecl (not ecl-bytecmp))) (signals c::compiler-error)
#+clasp (signals COMPILER:COMPILER-MACRO-EXPANSION-ERROR-WARNING)
#+(or (and ecl ecl-bytecmp) mkcl) (does-not-signal condition) #+(or (and ecl ecl-bytecmp) mkcl) (does-not-signal condition)
#+sbcl (signals simple-warning) #+sbcl (signals simple-warning)
#-(or allegro cmucl ecl mkcl sbcl) #-(or allegro clasp cmucl ecl mkcl sbcl)
(check-deprecation ,condition ,name) (check-deprecation ,condition ,name)
(compile () '(lambda () ,body))))) (compile () '(lambda () ,body)))))
...@@ -36,9 +38,10 @@ ...@@ -36,9 +38,10 @@
`(progn `(progn
(check-deprecation ,condition ,name ,body) (check-deprecation ,condition ,name ,body)
(nest #+(or cmucl (and ecl (not ecl-bytecmp))) (signals c::compiler-error) (nest #+(or cmucl (and ecl (not ecl-bytecmp))) (signals c::compiler-error)
#+clasp (signals CLEAVIR-CST-TO-AST:MACROEXPANSION-ERROR)
#+mkcl (errors compiler:compiler-error) #+mkcl (errors compiler:compiler-error)
#+sbcl (signals sb-c:compiler-error) #+sbcl (signals sb-c:compiler-error)
#-(or cmucl (and ecl (not ecl-bytecmp)) mkcl sbcl) #-(or clasp cmucl (and ecl (not ecl-bytecmp)) mkcl sbcl)
(check-deprecation ,condition ,name) (check-deprecation ,condition ,name)
(compile () '(lambda () ,body))))) (compile () '(lambda () ,body)))))
......
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