Ignore:
Timestamp:
May 5, 2008, 11:12:20 AM (12 years ago)
Author:
mb
Message:

Add find-definition-of-thing.

This funtion will attempt to return the source-note which defines the object. Only works for function, class and method
objects.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/optimizers.lisp

    r9350 r9356  
    19361936        `(let* ((,code (char-code ,ch)))
    19371937          (and (eq ,code (setq ,code (char-code ,other)))
    1938            (eq ,code (char-code ,third)))))
     1938               (eq ,code (char-code ,third)))))
    19391939      call)))
    19401940
Note: See TracChangeset for help on using the changeset viewer.