From a83d3d8490921d4fea635f0ddfcb1fa83c265166 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Thu, 26 Mar 1992 16:40:54 +0000 Subject: [PATCH] Fixed eval of alien variables. We just hand it off to the real interpreter. --- code/eval.lisp | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/code/eval.lisp b/code/eval.lisp index 1ad4b4446..694e5e34e 100644 --- a/code/eval.lisp +++ b/code/eval.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.14 1992/02/25 03:41:42 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.15 1992/03/26 16:40:54 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -110,9 +110,13 @@ (let ((exp (macroexpand original-exp))) (typecase exp (symbol - (if (eq (info variable kind exp) :constant) - (values (info variable constant-value exp)) - (symbol-value exp))) + (ecase (info variable kind exp) + (:constant + (values (info variable constant-value exp))) + ((:special :global) + (symbol-value exp)) + (:alien + (eval:internal-eval original-exp)))) (list (let ((name (first exp)) (args (1- (length exp)))) -- GitLab