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
bb883b4
..
b313fcc
100644
(file)
--- a/
src/compiler/early-c.lisp
+++ b/
src/compiler/early-c.lisp
@@
-93,6
+93,7
@@
(defvar *current-path*)
(defvar *current-component*)
(defvar *delayed-ir1-transforms*)
(defvar *current-path*)
(defvar *current-component*)
(defvar *delayed-ir1-transforms*)
+(defvar *eval-tlf-index*)
(defvar *handled-conditions*)
(defvar *disabled-package-locks*)
(defvar *policy*)
(defvar *handled-conditions*)
(defvar *disabled-package-locks*)
(defvar *policy*)
@@
-112,6
+113,7
@@
(defvar *lexenv*)
(defvar *source-info*)
(defvar *source-plist*)
(defvar *lexenv*)
(defvar *source-info*)
(defvar *source-plist*)
+(defvar *source-namestring*)
(defvar *trace-table*)
(defvar *undefined-warnings*)
(defvar *warnings-p*)
(defvar *trace-table*)
(defvar *undefined-warnings*)
(defvar *warnings-p*)
@@
-228,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
@@
-255,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))