Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Karsten Poeck
asdf
Commits
bf5c1052
Commit
bf5c1052
authored
Jan 11, 2020
by
Karsten Poeck
Browse files
Fixed deprecation conditions for clasp
parent
7dc69ba8
Changes
1
Hide whitespace changes
Inline
Side-by-side
test/test-deprecation.script
View file @
bf5c1052
...
...
@@ -17,7 +17,8 @@
(check-deprecation ,condition ,name ,body)
(nest #+(or abcl (and ecl ecl-bytecmp) mkcl) (does-not-signal condition)
#+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)
(compile () '(lambda () ,body)))))
...
...
@@ -26,9 +27,10 @@
(check-deprecation ,condition ,name ,body)
(nest #+allegro (signals style-warning)
#+(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)
#+sbcl (signals simple-warning)
#-(or allegro cmucl ecl mkcl sbcl)
#-(or allegro
clasp
cmucl ecl mkcl sbcl)
(check-deprecation ,condition ,name)
(compile () '(lambda () ,body)))))
...
...
@@ -36,9 +38,10 @@
`(progn
(check-deprecation ,condition ,name ,body)
(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)
#+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)
(compile () '(lambda () ,body)))))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment