Commit a5d7ec2a authored by Attila Lendvai's avatar Attila Lendvai
Browse files

simple-style-warning & co: better compatibility with ccl

parent 4907281d
...@@ -6,7 +6,7 @@ use as an initialization form for structure and class-slots, and ...@@ -6,7 +6,7 @@ use as an initialization form for structure and class-slots, and
a default value for required keyword arguments." a default value for required keyword arguments."
(error "Required argument ~@[~S ~]missing." name)) (error "Required argument ~@[~S ~]missing." name))
(define-condition simple-style-warning (style-warning simple-warning) (define-condition simple-style-warning (simple-warning style-warning)
()) ())
(defun simple-style-warning (message &rest args) (defun simple-style-warning (message &rest args)
...@@ -19,7 +19,7 @@ a default value for required keyword arguments." ...@@ -19,7 +19,7 @@ a default value for required keyword arguments."
;; implementation. But even then it's still inspectable from the ;; implementation. But even then it's still inspectable from the
;; debugger... ;; debugger...
(define-condition simple-reader-error (define-condition simple-reader-error
#-sbcl(reader-error simple-error) #-sbcl(simple-error reader-error)
#+sbcl(sb-int:simple-reader-error) #+sbcl(sb-int:simple-reader-error)
()) ())
......
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