Changeset 11045


Ignore:
Timestamp:
Oct 11, 2008, 2:25:27 AM (11 years ago)
Author:
gz
Message:

backward compatibility for ilisp

File:
1 edited

Legend:

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

    r11039 r11045  
    608608
    609609
     610;; For ilisp.
     611(defun %source-files (name)
     612  (let ((type-list ())
     613        (meth-list ()))
     614    (loop for ((dt . full-name) . files) in (find-definition-sources name t)
     615          do (if (typep dt 'method-definition-type)
     616               (dolist (file files)
     617                 (push (cons full-name file) meth-list))
     618               (push (cons (definition-type-name dt) files) type-list)))
     619    (when meth-list
     620      (push (cons 'method meth-list) type-list))
     621    type-list))
     622
    610623;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    611624;;; record-source-file
Note: See TracChangeset for help on using the changeset viewer.