projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Reduce random casting in looks_like_valid_lisp_pointer_p().
[sbcl.git]
/
src
/
compiler
/
early-c.lisp
diff --git
a/src/compiler/early-c.lisp
b/src/compiler/early-c.lisp
index
9d19a78
..
b313fcc
100644
(file)
--- a/
src/compiler/early-c.lisp
+++ b/
src/compiler/early-c.lisp
@@
-230,7
+230,7
@@
the stack without triggering overflow protection.")
(setf *debug-name-sharp* (make-debug-name-marker)
*debug-name-ellipsis* (make-debug-name-marker))
(setf *debug-name-sharp* (make-debug-name-marker)
*debug-name-ellipsis* (make-debug-name-marker))
-(defun debug-name (type thing)
+(defun debug-name (type thing &optional context)
(let ((*debug-name-punt* nil))
(labels ((walk (x)
(typecase x
(let ((*debug-name-punt* nil))
(labels ((walk (x)
(typecase x
@@
-257,7
+257,7
@@
the stack without triggering overflow protection.")
x)
(t
(type-of x)))))
x)
(t
(type-of x)))))
- (let ((name (list type (walk thing))))
+ (let ((name (list* type (walk thing) (when context (name-context)))))
(when (legal-fun-name-p name)
(bug "~S is a legal function name, and cannot be used as a ~
debug name." name))
(when (legal-fun-name-p name)
(bug "~S is a legal function name, and cannot be used as a ~
debug name." name))