projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.98:
[sbcl.git]
/
src
/
code
/
error.lisp
diff --git
a/src/code/error.lisp
b/src/code/error.lisp
index
8197a27
..
1239eb4
100644
(file)
--- a/
src/code/error.lisp
+++ b/
src/code/error.lisp
@@
-17,12
+17,12
@@
;;; not sure this is the right place, but where else?
(defun style-warn (format-control &rest format-arguments)
;;; not sure this is the right place, but where else?
(defun style-warn (format-control &rest format-arguments)
+ (/show0 "entering STYLE-WARN")
+ (/show format-control format-arguments)
(warn 'simple-style-warning
:format-control format-control
:format-arguments format-arguments))
(warn 'simple-style-warning
:format-control format-control
:format-arguments format-arguments))
-(define-condition simple-type-error (simple-condition type-error) ())
-
(define-condition sb!kernel:layout-invalid (type-error)
()
(:report
(define-condition sb!kernel:layout-invalid (type-error)
()
(:report