Changeset 14401


Ignore:
Timestamp:
Nov 3, 2010, 12:08:14 AM (9 years ago)
Author:
rme
Message:

Additional method on GET-OBJECT-SOURCES for closures, from Takehiko
Abe.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/source-files.lisp

    r14351 r14401  
    419419        (list (list* (cons *method-definition-type* (%method-function-method fn)) source nil)))))
    420420  (:method ((m method))
    421     (get-object-sources (method-function m))))
     421    (get-object-sources (method-function m)))
     422  (:method ((fn compiled-lexical-closure))
     423    (get-object-sources (closure-function fn))))
    422424
    423425(defun find-definition-sources (name &optional (type t))
Note: See TracChangeset for help on using the changeset viewer.