Commit 1d211850 authored by Vladimir Sedach's avatar Vladimir Sedach
Browse files

Changed special operator redefinition and deprecated warnings to issue a real...

Changed special operator redefinition and deprecated warnings to issue a real 'style warning' which should hopefully not mess w/compilation in compilers like SBCL.
parent 88f9a21c
......@@ -9,7 +9,9 @@
(defun defined-operator-override-check (name &rest body)
(when (and (not %compiling-reserved-forms-p%) (member name *ps-defined-operators*))
(warn "Redefining Parenscript operator/macro ~A" name))
(warn 'simple-style-warning
:format-control "Redefining Parenscript operator/macro ~A"
:format-arguments (list name)))
`(progn ,(when %compiling-reserved-forms-p% `(pushnew ',name *ps-defined-operators*))
,@body))
......
(in-package #:parenscript)
(in-readtable :parenscript)
(define-condition simple-style-warning (simple-condition style-warning)
(define-condition simple-style-warning (style-warning simple-warning)
())
(defun warn-deprecated (old-name &optional new-name)
......
Supports Markdown
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