/[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.12 by ram, Mon Jul 23 14:25:03 1990 UTC revision 1.13 by wlott, Fri Aug 24 18:35:11 1990 UTC
# Line 7  Line 7 
7  ;;; Scott Fahlman (FAHLMAN@CMUC).  ;;; Scott Fahlman (FAHLMAN@CMUC).
8  ;;; **********************************************************************  ;;; **********************************************************************
9  ;;;  ;;;
10    ;;; $Header$
11    ;;;
12  ;;; This file contains the interpreter.  We first convert to the compiler's  ;;; This file contains the interpreter.  We first convert to the compiler's
13  ;;; IR1 and interpret that.  ;;; IR1 and interpret that.
14  ;;;  ;;;
# Line 254  Line 256 
256      (declare (ignore ig1 ig2))      (declare (ignore ig1 ig2))
257      res))      res))
258  ;;;  ;;;
259  (defun (setf interpreted-function-name) (x val)  (defun (setf interpreted-function-name) (val x)
260    (let* ((eval-fun (get-eval-function x))    (let* ((eval-fun (get-eval-function x))
261           (def (eval-function-definition eval-fun)))           (def (eval-function-definition eval-fun)))
262      (when def      (when def
# Line 266  Line 268 
268  (defun interpreted-function-arglist (x)  (defun interpreted-function-arglist (x)
269    (eval-function-arglist (get-eval-function x)))    (eval-function-arglist (get-eval-function x)))
270  ;;;  ;;;
271  (defun (setf interpreted-function-arglist) (x val)  (defun (setf interpreted-function-arglist) (val x)
272    (setf (eval-function-arglist (get-eval-function x)) val))    (setf (eval-function-arglist (get-eval-function x)) val))
273    
274    
# Line 464  Line 466 
466            ;; binding mechanism to unbind one variable.            ;; binding mechanism to unbind one variable.
467            (eval-stack-pop)            (eval-stack-pop)
468            (maybe-trace-funny-fun node ,name)            (maybe-trace-funny-fun node ,name)
469            (system:%primitive unbind 1))            (system:%primitive unbind))
470           (c::%catch           (c::%catch
471            (let* ((tag (eval-stack-pop))            (let* ((tag (eval-stack-pop))
472                   (nlx-info (eval-stack-pop))                   (nlx-info (eval-stack-pop))

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

  ViewVC Help
Powered by ViewVC 1.1.5