projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre8.24:
[sbcl.git]
/
src
/
compiler
/
target-disassem.lisp
diff --git
a/src/compiler/target-disassem.lisp
b/src/compiler/target-disassem.lisp
index
453edf1
..
6e247fc
100644
(file)
--- a/
src/compiler/target-disassem.lisp
+++ b/
src/compiler/target-disassem.lisp
@@
-1467,9
+1467,7
@@
(compile nil lambda)))
(defun compiled-fun-or-lose (thing &optional (name thing))
(compile nil lambda)))
(defun compiled-fun-or-lose (thing &optional (name thing))
- (cond ((or (symbolp thing)
- (and (listp thing)
- (eq (car thing) 'setf)))
+ (cond ((legal-fun-name-p thing)
(compiled-fun-or-lose (fdefinition thing) thing))
((functionp thing)
thing)
(compiled-fun-or-lose (fdefinition thing) thing))
((functionp thing)
thing)