:inlinep inlinep
:where-from (info :function :where-from name)
:type (info :function :type name))
- (let ((info (info :function :accessor-for name)))
- (when info
- (error "no expansion for ~S even though :ACCESSOR-FOR"
- name))
- (etypecase info
- (null
- (find-free-really-function name))
- (sb!xc:structure-class
- (find-structure-slot-accessor info name))
- (sb!xc:class
- (if (typep (layout-info (info :type :compiler-layout
- (sb!xc:class-name
- info)))
- 'defstruct-description)
- (find-structure-slot-accessor info name)
- (find-free-really-function name))))))))))))
+ (find-free-really-function name))))))))
;;; Return the LEAF structure for the lexically apparent function
;;; definition of NAME.
;;; define. If the function has been forward referenced, then
;;; substitute for the previous references.
(defun get-defined-fun (name)
- (let* ((name (proclaim-as-fun-name name))
- (found (find-free-function name "shouldn't happen! (defined-fun)")))
+ (proclaim-as-fun-name name)
+ (let ((found (find-free-function name "shouldn't happen! (defined-fun)")))
(note-name-defined name :function)
(cond ((not (defined-fun-p found))
(aver (not (info :function :inlinep name)))