/[cmucl]/src/compiler/macros.lisp
ViewVC logotype

Diff of /src/compiler/macros.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.48 by toy, Tue Dec 3 16:58:55 2002 UTC revision 1.49 by gerd, Mon Mar 31 11:13:22 2003 UTC
# Line 735  Line 735 
735           (values (cdr ,n-res) t)           (values (cdr ,n-res) t)
736           (values nil nil))))           (values nil nil))))
737    
738    ;;;
739    ;;; LEXENV-FIND-FUNCTION  --  Interface
740    ;;;
741    ;;; Find local function with name NAME in *LEXICAL-ENVIRONMENT*.
742    ;;;
743    (defun lexenv-find-function (name)
744      (lexenv-find name functions
745                   :test (lambda (x y)
746                           (or (equal x y)
747                               (and (consp y)
748                                    (member (car y) '(flet labels))
749                                    (equal x (cadr y)))))))
750    
751    
752    
753  ;;; With-debug-counters  --  Interface  ;;; With-debug-counters  --  Interface

Legend:
Removed from v.1.48  
changed lines
  Added in v.1.49

  ViewVC Help
Powered by ViewVC 1.1.5