/[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.11.3.1 by wlott, Tue Jun 26 06:21:05 1990 UTC revision 1.11.3.2 by wlott, Wed Aug 15 17:58:04 1990 UTC
# Line 250  Line 250 
250      (declare (ignore ig1 ig2))      (declare (ignore ig1 ig2))
251      res))      res))
252  ;;;  ;;;
253  (defun (setf interpreted-function-name) (x val)  (defun (setf interpreted-function-name) (val x)
254    (setf (eval-function-name (get-eval-function x)) val))    (setf (eval-function-name (get-eval-function x)) val))
255  ;;;  ;;;
256  (defun interpreted-function-arglist (x)  (defun interpreted-function-arglist (x)
257    (eval-function-arglist (get-eval-function x)))    (eval-function-arglist (get-eval-function x)))
258  ;;;  ;;;
259  (defun (setf interpreted-function-arglist) (x val)  (defun (setf interpreted-function-arglist) (val x)
260    (setf (eval-function-arglist (get-eval-function x)) val))    (setf (eval-function-arglist (get-eval-function x)) val))
261    
262    

Legend:
Removed from v.1.11.3.1  
changed lines
  Added in v.1.11.3.2

  ViewVC Help
Powered by ViewVC 1.1.5