Skip to content
Snippets Groups Projects
Commit bb3b587c authored by ram's avatar ram
Browse files

Fix stuff.

parent 77b4620b
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/byte-interp.lisp,v 1.9 1993/05/11 18:15:42 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/byte-interp.lisp,v 1.10 1993/05/11 18:36:27 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -321,8 +321,9 @@ ...@@ -321,8 +321,9 @@
(declare (type stack-pointer old-sp)) (declare (type stack-pointer old-sp))
(dolist (arg args) (dolist (arg args)
(push-eval-stack arg)) (push-eval-stack arg))
(invoke-xep nil 0 old-sp 0 num-args xep (invoke-xep nil 0 old-sp 0 num-args
(byte-closure-data xep))))) (byte-closure-function res)
(byte-closure-data res)))))
res)) res))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment