projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
don't close runtime dlhandle on Darwin
[sbcl.git]
/
src
/
compiler
/
debug-dump.lisp
diff --git
a/src/compiler/debug-dump.lisp
b/src/compiler/debug-dump.lisp
index
2b3d604
..
f6db341
100644
(file)
--- a/
src/compiler/debug-dump.lisp
+++ b/
src/compiler/debug-dump.lisp
@@
-268,10
+268,7
@@
:form (let ((direct-file-info (source-info-file-info info)))
(when (eq :lisp (file-info-name direct-file-info))
:form (let ((direct-file-info (source-info-file-info info)))
(when (eq :lisp (file-info-name direct-file-info))
- (let ((form (elt (file-info-forms direct-file-info) 0)))
- ;; The form COMPILE saves may include gunk
- ;; from %SIMPLE-EVAL -- this gets rid of that.
- (sb!impl::eval-lambda-source-lambda form))))
+ (elt (file-info-forms direct-file-info) 0)))
:function function)))
;;; Given an arbitrary sequence, coerce it to an unsigned vector if
:function function)))
;;; Given an arbitrary sequence, coerce it to an unsigned vector if