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

Diff of /src/compiler/eval.lisp

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

revision 1.17 by ram, Tue Apr 9 14:40:43 1991 UTC revision 1.18 by ram, Mon Apr 22 23:05:05 1991 UTC
# Line 11  Line 11 
11  ;;;  ;;;
12  ;;; **********************************************************************  ;;; **********************************************************************
13  ;;;  ;;;
 ;;; $Header$  
 ;;;  
14  ;;; This file contains the interpreter.  We first convert to the compiler's  ;;; This file contains the interpreter.  We first convert to the compiler's
15  ;;; IR1 and interpret that.  ;;; IR1 and interpret that.
16  ;;;  ;;;
# Line 1029  Line 1027 
1027        (c::constant        (c::constant
1028         (c::constant-value leaf))         (c::constant-value leaf))
1029        (c::global-var        (c::global-var
1030         (if (eq (c::global-var-kind leaf) :global-function)         (locally (declare (optimize (safety 1)))
1031             (let ((name (c::global-var-name leaf)))           (if (eq (c::global-var-kind leaf) :global-function)
1032               (if (symbolp name)               (let ((name (c::global-var-name leaf)))
1033                   (symbol-function name)                 (if (symbolp name)
1034                   (fdefinition name)))                     (symbol-function name)
1035             (symbol-value (c::global-var-name leaf))))                     (fdefinition name)))
1036                 (symbol-value (c::global-var-name leaf)))))
1037        (c::lambda-var        (c::lambda-var
1038         (leaf-value-lambda-var node leaf frame-ptr closure))         (leaf-value-lambda-var node leaf frame-ptr closure))
1039        (c::functional        (c::functional

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

  ViewVC Help
Powered by ViewVC 1.1.5